Jump to content

dev botao

Problema Com O Acbrnfe1.enviar


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

Recommended Posts

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

The popup will be closed in 10 seconds...