DANFCe A4 não exibe chave de acesso para notas em contingência

[Túlio de Pádua]

Percebi que o DANFCe em Fortes A4 não estava exibindo a chave de acesso para notas em contingência off-line. No local da chave era exibida a frase "NFC-E NÃO ENVIADA PARA SEFAZ".

No fonte a verificação para a impressão desse label está incorreta:

procedure TfrmACBrDANFCeFortesFrA4.RLLabel37BeforePrint(Sender: TObject;
  var Text: string; var PrintIt: Boolean);
begin
  Text := FormatarChaveAcesso(OnlyNumber(self.FACBrNFeDANFCeFortesA4.FpNFe.infNFe.ID));

  if FACBrNFeDANFCeFortesA4.FpNFe.procNFe.cStat = 0 then
  begin
    Text  := ACBrStr('NFC-E NÃO ENVIADA PARA SEFAZ');
    RLLabel37.Font.Color := clRed;
  end;
end;

Está verificando apenas o cStat. Adaptei para ficar conforme os demais modelos, onde verifica também o tipo de emissão:

procedure TfrmACBrDANFCeFortesFrA4.RLLabel37BeforePrint(Sender: TObject;
  var Text: string; var PrintIt: Boolean);
begin
  Text := FormatarChaveAcesso(OnlyNumber(self.FACBrNFeDANFCeFortesA4.FpNFe.infNFe.ID));

  if (FACBrNFeDANFCeFortesA4.FpNFe.Ide.tpEmis = teNormal) and (FACBrNFeDANFCeFortesA4.FpNFe.procNFe.cStat = 0) then
  begin
    Text  := ACBrStr('NFC-E NÃO ENVIADA PARA SEFAZ');
    RLLabel37.Font.Color := clRed;
  end;
end;

Arquivo em anexo.

ACBrDANFCeFortesFrA4.pas

[Juliana Tamizou]

Boa tarde.

Obrigada pela contribuição, adicionada para validação.

Att.

[Italo Giurizzato Junior]

Bom dia Túlio,

Muito obrigado pela contribuição, já esta no repositório.