Pegar Os Dados Do Retorno Da Carta De Correção

[joaovmf]

Bom dia

 

  Atualizei a versão do ACBR e foi mudado o metodo que captura os dados de retorno quando gera a carta de  correção.

 

Esse era como eu pegava os dados de retorno.

 

    sProtocolo    := NFe.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].RetInfEvento.nProt;

    sMotivo       := NFe.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].RetInfEvento.xMotivo;

    iStat         := NFe.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].RetInfEvento.cStat;

    if (iStat = 128) or (iStat = 135) or (iStat = 136) then

    begin

      if (myNFE_Correcao.state <> dsInsert) and (myNFE_Correcao.State <> dsEdit) then

        myNfe_Correcao.Edit;

      myNFe_Correcaodata_envio.AsDateTime := NFe.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento;

      myNFe_Correcaohora_envio.AsDateTime := NFe.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento;

      myNFE_Correcaoprotocolo.AsSTring    := sProtocolo;

      myNFE_Correcao.Post;

    end

    else

    begin

      raise Exception.Create('Status ' + FormatFloat('0',iStat) + ' - ' + sMotivo);

      exit;

    end;

 

Como faço isso agora? Ja olhei o exemplo e o mesmo só retorna para preencher o memo.

NFe.WebServices.EnvEvento.RetWS;

 

Obrigado

 

João Victor

 

[joaovmf]

Problema resolvido, tinha visto somente na parte da Carta de Correção no exemplo, ai vi na parte do cancelamento no exemplo e la tinha um exemplo, obrigado.