Te Impressão De Eventos Com Fastreport (Variável Homologação Não Existe)

[windsoft]

Olá amigos boa tarde!

 

Encontrei um pequeno problema na impressao de eventos utilizando fastreport.

Ao pedir a impressão do evento em PRODUÇÃO aparece a mensagem: 

Variável ou campo de dados desconhecido HOMOLOGACAO, percebi que na unit ACBrCTeDACTEFRDM é passado uma variável chamada HOMOLOGACAO como True quando o evento está no ambiente de homologação, mas esta variável não é passada quando está em produção, ocasionando o erro. 

Para corrigir o problema alterei as seguintes linhas de código:

            case InfEvento.tpAmb of
              taProducao:
                begin
                  FieldByName('tpAmb').AsString := 'PRODUÇÃO';
                  frxReport.Variables['HOMOLOGACAO'] := False;
                end;
              taHomologacao:
                begin
                  FieldByName('tpAmb').AsString      := 'HOMOLOGAÇÃO - SEM VALOR FISCAL';
                  frxReport.Variables['HOMOLOGACAO'] := True;
                end;
            end;

e

              case InfEvento.tpAmb of
                taProducao:
                  begin
                    FieldByName('tpAmb').AsString := 'PRODUÇÃO';
                    frxReport.Variables['HOMOLOGACAO'] := False;
                  end;
                taHomologacao:
                  begin
                    FieldByName('tpAmb').AsString      := 'HOMOLOGAÇÃO - SEM VALOR FISCAL';
                    frxReport.Variables['HOMOLOGACAO'] := True;
                  end;
              end;

A unit corrigida está anexo.

Por favor disponibilizem esta correção no repositório para toda comunidade.

 

Abraço e obrigado a todos.

ACBrCTeDACTEFRDM.pas

[Juliomar Marchetti]

Boa tarde

Obrigado pela contribuição 

já está disponível

[windsoft]

Opa esta foi rápida hein! 

 

Abraço 

[windsoft]

Olá @Juliomar Marchetti bom dia!

Este erro voltou a acontecer na trunk2. Segue anexo a unit corrigida, por favor disponibilize a todos.

Att.

ACBrCTeDACTEFR.pas

ACBrCTe-change-log.txt

[Juliomar Marchetti]

Tem razão!

já está no svn

Obrigado

[windsoft]

@Juliomar Marchetti

Acabei encontrando outros erros que corrigi nestes arquivos. Favor disponibilizar para todos.

 

DACTE_EVENTOS.fr3

ACBrMDFeDAMDFEFRDM.pas

ACBrCTeDACTEFR.pas

ACBrCTe-change-log.txt

[romestuma]

Boa tarde. Eu estava tendo o mesmo problema,  vi os posts acima e fui verificar.  Atualizei hoje, a base do trunk2, apaguei antes a unit ACBrCTeDACTEFR.pas  para baixar, mas ela não veio com a alteração. Alterei manual o segundo case(linha: 1626) , e resolveu para mim: 

antes estava assim:

 case InfEvento.tpAmb of
                  taProducao:
                    FieldByName('tpAmb').AsString := 'PRODUÇÃO';
                  taHomologacao:
                    begin
                      FieldByName('tpAmb').AsString      := 'HOMOLOGAÇÃO - SEM VALOR FISCAL';
                      frxReport.Variables['HOMOLOGACAO'] := True;
                    end;
                end;

 

mudei assim:

 case InfEvento.tpAmb of
                  taProducao:
                  begin
                    FieldByName('tpAmb').AsString := 'PRODUÇÃO';
                    rxReport.Variables['HOMOLOGACAO'] := False;
                  end;    
                  taHomologacao:
                    begin
                      FieldByName('tpAmb').AsString      := 'HOMOLOGAÇÃO - SEM VALOR FISCAL';
                      frxReport.Variables['HOMOLOGACAO'] := True;
                    end;
                end;

 

ops, na linha acima, no primeiro begin, o correto é : frxReport.Variables['HOMOLOGACAO'] := False;   copiei errado, desculpem.

 

[hleorj]

@romestuma, no SVN , Revisão 10670.

@windsoft, poderia aplicar sua sugestões em cima desta revisão e postar em um novo post. 

Fecharei post.