Jump to content

Delphi chamada_delphi.png acbr.png

C6 chamada_c6.png botao.png

Acbrnfe1.enviar Com Retorno 100-Autorizado


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

Recommended Posts

Galera.. td bem!!!

 

estou com o seguinte problema: apos enviar a NFe, vem o retorno como 100- Autorizado mas a rotina entra no except.... isso s ocorre em algumas notas....

 

try
    ACBrNFe1.Enviar(StrToint(edtNf.Text), TRUE);
except
  ShowMessage('erro');
 
 
o que fica mais RAPIDO ou mais correto... usar o comandos    
 
ACBrNFe1.Enviar 
 
ou 
 
ACBrNFe1.NotasFiscais.GerarNFe;
ACBrNFe1.NotasFiscais.Assinar;
ACBrNFe1.NotasFiscais.Valida;
ACBrNFe1.WebServices.Envia(); ????
 
 
fico no aguardo.
 
att
Alexandre
 
Link to comment
Share on other sites

Internamente o comando ACBrNFe1.Enviar, já chama os comando Assinar e Validar, agora o GerarNFe vc terá que fazer para alimentar o componente independentemente.

 

Outra coisa

 

try

    ACBrNFe1.Enviar(StrToint(edtNf.Text), TRUE);
except
  ShowMessage('erro');
 
 
 
O comando Enviar retorno TRUE ou FALSE, ele não gera exceção, desse forma vc terá que mudar para IF.
if not  ACBrNFe1.Enviar(StrToint(edtNf.Text), TRUE) then
begin
   Showmessage('de erro');
end;
 
ou algo do tipo

ACBrNFe1.Enviar(StrToint(edtNf.Text), TRUE);
 
with ACBrNFe1.WebServices.EnvEvento do
   if not (EventoRetorno.retEvento.Items[0].RetInfEvento.cStat in [100, 105, 110 ...]) then
   begin
 

           with ACBr_NFe1.WebServices.EnvEvento.EventoRetorno do
            begin
               ShowMessage('Cancelar NFe',
                                             'Ocorreu o seguinte erro ao cancelar a nota fiscal eletrônica:' + sLineBreak +
                                             'Lote: '     + IntToStr(idLote)                                 + sLineBreak +
                                             'Ambiente: ' + TpAmbToStr(tpAmb)                                + sLineBreak +
                                             'Orgao: '    + IntToStr(cOrgao)                                 + sLineBreak + sLineBreak +
                                             'Status: '   + IntToStr(retEvento.Items[0].RetInfEvento.cStat)  + sLineBreak +
                                             'Motivo: '   + retEvento.Items[0].RetInfEvento.xMotivo);
            end;
   end;

Peguei um pedaço do meu código para mostrar é +ou- isso.

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link to comment
Share on other sites

×
×
  • 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.