Web Services Nfedownloadnf

[ademar-datalan]

Boa tarde a todos.

 

Nos últimos dias tenho tido reclamações com o uso do web services NfeDownloadNf.

Fiz vários testes e verifiquei que o XML tem retornado com uma nova TAG <NFeZip>.

 

Alguém sabe me dizer se houve alguma alteração no retorno deste web services?

 

 

 

[Italo Giurizzato Junior]

Boa noite Ademar,

 

Sim, a SEFAZ alterou a forma de retornar.

 

Veja o que fizemos com o retorno do Web Services NFeDistribuicaoDFe.

 

E tenta fazer igual para poder descompactar.

[Daniel Caus]

Boa tarde!

 

Eu acabei fazendo um quebra galho temporário para mim, mas me deparei com a seguinte situação:

 

Ao realizar o download do arquivo compactado, descompacto as tag´s NFeZip e protNFeZip e gero um novo XML de mesmo nome na pasta, substituindo o XML compactado.

 

Mas o protocolo vem em separado.. um problema q não resolvi ainda...

Os XML´s (Protocolo de autorização e XML da NFe) estão em anexo...

    dtmDados.ACBrNFe.DownloadNFe.Download.Chaves.Clear;
    dtmDados.ACBrNFe.DownloadNFe.Download.CNPJ := sCnpj;
    dtmDados.ACBrNFe.DownloadNFe.Download.Chaves.Add.chNFe := sChave;
    dtmDados.ACBrNFe.Download;

    if XMLDocument1.Active then
      XMLDocument1.Active := false;

    XMLDocument1.LoadFromXML(dtmDados.ACBrNFe.WebServices.DownloadNFe.retDownloadNFe.XML);
    XMLDocument1.Active := true;

    sXML        := XMLDocument1.XML.Text;
    sNFeZip     := StringBetween(sXML,'<NFeZip>','</NFeZip>');
    sProtNFeZip := StringBetween(sXML,'<protNFeZip>','</protNFeZip>');

    sNFeZip     := GZDecompressStr(DecodeBase64(sNFeZip));
    sProtNFeZip := GZDecompressStr(DecodeBase64(sProtNFeZip));

    // XML
    if XMLDocument1.Active then
      XMLDocument1.Active := false;

    XMLDocument1.LoadFromXML(sNFeZip);
    XMLDocument1.SaveToFile(pathNFe + '\' + sChave+'-nfe.xml');

    // Protocolo
    if XMLDocument1.Active then
      XMLDocument1.Active := false;

    XMLDocument1.LoadFromXML(sProtNFeZip);
    XMLDocument1.SaveToFile(pathNFe + '\' + sChave+'_prot.xml');

42150211974590000170550010000200111220601845_prot.xml

42150211974590000170550010000200111220601845-nfe.xml

Editado 6 Fevereiro, 2015 por Daniel Caus

[Tiago Ravache]

Desculpe a ignorância Daniel, mas vc consegue fazer o LoadFromFile pra um arquivo e pro outro não?

 

A Propriedade XML em dtmDados.ACBrNFe.WebServices.DownloadNFe.retDownloadNFe.XML vem com ambos os dados? acho que to meio lerdo hoje haahahah

 

Qual a dificuldade em fazer um LoadFromFile do arquivo do protocolo?

[Daniel Caus]

Olá Tiago...

 

Como tu viu, eu gerei 2 XML´s... 

 

Pelo menos não consegui juntar os dois em somente 1 XML, talvez por falta de prática com o tXMLDocument...

 

Se colocasse o conteúdo desse 42150211974590000170550010000200111220601845_prot.xml no final do conteúdo desse 42150211974590000170550010000200111220601845-nfe.xml , acredito que ficaria correto o XML...

 

Se puder me ajudar...

Editado 6 Fevereiro, 2015 por Daniel Caus

[Daniel Caus]

Se eu fizer, por exemplo o XMLDocument1.LoadFromXML(sNFeZip+sProtNFeZip)  desse jeito, dá erro...

 

Não consegui juntar as 2 variávei que possuem os dados dos XML´s, para depois criar o arquivo com XMLDocument1.SaveToFile(pathNFe + '\' + sChave+'-nfe.xml');

Editado 6 Fevereiro, 2015 por Daniel Caus

[Tiago Ravache]

De onde vc tá tirando  o sNFeZip e o sProtNFeZip? do componente acbr? se sim eles estão em propriedades diferentes ou na mesma propriedade?

[Daniel Caus]

Tiago..

 

Isso, pego do componente ACBr, estão em propriedades diferentes e compactados..

 

Em anexo, coloquei o XML gerado pelo ACBr que possui as informações compactadas, note que as tag´s NFeZip e ProtNFeZip estão separadas..

 

Descompacto elas em separado, mas depois não sei como juntar novamente no mesmo XML..

42150211974590000170550010000200101667521325-nfe.xml

Editado 6 Fevereiro, 2015 por Daniel Caus

[Daniel Caus]

Descobri o que ocasionava o erro ao juntar os dois...

 

Fiz o teste abaixo:

      XMLDocument1.LoadFromXML('<?xml version="1.0" encoding="UTF-8"?>'+
                               '<nfeProc xmlns="http://www.portalfiscal.inf.br/nfe" versao="3.10">'+
                               sNFeZip+sProtNFeZip+'</nfeProc>');

      XMLDocument1.SaveToFile(pathNFe + '\' + sChave+'-nfe.xml');

As partes compactadas não possuem o cabeçalho ('<?xml version="1.0" encoding="UTF-8"?><nfeProc mlns="http://www.portalfiscal.inf.br/nfe"versao="3.10">'+)

e nem a tag que fecha no final do arquivo (</nfeProc>)

 

Por isso dava erro, era a estrutura do XML que não estava correta.. agora está OK...

 

XML gerado em anexo... 

 

 

42150211974590000170550010000200111220601845-nfe.xml

[Gandalf]

Boa tarde pessoal,

 

alguém sabe como realizar o ACBrNFe1.WebServices.DownloadNFe tirando os caracteres acentuados?

 

atenciosamente

 

Társis Francke Ferreira

[Tiago Ravache]

Gandalf, é o seguinte aqui pra mim não tenho problemas com acentos e tenho setado essa propriedade?

 

ACBrNFe.Configuracoes.Geral.RetirarAcentos := True;

 

veja se isso te ajuda.

[mmcamilo]

Tiago boa noite...

 

Essa propriedade RetirarAcentos não seria apenas para os casos de envio de NF-es ou ela também funciona para retirar os acentos nos casos de recepção dos eventos?... fiz alguns testes aqui e mesmo setando como True, os eventos recebidos assim como o download, continuam ficando com acentos e caracteres especiais... etc....

 

Como vocês estão tratando esses retornos com caracteres especiais e acentos... (excluindo a função TiraAcentos, uma vez que de fato os acentos são retirados mas os caracteres especiais continuam sendo mostrados)  ?

 

Att.

 

Márcio M. Camilo 

[Tiago Ravache]

Bah Márcio no retorno não lembro de ter tido problemas mas realmente faz muito sentido que a propriedade retire os acentos no envio apenas...

 

Vou me atentar aos retornos, valeu!

[ademar-datalan]

Bom dia,

 

Gostaria de sugerir um pequeno ajuste na função TDistribuicaoDFe.TratarResposta: Boolean.

Quando é retornado uma das opções tsprocNFe ou tsprocEventoNfe os arquivos XML são salvos automaticamente. Neste ponto poderia ser observada a propriedade Salvar do componente, para verificar se os arquivos serão salvos ou não.

 

Obrigado.

[Tiago Ravache]

Ademar na Sexta feira conversávamos aqui no fórum sobre isso, o Ítalo disse que esta é uma alteração prevista nas melhorias que estão sendo feitas no código, mas que irão sair daqui algum tempo ainda, ele me sugeriu tratar localmente essa situação, creio que no momento é a melhor saída mesmo.

 

Até mais!

[ademar-datalan]

Ok,

Obrigado pelo retorno.