Jump to content

dia-do-acbr-online.png

Ganhe acesso a todas Palestras
Assinando o Suporte ACBr Comercial

Saiba Mais


dia-do-acbr-online.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


botao.png

beneficios.png

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


Go to solution Solved by Italo Giurizzato Junior,
  • Este tópico foi criado há 300 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui

Recommended Posts

"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;

 

  • Like 1

by IMATECH
[email protected]
Goiânia - GO.

Link to post
Share on other sites

Bom dia.

Obrigada pela contribuição, adicionada para validação.

Att.

  • Like 1
Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to post
Share on other sites
  • Este tópico foi criado há 300 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...