danfse nfsex padrão nacional mei

[Antonio Gomes]

é sabido do pdf vir do webservice, mas, como poderia analisar, se o mesmo está faltando pedaço?

Segue como retornou um pdf:

[Italo Giurizzato Junior]

Bom dia Antonio,

Esse PDF baixado foi do ambiente de produção ou homologação?

[Antonio Gomes]

produção, nem sabia que tinha homologação disso.. Eu mando ver em produção mesmo. 

[Italo Giurizzato Junior]

Antonio,

Eu fiz um teste usando o método ObterDANFSE do Padrão Nacional.

Informei a chave de uma nota não cancelada e o PDF veio por inteiro, ou seja, todas as informações.

Depois testei usando uma chave de uma nota cancelada e o PDF também foi baixo completo.

Eu também estou realizando os testes em ambiente de produção, uma vez que o de homologação eu não consigo nem sequer emitir a nota.

[Antonio Gomes]

Voce faz ideia como posso detectar que ele veio lascado ? Se posso testar alguma coisa no objeto acbrnfsex ? pq se vier cagado assim, eu mando pegar com essa funcao que voce falou.

Eu abri o arquivo no bloco de notas, parece que ele foi cortado, e a versão dele, 1.4, parece ser montada a base de streans, logo, parece que mesmo sendo parcial, ele abre... 

Olha o que faço, logo apos transmitir, mando consultar, se tem a chave já:

 

          if ChaveNFSeNacional <> '' then
          begin
            FuncNFSeX.ACBrNFSe.ObterDANFSE(ChaveNFSeNacional);

            var
              ConsultaNFSe: TNFSeConsultaNFSeResponse;

            ConsultaNFSe := FuncNFSeX.ACBrNFSe.WebService.ConsultaNFSe;

            if ConsultaNFSe <> nil then
            begin
              if ConsultaNFSe.ArquivoRetorno <> '' then // veio pdf
              begin
                // TCaixasDeDialogo.Informacao('veio pdf - salvou');

                TFuncoesNFSeX.GravarArquivoVinculadoNF(DMConexao.Secao,
                  IBTrTransmite,
                  CdsNF.FieldByName('EMPRESA_NF').AsInteger,
                  CdsNF.FieldByName('AUTOINC_NF').AsLargeInt,
                  TFuncoesNFSeX.ArquivoNFSeX_PDF,
                  ConsultaNFSe.ArquivoRetorno);
              end;
            end;
          end;

 

[Italo Giurizzato Junior]

Boa tarde Antonio,

Comente a chamada a sua função GravarArquivoVinculadoNF, pois pode ser ela que esteja corrompendo o PDF.

O método ObterDANFSE já salva em disco o PDF da DANFSE.

[Antonio Gomes]

Sim, pensei que poderia ser isso também, mas vou fazer um teste, chamando ela isolada.

Esse campo não corrompe, tem mais registros correto, e so duas deram zica.

Por isso estranhei, ate então, o pdf estava vindo certo.

A propósito, eu salvo no banco o pdf, pq tenho automação do envio de email posterior. E como não tem gerador de pdf no object acbrdanfsexfr, achei prudente gravar no banco

Editado 16 Outubro, 2023 por Antonio Gomes

[Antonio Gomes]

14 minutos atrás, Antonio Gomes disse:

Sim, pensei que poderia ser isso também, mas vou fazer um teste, chamando ela isolada.

Esse campo não corrompe, tem mais registros correto, e so duas deram zica.

Por isso estranhei, ate então, o pdf estava vindo certo.

A propósito, eu salvo no banco o pdf, pq tenho automação do envio de email posterior. E como não tem gerador de pdf no object acbrdanfsexfr, achei prudente gravar no banco

fui olhar no banco, as nf do mes passado, kkk, uma veio sem logo: Deve ser bug do servidor viu, no endpoint da receita, ele dá timeout demais.

 

[Antonio Gomes]

testei os pdf salvos, eles tão bichado tb: os que tem 4 kb, com erro, acho que vai ser um parametro para eu executar a busca de novo.. já que nao deve ter crc nisso ou md5

[Italo Giurizzato Junior]

Antonio,

Realmente esta muito estranho.

[Antonio Gomes]

já pensei ate desenhar no Fastreport essa impressao, so para nao depender do webserice, e nao tem gente usando isso ainda, imagina, quando entrar os simples nacional... junto com os meiotas..

kkk

webservice vai p***r na farinha 

[Antonio Gomes]

Em 16/10/2023 at 15:23, Antonio Gomes disse:

já pensei ate desenhar no Fastreport essa impressao, so para nao depender do webserice, e nao tem gente usando isso ainda, imagina, quando entrar os simples nacional... junto com os meiotas..

kkk

webservice vai p***r na farinha 

@Italo Giurizzato Junior

Achei o bug de cortar o pdf

veja na imagem, acha parte do xml, que faz parte do pdf, o retorno nao vem em tag, mas vem direto o pdf.

A falha é na função: TACBrNFSeXWebservice.SalvarRetornoWebService, onde chama RemoverDeclaracaoXML

TACBrNFSeXWebservice.SalvarRetornoDadosMsg quando faz isso  ADadosMsg := RemoverDeclaracaoXML(ADadosMsg);

TACBrNFSeProviderPadraoNacional.TratarRetornoConsultaNFSeporChave:  Response.ArquivoRetorno := RemoverDeclaracaoXML(Response.ArquivoRetorno); // comentei isso, quando é pdf para testar.

Acho que o legal é testar de outra forma, já que nao tem tag xml abrindo de fechando nesse retorno, é um pdf só,.

Como chamei para pegar o pdf:

 FuncNFSeX.ACBrNFse.ObterDANFSE(IBDSPai.FieldByName('NFE_CHAVE_NF').AsString);

    ConsultaNFSe := FuncNFSeX.ACBrNFse.WebService.ConsultaNFSe;
...

os fontes alterados, é apenas para vc ver como veio o retorno, com o que eu mexi, nao suba para o seu fonte. Eu não sei como mexer nesse componente ainda, é novo para eu.

PadraoNacional.Provider.pas

ACBrNFSeXWebserviceBase.pas

[Italo Giurizzato Junior]

Bom dia Antonio,

Muito obrigado pela colaboração, já inclui na minha lista de tarefas para analise. TK-4642

[Italo Giurizzato Junior]

Boa tarde Antonio,

Já esta no SVN.

[Antonio Gomes]

6 horas atrás, Italo Giurizzato Junior disse:

Bom dia Antonio,

Muito obrigado pela colaboração, já inclui na minha lista de tarefas para analise. TK-4642

Atualizado, testado, ok! Grato.

[Alexandre de Paula]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.