Erro Ao Enviar Nota Fiscal

[Joscru01]

Colegas estou com o seguinte problema

 

FDataModule.ACBrNFe1.WebServices.StatusServico.Executar;

status :=IntToStr(FDataModule.ACBrNFe1.WebServices.StatusServico.cStat);

if status <> '107' then

begin

    mensagem de serviço fora do ar ...........  

    Abort;

end;

 

 

 

envio a NF-e com o codigo abaixo

 

try

   FDataModule.ACBrNFe1.NotasFiscais.LoadFromFile(cdsEnvio.FieldByName('CAMINHOXML').AsString);

   FDataModule.ACBrNFe1.Enviar(1, true); 

   aChaveNfe              := EdtChave.Text ;

   aProcolo               := FDataModule.ACBrNFe1.WebServices.Retorno.Protocolo;

   aRecibo                := FDataModule.ACBrNFe1.WebServices.Retorno.Recibo;

   status                 := IntToStr(FDataModule.ACBrNFe1.WebServices.Retorno.cStat);

   if status = '100' then

   begin

          Validou a NF, gravo no banco e blz

     

   end else begin

       EdtResposta.Lines.Text := FDataModule.RetornoWB(status);

   end;

except

 

end;

 

 

O problema é que no comando Enviar ocorre um Except, porem a NF-e e transmitida, outras vezes a NF-e é transmitida e Volta Retorno.cStat = 0

 

 

algumas vezes passa sem erro, mas tá tipo assim, uma passa outra da erro, uma passa outra da erro.

 

QUando tento enviar outra vez da mensagem de duplicidade..

 

habilitei as mensagens do acbr e ele informa tanto na verificação do serviço

quanto na geração do DANFE.

 

Is not Valid Integer. e não sei o que é isso

 

estou usando o Delphi 2010

Editado 6 Novembro, 2013 por Joscru01