Retorno Enviar Nfc-E Sem Informação

[J Pereira]

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);

 

 

 

[Régys Silveira]

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;

[J Pereira]

Grato Regys. Já consegui.