Jump to content

dev botao

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


IMATECH
Go to solution Solved by Italo Giurizzato Junior,
  • Este tópico foi criado há 1573 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 comment
Share on other sites

  • Administradores

Bom dia.

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

Att.

  • Like 1
Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

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

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Consultores
  • Solution

Boa tarde,

Muito obrigado pela colaboração, já esta no repositório.

  • Like 1
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link to comment
Share on other sites

  • Este tópico foi criado há 1573 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...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.