Mensagem De Homologação Na Impressão

[Leonardo Gregianin]

Alteração para impressão da mensagem de homologação na DANFse quando o CNPJ do tomador for 99.999.999/0001-91. Não encontrei outra forma de se fazer isso, se houver, compartilhe por favor.

 

Testei no QuickReport 5.02.

@@ -314,7 +314,7 @@
  qrlTomaUF.Caption := FNFSe.Tomador.Endereco.UF;
  qrlTomaEmail.Caption := FNFSe.Tomador.Contato.Email;
 
- // Mensagem para modo Homologacao.
+ // Mensagem para NFS-e cancelada.
  qrlMsgTeste.Visible := False;
  qrlMsgTeste.Enabled := False;
  if FNFSe.NfseCancelamento.DataHora<>0
@@ -325,6 +325,17 @@
   end;
  qrlMsgTeste.Repaint;
 
+ // Mensagem para modo Homologacao.
+ qrlMsgTeste.Visible := False;
+ qrlMsgTeste.Enabled := False;
+ if (FNFSe.Tomador.IdentificacaoTomador.CpfCnpj = '99999999000191') then
+ begin
+  qrlMsgTeste.Caption := 'AMBIENTE DE HOMOLOGAÇÃO - SEM VALOR FISCAL';
+  qrlMsgTeste.Visible := True;
+  qrlMsgTeste.Enabled := True;
+ end;
+ qrlMsgTeste.Repaint;
+
 (*
  if FNFSe.Ide.tpAmb = taHomologacao
   then begin