Acbrnfe1.enviar Com Retorno 100-Autorizado

[Alexandre - Ábaco Inf.]

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

 

[Isaque Pinheiro]

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.