Retorno Da Manifestação Do Destinatário

[rmauro]

Bom dia.

 

Em primeiro lugar gostaria de parabeniza-los pelo trabalho, utilizo o ACBr e confio nele... Obrigado a todos.

 

Vamos lá.

 

Acabei de implementar a Manifestação do Destinatário e para pegar os retornos do WebServices pelo componente fiz algumas modificações para me atender, onde, já envio para o banco de dados o conteúdo do xml de retorno e a confirmação da chave de acesso que tambem estavam retornando em branco. 

 

Existe outra maneira de se fazer??? ou teria como colocar esta correção no componente????

 

 

 

 

unit ACBrNFeWebServices;

 

Linha 3554 - function TNFeEnvEvento.Executar: Boolean;

 

Linha 3693 -             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.chNFe       := EventoRetorno.retEvento.Items[j].RetInfEvento.chNFe;  // Linha adicionada

 

 

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

 

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

 

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

                                         FEvento.Evento.Items.InfEvento.TipoEvento +

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

                                         '-procEventoNFe.xml';