Retorno De Cancelamento De Nf-E

[jbaneto]

Olá

gostaria desaber como pegar os dados retornados depois do

cancelamento da nf-e, cancelanda por evento:

 

exemplo, pegar o protocolo

a mensagem 'Evento registrado e vinculado a NF-e'

 

pois preciso gravar esses dados na tabela de notas fiscais.

antes gravava agora por evento não estou conseguindo

 

grato pela atenção.

 

ps: uso o componente.

[André Ferreira de Moraes]

Veja o exemplo disponível no ACBrNFeMonitor no arquivo DoACBrNFeUnit.pas

           for I:= 0 to ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Count-1 do
            begin

              Cmd.Resposta := Cmd.Resposta+sLineBreak+
               '[EVENTO'+Trim(IntToStrZero(I+1,3))+']'+sLineBreak+
               'id='        +ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[i].RetInfEvento.Id+sLineBreak+
               'tpAmb='     +TpAmbToStr(ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[i].RetInfEvento.tpAmb)+sLineBreak+
               'verAplic='  +ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[i].RetInfEvento.verAplic+sLineBreak+
               'cOrgao='    +IntToStr(ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[i].RetInfEvento.cOrgao)+sLineBreak+
               'cStat='     +IntToStr(ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[i].RetInfEvento.cStat)+sLineBreak+
               'xMotivo='   +ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[i].RetInfEvento.xMotivo+sLineBreak+
               'chNFe='     +ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[i].RetInfEvento.chNFe+sLineBreak+
               'tpEvento='  +TpEventoToStr(ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[i].RetInfEvento.tpEvento)+sLineBreak+
               'xEvento='   +ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[i].RetInfEvento.xEvento+sLineBreak+
               'nSeqEvento='+IntToStr(ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[i].RetInfEvento.nSeqEvento)+sLineBreak+
               'CNPJDest='  +ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[i].RetInfEvento.CNPJDest+sLineBreak+
               'emailDest=' +ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[i].RetInfEvento.emailDest+sLineBreak+
               'dhRegEvento='+DateTimeToStr(ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[i].RetInfEvento.dhRegEvento)+sLineBreak+
               'nProt='     +ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[i].RetInfEvento.nProt+sLineBreak;
            end;