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.
