Correção S2299 - Desligamento de intermitente

[Rodrigo - Digibyte]

Olá. Algumas tags referente a quantidade de dias trabalhados no desligamento de intermitente não estavam sendo geradas corretamente, segue correção.

 

  //O campo é sempre obrigatório para a categoria 111 (Intermitente)
  if (VersaoDF = ve02_05_00) then
  begin
    Gerador.wCampo(tcStr, '', 'indCumprParc', 1,   1, 1, eSTpCumprParcialAvisoToStr(obj.indCumprParc));
    if ((obj.QtdDiasInterm >= 0) or (obj.CodCateg = 111))  then
      Gerador.wCampo(tcInt, '', 'qtdDiasInterm', 1,   2, 1, obj.QtdDiasInterm);
  end;

  if (VersaoDF = veS01_00_00) and (obj.infoIntermInst()) then
    GerarinfoInterm(obj.infoInterm);

 

Abaixo o código incorreto, mesmo com zero dias deve informar a tag. Aproveitei e tirei referência a versão ve02_04_01 que não existe mais e modifiquei pensando na versão simplificada.

  if VersaoDF <= ve02_05_00 then
  begin
    Gerador.wCampo(tcStr, '', 'indCumprParc', 1,   1, 1, eSTpCumprParcialAvisoToStr(obj.indCumprParc));
    
    //O campo é sempre obrigatório para a categoria 111 (Intermitente)
    if (VersaoDF <> ve02_04_01) and
       ((obj.QtdDiasInterm > 0) or (obj.CodCateg = 111))  then
      Gerador.wCampo(tcInt, '', 'qtdDiasInterm', 1,   2, 1, obj.QtdDiasInterm);
  end;

 

pcesS2299.pas

[Juliana Tamizou]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn

TK-2020

[EMBarbosa]

Em 19/10/2021 at 14:57, Digibyte disse:

Olá. Algumas tags referente a quantidade de dias trabalhados no desligamento de intermitente não estavam sendo geradas corretamente, segue correção.

 

  //O campo é sempre obrigatório para a categoria 111 (Intermitente)
  if (VersaoDF = ve02_05_00) then
  begin
    Gerador.wCampo(tcStr, '', 'indCumprParc', 1,   1, 1, eSTpCumprParcialAvisoToStr(obj.indCumprParc));
    if ((obj.QtdDiasInterm >= 0) or (obj.CodCateg = 111))  then
      Gerador.wCampo(tcInt, '', 'qtdDiasInterm', 1,   2, 1, obj.QtdDiasInterm);
  end;

  if (VersaoDF = veS01_00_00) and (obj.infoIntermInst()) then
    GerarinfoInterm(obj.infoInterm);

 

Abaixo o código incorreto, mesmo com zero dias deve informar a tag. Aproveitei e tirei referência a versão ve02_04_01 que não existe mais e modifiquei pensando na versão simplificada.

  if VersaoDF <= ve02_05_00 then
  begin
    Gerador.wCampo(tcStr, '', 'indCumprParc', 1,   1, 1, eSTpCumprParcialAvisoToStr(obj.indCumprParc));
    
    //O campo é sempre obrigatório para a categoria 111 (Intermitente)
    if (VersaoDF <> ve02_04_01) and
       ((obj.QtdDiasInterm > 0) or (obj.CodCateg = 111))  then
      Gerador.wCampo(tcInt, '', 'qtdDiasInterm', 1,   2, 1, obj.QtdDiasInterm);
  end;

 

pcesS2299.pas 48 kB · 0 downloads

Muito obrigado pela contribuição.
Fiz a implementação baseada nela.
Subi as alterações para o SVN na Revisão  23475.
Pelo que vi está tudo certo.
Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.