Correção abaixo demonstrando:
Procedure TEvtInfoComplPer.GerarInfoAtivConcom;
begin
if (FClassTrib = ct03) or (InfoAtivConcom.fatorMes <> 0) then
begin
Gerador.wGrupo('infoAtivConcom');
Gerador.wCampo(tcDe2, '', 'fatorMes', 1, 5, 1, InfoAtivConcom.fatorMes);
Gerador.wGrupo('/infoAtivConcom');
end
else if (FClassTrib = ct03) or (InfoAtivConcom.fator13 <> 0) then
begin
Gerador.wGrupo('infoAtivConcom');
Gerador.wCampo(tcDe2, '', 'fator13', 1, 5, 1, InfoAtivConcom.fator13);
Gerador.wGrupo('/infoAtivConcom');
end;
end;
pcesS1280.pas