Informação do cStat do cancelamento da NFce

[Antonio Paulo Mangili]

Boa tarde
Preciso de uma ajuda para resolver uma questão simples, mas de falta de meu conhecimento.
Estou tentando pegar uma informação de um retorno de cancelamento de uma NFCe, para que possa
entrar em uma rotina em meu sistema.
Tipo assim:
    se o retorno for 135 ele entra no rotina que eu quero.
    mas não estou conseguindo pegar essa informação
    abaixo vai meu codigo, o XML e uma imagem do campo que quero pegar.
    por favor se alguem puder me orientar ficarei grato.
    
    Rotina:
    
    ACBrNFe1.EnviarEvento(StrToInt(ycNF));

    MemoRespCancel.Lines.Text   := ACBrNFe1.WebServices.EnvEvento.RetWS;
    memoRespCancelWS.Lines.Text := ACBrNFe1.WebServices.EnvEvento.RetornoWS;
    LoadXML(MemoRespCancel, WBRespostaCancel);

    ShowMessage('Retorno de Status do EVENTO :- ' + IntToStr(ACBrNFe1.WebServices.Retorno.cStat));
                                                                                                              AQUI EU ESPERO O STATUS 135

    if ACBrNFe1.WebServices.Retorno.cStat = 135 then
    begin
           CdsGeral.Close;
           CdsGeral.DataRequest('Update TABPED set CHAVECFE=''NFCe - Cancelada'' where TABPED=''' + yVda + ''' ');
           CdsGeral.Execute;

           CdsGeral.Close;
           CdsGeral.DataRequest('Update TABPEDDETALHE set CHAVECFE=''NFCe - Cancelada'' where TABPED=''' + yVda + ''' ');
           CdsGeral.Execute;
    end;
 

Obrigado a todos

Paulinho

1101112719103259935400019065001000001639127132641901-procEventoNFe.xml

[BigWings]

15 horas atrás, Antonio Paulo Mangili disse:

    ACBrNFe1.EnviarEvento(StrToInt(ycNF));

    MemoRespCancel.Lines.Text   := ACBrNFe1.WebServices.EnvEvento.RetWS;
    memoRespCancelWS.Lines.Text := ACBrNFe1.WebServices.EnvEvento.RetornoWS;
    LoadXML(MemoRespCancel, WBRespostaCancel);

    ShowMessage('Retorno de Status do EVENTO :- ' + IntToStr(ACBrNFe1.WebServices.Retorno.cStat));
                                                                                                              AQUI EU ESPERO O STATUS 135

ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat;

[Antonio Paulo Mangili]

Em 05/10/2019 at 08:52, BigWings disse:

ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat;

Muito obrigado pela orientação. Poderia fechar o topico por favor

[Rafael Dias]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.