Jump to content

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png click.png click.png

Informação do cStat do cancelamento da NFce


Go to solution Solved by BigWings,
  • Este tópico foi criado há 712 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

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

Imagem.jpeg

1101112719103259935400019065001000001639127132641901-procEventoNFe.xml

Link to comment
Share on other sites

  • Moderadores
  • Solution
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;

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link to comment
Share on other sites

  • Este tópico foi criado há 712 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.