Evento S-1280 - Criar TAG infoPercTransf11096 somente se houver valor informado (.INI e Componente)

[IMATECH]

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

[Alexandre de Paula]

Boa tarde,

Criada a TK-4153 para avaliar a contribuição.

Obrigado!

[Alexandre de Paula]

Bom dia,

Atualizado SVN na Rev. 30055 com a sua contribuição.

Por favor, atualize o SVN, reinstale os componentes e faça novos testes.
Obrigado!!!