Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 3664 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro
Postado

Boa noite.

Pesquisei no fórum usando várias dicas e nada. Todos retornam vazio. Na NFe funciona ok, mas na nfc-e nao consigo.

 

Não consigo pegar o xMotivo do retorno quando a nfc-e não é autorizada, como por exemplo duplicidade.

usei os seguintes comandos:

 ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.xMotivo
ACBrNFe1.WebServices.Retorno.NFeRetorno.xMotivo 
ACBrNFe1.WebServices.Retorno.xMotivo
 
Alguem pode me dar uma luz? um exemplo?
 
No exemplo acbrnfe não tem tratamento de retorno.
 
Grato.
 
códigos abaixo:
 
 
  ACBrNFe1.Configuracoes.Certificados.NumeroSerie := edtnumserie.Text; //     
  ACBrNFe1.Configuracoes.Geral.IdToken    := edtIdToken.Text; /
  ACBrNFe1.Configuracoes.Geral.Token      := edtToken.Text;
  ACBrNFe1.Configuracoes.WebServices.UF := 'RJ';
  ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe;
  ACBrNFe1.DANFE := ACBrNFeDANFeESCPOS1;
  ACBrNFe1.DANFE.Name := 'ACBrNFeDANFeESCPOS1';
  ACBrNFeDANFeESCPOS1.MarcaImpressora :=  iDaruma;  //iBematech; //
  ACBrNFeDANFeESCPOS1.Device.Porta := 'COM3';
  ACBrNFeDANFeESCPOS1.Device.Baud := 9600;
  ACBrNFeDANFeESCPOS1.Device.Ativar;
  ACBrNFe1.DANFE.TipoDANFE := tiNFCe;
  ACBrNFe1.DANFE.MostrarPreview := false;
 
  ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310;
  ACBrNFe1.Configuracoes.Geral.PathSchemas := uppercase(gsAppPath+'Schemas\V310');
 
  ACBrNFe1.NotasFiscais.Clear;
 
  GerarNFCe(vAux);
  ACBrNFe1.Enviar(vNumLote,False,Sincrono);
  MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetWS);
  memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetornoWS);
  LoadXML(MemoResp, WBResposta);
  MemoDados.Lines.Add('');
  MemoDados.Lines.Add('Envio NFe');
  MemoDados.Lines.Add('tpAmb: '+ TpAmbToStr(ACBrNFe1.WebServices.Retorno.TpAmb));
  MemoDados.Lines.Add('verAplic: '+ ACBrNFe1.WebServices.Retorno.verAplic);
  MemoDados.Lines.Add('cStat: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cStat));
  MemoDados.Lines.Add('cUF: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cUF));
  MemoDados.Lines.Add('xMotivo: '+ ACBrNFe1.WebServices.Retorno.xMotivo);
  MemoDados.Lines.Add('cMsg: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cMsg));
  MemoDados.Lines.Add('xMsg: '+ ACBrNFe1.WebServices.Retorno.xMsg);
  MemoDados.Lines.Add('Recibo: '+ ACBrNFe1.WebServices.Retorno.Recibo);
  MemoDados.Lines.Add('Protocolo: '+ ACBrNFe1.WebServices.Retorno.Protocolo);
     IF NOT ACBrNFe1.NotasFiscais.Items[0].Confirmada then
      begin
 
        ShowMessage('NFC-e não autorizada' + #13#13#10 +
                                   'Chave de Acesso = ' + ACBrNFe1.WebServices.Retorno.ChaveNFe + #13#13#10 +
                                   'Código de Retorno  = ' +IntToStr(ACBrNFe1.WebServices.Retorno.cStat) +#13#10 +
                                   'Mensagem  = ' +ACBrNFe1.WebServices.Retorno.xMsg +#13#10 +
                                   'Msg de Retorno  = ' +  ACBrNFe1.WebServices.Retorno.xMotivo  );
          OperacaoOk := false;
          ErroRetorno := ACBrNFe1.WebServices.Retorno.NFeRetorno.cStat;
//          PostMessage(Handle, WM_CLOSE, 0, 0);;
          Exit;
      end;
  ACBrNFeDANFeESCPOS1.ImprimirDANFE(nil, True);
 
 

 

  • Moderadores
  • Solution
Postado

Eu uso estas propriedades e tudo funciona perfeitamente:

ACBrNFe1.NotasFiscais[0].NFe.procNFe.cStat
ACBrNFe1.NotasFiscais[0].NFe.procNFe.xMotivo;
ACBrNFe1.NotasFiscais[0].NFe.procNFe.chNFe;
ACBrNFe1.NotasFiscais[0].NFe.procNFe.nProt;
ACBrNFe1.NotasFiscais[0].NFe.procNFe.dhRecbto;
ACBrNFe1.NotasFiscais[0].XML;

ACBrNFe1.WebServices.Retorno.cMsg;
ACBrNFe1.WebServices.Retorno.xMsg;
  • Curtir 1

Equipe ACBr

Régys Borges da Silveira

http://www.regys.com.br

certificacao delphicertificacao delphi
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...