pcesS1210.pas TAG [detRubrFer], [penAlim] Correção Fontes

IMATECH · 5 Fevereiro, 2020

"J" deve ter 1 dígito, esta sendo considerado 3 causando a omissão da leitura da informação (Pensão Alimentícia no Recibo de Férias)

sSecao := 'detRubrFer' + IntToStrZero(I, 2) + IntToStrZero(J, 1) + IntToStrZero(K, 2);
sSecao := 'penAlim' + IntToStrZero(I, 2) + IntToStrZero(J, 3) + IntToStrZero(K, 2) + IntToStrZero(L, 2);

[Correção]:

sSecao := 'penAlim' + IntToStrZero(I, 2) + IntToStrZero(J, 1) + IntToStrZero(K, 2) + IntToStrZero(L, 2);

pcesS1210.pas linha ~1318~

              K := 1;
              while true do
              begin
                // de 01 até 99
                sSecao := 'detRubrFer' + IntToStrZero(I, 2) + IntToStrZero(J, 1) +
                               IntToStrZero(K, 2);
                sFim   := INIRec.ReadString(sSecao, 'codRubr', 'FIM');

                if (sFim = 'FIM') or (Length(sFim) <= 0) then
                  break;

                with detRubrFer.New do
                begin
                  codRubr    := sFim;
                  ideTabRubr := INIRec.ReadString(sSecao, 'ideTabRubr', EmptyStr);
                  qtdRubr    := StringToFloatDef(INIRec.ReadString(sSecao, 'qtdRubr', ''), 0);
                  fatorRubr  := StringToFloatDef(INIRec.ReadString(sSecao, 'fatorRubr', ''), 0);
                  vrUnit     := StringToFloatDef(INIRec.ReadString(sSecao, 'vrUnit', ''), 0);
                  vrRubr     := StringToFloatDef(INIRec.ReadString(sSecao, 'vrRubr', ''), 0);

                  L := 1;
                  while true do
                  begin
                    // de 01 até 99
                    sSecao := 'penAlim' + IntToStrZero(I, 2) + IntToStrZero(J, 1) +
                                   IntToStrZero(K, 2) + IntToStrZero(L, 2);
                    sFim   := INIRec.ReadString(sSecao, 'cpfBenef', 'FIM');

                    if (sFim = 'FIM') or (Length(sFim) <= 0) then
                      break;

                    with penAlim.New do
                    begin
                      cpfBenef      := sFim;
                      dtNasctoBenef := StringToDateTime(INIRec.ReadString(sSecao, 'dtNasctoBenef', '0'));
                      nmBenefic     := INIRec.ReadString(sSecao, 'nmBenefic', EmptyStr);
                      vlrPensao     := StringToFloatDef(INIRec.ReadString(sSecao, 'vlrPensao', ''), 0);
                    end;

                    Inc(L);
                  end;

                end;

                Inc(K);
              end;

            end;

            Inc(J);
          end;