De:
procedure TEvtInfoComplPer.GerarinfoPercTransf11096;
begin
if VersaoDF > ve02_05_00 then
begin
Gerador.wGrupo('infoPercTransf11096');
Gerador.wCampo(tcStr, '', 'percTransf', 1, 1, 1, infoPercTransf11096.percTransf);
Gerador.wGrupo('/infoPercTransf11096');
end;
end;
...
sSecao := 'infoPercTransf11096';
infoPercTransf11096.percTransf := StrToIntDef(INIRec.ReadString(sSecao, 'percTrans', ''), 0);
Para:
procedure TEvtInfoComplPer.GerarinfoPercTransf11096;
begin
if VersaoDF > ve02_05_00 then
if infoPercTransf11096.percTransf > 0 then
begin
Gerador.wGrupo('infoPercTransf11096');
Gerador.wCampo(tcStr, '', 'percTransf', 1, 1, 1, infoPercTransf11096.percTransf);
Gerador.wGrupo('/infoPercTransf11096');
end;
end;
...
sSecao := 'infoPercTransf11096';
if INIRec.ReadString(sSecao, 'percTrans', '') <> ''then
begin
infoPercTransf11096.percTransf := StrToIntDef(INIRec.ReadString(sSecao, 'percTrans', ''), 0);
end;
pcesS1280.pas