Problema Com O Acbrnfe1.enviar

[thiagoaraujo]

Bom dia,

 

Estou com um problema no comando ACBrNFe1.Enviar. Na minha maquina de desenvolvimento no Delphi a nota é emitida normalmente. 

O problema é ná estação, ele considera a nota como autorizada. Mas entra no bloco do except. E nem chega a imprimir a nota. 

Vejam o código 

 

     try

        DM.ACBrNFe1.NotasFiscais.Valida;

        if DM.ACBrNFe1.NotasFiscais.Items[0].Alertas <> '' then

           MessageDlg('Alertas: '+DM.ACBrNFe1.NotasFiscais.Items[0].Alertas,mtWarning,[mbOK],0);

          DM.ACBrNFeDANFEFR1.FastFile := 'c:\NFE\Report\DANFeRetrato_Basic.fr3';

          DM.ACBrNFe1.Enviar(DM.QrPedidosCodPedido.AsString,True);

          // Autorizada ou Denegada

          if (DM.ACBrNFe1.WebServices.Retorno.cStat = 100) OR (DM.ACBrNFe1.WebServices.Retorno.cStat = 110) OR

          (DM.ACBrNFe1.WebServices.Retorno.cStat = 301) OR (DM.ACBrNFe1.WebServices.Retorno.cStat = 302) then

          begin

              // Autorizada

              if (DM.ACBrNFe1.WebServices.Retorno.cStat = 100) then

              begin

                   // faz procedimentos da nota autorizada

              end;

          end;

     except

        MessageDlg('STAT: '+IntToStr(DM.ACBrNFe1.WebServices.Retorno.cStat),mtWarning,[mbOK],0);

        Memo1.Lines.Text := UTF8Encode(DM.ACBrNFe1.WebServices.Retorno.RetWS);

        Memo2.Lines.Text := UTF8Encode(DM.ACBrNFe1.WebServices.Retorno.RetornoWS);

        DM.ACBrNFe1.NotasFiscais.Clear;

     end;

 

[Régys Silveira]

Precisamos da mensagem de erro se houver e os xmls da nota, envio, retorno para lhe ajudar.