Correção NFCe para evitar erro 204-Duplicidade de NF-e

[Warquia]

Segue em anexo a classe ACBrECFVirtualNFCe.pas com correção para não enviar a NFCe novamente no seguinte momento.

Quando ha a autorização de um NFCe e ocorre qualquer tipo de erro na impressão(sem papel/sem comunicação e etc), o sistema avisa e pergunta "Erro na impressão. Deseja tentar novamente ?" caso o usuário opte pelo Sim
nesse momento o componente enviar novamente a NFCe causando a duplicidade quando deveria apenas tentar imprimir pois o componente está preenchido como "confirmada" e cstat = 100
método TACBrECFVirtualNFCeClass.FechaCupomVirtual;

@Régys Silveira Possivelmente é uns dos problemas que você comentou na Live do "Intensive Delphi" de ontem sobre o seu cliente de Goiás.

ACBrECFVirtualNFCe.pas

[Régys Silveira]

Estava olhando a unit alterada e conversando com o @Daniel Simoes, não seria o caso também de conferir o Digest Value da nota para ter certeza que ela não foi alterada?

[Warquia]

Concordo plenamente, precisamos tem mais segurança quanto a isso, vou analisar e implementar a verificação e retorno como o resultado.

Att, 

[Warquia]

@Régys Silveira, não estou conseguindo fazer a conferencia do Digest Value pois não encontro o campo de comparação do Webservices de retorno

Aqui tem o Digest: fsACBrNFCe.NotasFiscais.Items[0].NFe.signature.DigestValue 
Aqui não tem o Digest: fsACBrNFCe.WebServices.Retorno

Alguma sugestão de como capturar?

Editado 9 Janeiro, 2017 por Warquia Pereira

[Warquia]

Correção proposta, com o teste do Digest Value para segurança. grato @Régys Silveira e @Daniel Simoes
 

Também segue em anexo class do segundo tópico, como estão com a mesma referença na classe tive que postar aqui também.

 

ACBrNFeDANFEClass.pas

ACBrECFVirtualNFCe.pas

Editado 26 Abril, 2017 por Warquia Pereira