Pesquisar na Comunidade

Boa tarde colegas, estou com a seguinte situação em alguns clientes que possuem histórico de problemas com a internet. Situação problema : o usuário após tentar emitir uma NFe recebe mensagem de problemas na emissão porém a NFe tem vinculando um protocolo (status 100 emitida) da nota anteriormente emitida. Como simular : faço a emissão normal de uma NFe e após estou alterando a config da internet para e desmarcando os TLS. (no cliente dá a mensagem 'Erro no suporte a canais seguros'), mas enfim o tratamento é semelhante. Procedimentos utilizados : ACBrNFe_NFe.NotasFiscais.Clear; // executando antes de qualquer atribuição aos campos da NFe, aqui não consigo debugar F7 não leva pra lugar nenhum // aqui atribui todos os campos da NFe; ACBrNFe_NFe.NotasFiscais.Validar; ACBrNFe_NFe.NotasFiscais.GerarNFe; try ACBrNFe_NFe.Enviar(iLote, True); excet memoLog.Lines.Add('>>>'); memoLog.Lines.Add('Problemas na emissão da NF-e'); memoLog.Lines.Add( IntToStr(ACBrNFe_NFe.WebServices.Retorno.cStat) +' ' + ACBrNFe_NFe.WebServices.Retorno.xMotivo); // aqui ocorre a divergência este ACBrNFe_NFe.WebServices.Retorno está com os valores da nota anterior, o log mostrado é assim "100 Autorizado o uso da NF-e" memoLog.Lines.Add('[RetornoWS]'+ACBrNFe_NFe.WebServices.Retorno.RetornoWS); // aqui gravo o retorno de "ERRO" para que seja tratado /// e aqui nesse ponto é onde o meu sistema fica com a nota sem emitir, mas com status de emitida com o protocolo da nota anterior // tratamento para as exceções end; Componente atualizado hoje de manhã até a revisão nro 12561 do SVN. Alguém já passou por algo semelhante ?

Boa tarde a todos.. venho mais uma vez aqui solicitar mais ajudar sobre o acbr trunk2 no delphi 7, gostaria de uma código que enviese a Message de erro certa sem eu custumizar, pois eu estou usando assim.. e muitas das vezes não é o da messagem descrita abaixo .. alguem pode me da uma luz de como resolve isso... try ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310; GerarNFCe(vAux); ACBrNFe1.Enviar(vNumLote,True,Sincrono); ACBrNFe1.NotasFiscais.Clear; except ExcluirPedidoNFCEError.Close; ExcluirPedidoNFCEError.Params.ParamByName('pid_venda').AsInteger := cdsGeradorCodigoNFCEID_VENDA.AsInteger + 1; ExcluirPedidoNFCEError.ExecSQL(); ACBrNFe1.NotasFiscais.Clear; MessageDlg('Falha no envio da NFC-E. Erro na Sefaz ou Internet.', mtError, [mbOK],0); abort; end;