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