Sugestão De Melhoria, Retorno De Eventos

[Elazar]

 

Na unit ACBrNFeWebServices.pas, seria interessante adicionar uma linha para o XML do retorno (destacado abaixo)... 

 

 

               if FEvento.Evento.Items.InfEvento.chNFe = EventoRetorno.retEvento.Items[j].RetInfEvento.chNFe then

               begin

 

                 wProc := TStringList.Create;

                 wProc.Add('<?xml version="1.0" encoding="UTF-8" ?>');

 

                 wProc.Add('<procEventoNFe versao="' + GetVersaoNFe(FConfiguracoes.Geral.ModeloDF,

                                                                    FConfiguracoes.Geral.VersaoDF,

                                                                    LayNfeEvento) +

                                        '" xmlns="http://www.portalfiscal.inf.br/nfe">');

                 wProc.Add('<evento versao="' + GetVersaoNFe(FConfiguracoes.Geral.ModeloDF,

                                                             FConfiguracoes.Geral.VersaoDF,

                                                             LayNfeEvento) + '">');

 

                 Leitor.Arquivo := FDadosMSG;

                 wProc.Add(UTF8Encode(Leitor.rExtrai(1, 'infEvento', '', i + 1)));

//                 wProc.Add('</infEvento>');

 

                 wProc.Add('<Signature xmlns="http://www.w3.org/2000/09/xmldsig#">');

                 Leitor.Arquivo := FDadosMSG;

                 wProc.Add(UTF8Encode(Leitor.rExtrai(1, 'SignedInfo', '', i + 1)));

//                 wProc.Add('</SignedInfo>');

                 Leitor.Arquivo := FDadosMSG;

                 wProc.Add(UTF8Encode(Leitor.rExtrai(1, 'SignatureValue', '', i + 1)));

//                 wProc.Add('</SignatureValue>');

                 Leitor.Arquivo := FDadosMSG;

                 wProc.Add(UTF8Encode(Leitor.rExtrai(1, 'KeyInfo', '', i + 1)));

//                 wProc.Add('</KeyInfo>');

                 wProc.Add('</Signature>');

 

                 wProc.Add('</evento>');

                 wProc.Add('<retEvento versao="' + GetVersaoNFe(FConfiguracoes.Geral.ModeloDF,

                                                                FConfiguracoes.Geral.VersaoDF,

                                                                LayNfeEvento) + '">');

 

                 Leitor.Arquivo := FRetWS;

                 wProc.Add(UTF8Encode(Leitor.rExtrai(1, 'infEvento', '', j + 1)));

//                 wProc.Add('</infEvento>');

                 wProc.Add('</retEvento>');

                 wProc.Add('</procEventoNFe>');

 

                 EventoRetorno.retEvento.Items[j].RetInfEvento.XML:=wProc.Text;

 

//                 NomeArq := FEvento.Evento.Items.InfEvento.chNFe +

//                            FEvento.Evento.Items.InfEvento.TipoEvento +

//                            IntToStr(FEvento.Evento.Items.InfEvento.nSeqEvento) +

//                            '-procEventoNFe.xml';

                 NomeArq := FEvento.Evento.Items.InfEvento.chNFe +

                            FEvento.Evento.Items.InfEvento.TipoEvento +

                            Format('%.2d', [FEvento.Evento.Items.InfEvento.nSeqEvento]) +

                            '-procEventoNFe.xml';

 

              {   NomeArq := FEvento.Evento.Items.InfEvento.id +

                            '-procEventoNFe.xml'; }

 

 

                 FEvento.Evento.Items.RetInfEvento.nProt       := EventoRetorno.retEvento.Items[j].RetInfEvento.nProt;

                 FEvento.Evento.Items.RetInfEvento.dhRegEvento := EventoRetorno.retEvento.Items[j].RetInfEvento.dhRegEvento;

                 FEvento.Evento.Items.RetInfEvento.cStat       := EventoRetorno.retEvento.Items[j].RetInfEvento.cStat;

                 FEvento.Evento.Items.RetInfEvento.xMotivo     := EventoRetorno.retEvento.Items[j].RetInfEvento.xMotivo;

                 FEvento.Evento.Items.RetInfEvento.XML         := EventoRetorno.retEvento.Items[j].RetInfEvento.XML;

 

                 if FConfiguracoes.Geral.Salvar then

                    FConfiguracoes.Geral.Save(NomeArq, wProc.Text);

Editado 18 Dezembro, 2014 por Elazar

[Juliomar Marchetti]

Bom dia

Elazar 

peço para que anexe a unit! 

no caso além de ter o código direto no post colado fica complicado em sair catando a unit e a linha que deve ser alterado!

desde já agradeço a colaboração 

[Elazar]

Feito!

 

 

ACBrNFeWebServices.pas

[Juliomar Marchetti]

Bom dia!

seus fontes estão desatualizados!

não foi possível fazer o merge!

atualize primeiro seus fontes, aplique a correção e anexe novamente!

[Elazar]

Olá, bom dia;

 

Sim e bastante, ainda não foi possível conferir tudo que precisava, mas acabei baixando novamente o trunk e atualizando as linhas do metodo TNFeEnvEvento.Executar: Boolean; 

Segue novamente!

ACBrNFeWebServices.pas

[Juliomar Marchetti]

    Veja ainda está com diferenças e grandes

[Elazar]

Falha minha!

ACBrNFeWebServices.pas

[Italo Giurizzato Junior]

Boa tarde Elazar,

 

Muito obrigado pela colaboração, já esta disponível.