Pesquisar na Comunidade

Boa tarde!! esta acontecendo com frequencia o erro de digestvalue em meus clientes. Pelo que li e entendi isso ocorre quando assino novamente a nova e tento envia-la novamente usando o loadfromfile, só que não estou utilizando este comando. segue abaixo minha rotina de envio da NFe. GeraNota; try ACBrNFe1.Enviar(StrToint(edtNf.Text), TRUE); except if ACBrNFe1.NotasFiscais.Items[0].Alertas <> '' then ShowMessage(ACBrNFe1.NotasFiscais.Items[0].Alertas) else begin While true do begin ShowMessage('Erro: '+IntToStr(ACBrNFe1.WebServices.Retorno.cStat)+'-'+ACBrNFe1.WebServices.Retorno.xmotivo); if ACBrNFe1.WebServices.Retorno.cStat = 204 then begin i := Pos('[nRec:',ACBrNFe1.WebServices.Retorno.xmotivo); frmImpNF.tabVendaNrRecibo.value:=copy(ACBrNFe1.WebServices.Retorno.xmotivo,i+6,15); end; //guardo os campos na tabela if frmImpNF.tabVendaNrRecibo.AsString = '' then frmImpNF.tabVendaNrRecibo.value:=ACBrNFe1.WebServices.Retorno.Recibo; frmImpNF.tabVendaChaveNFe.value:=AcbrNFe1.WebServices.Retorno.ChaveNFe; frmImpNF.tabVendaNumeroLote.value:=edtNf.Text; // Consulta NFe, pra pegar o protocolo ACBrNFe1.Consultar; if ACBrNFe1.WebServices.Consulta.cStat = 100 then begin frmImpNF.tabVendaNrProtocolo.value:=ACBrNFe1.WebServices.Consulta.Protocolo; //salvar o arquivo -PRocNFE.xml NomeArq := ACBrNFe1.NotasFiscais.Items[0].NomeArq; if pos(UpperCase('-nfe.xml'),UpperCase(NomeArq)) > 0 then NomeArq := StringReplace(NomeArq,'-nfe.xml','-procNfe.xml',[rfIgnoreCase]); NomeArq := ExtractFileName(NomeArq); ACBrNFe1.NotasFiscais.Items[0].GravarXML(NomeArq); // Gerar PDF ACBrNFe1.NotasFiscais.ImprimirPDF; // Gerar DANFE ACBrNFe1.NotasFiscais.Imprimir; BReak; end; if MessageDlg('Erro no envio da NFe. Consultar Novamente?',mtConfirmation,[MbYes,mbNo],0)=mrNo then Break; end; end; // salva o arquivo XML na pasta log NomeArq := ACBrNFe1.NotasFiscais.Items[0].NomeArq; NomeArq := ExtractFileName(NomeArq); ACBrNFe1.NotasFiscais.Items[0].GravarXML(NomeArq); end;