Boa tarde Italo,
Estou fazendo alguns testes no evento S-2399 Desligamento para trabalhadores sem Vínculo e esta acontecendo a mesma coisa que estava no S-1200, na Tag detPlano
while true do
begin
// de 01 até 99
sSecao := 'detPlano' + IntToStrZero(I, 2) + IntToStrZero(J, 2) +
IntToStrZero(K, 3) + IntToStrZero(L, 2) + IntToStrZero(M, 2);
sFim := INIRec.ReadString(sSecao, 'cpfDep', 'FIM');
if (sFim = 'FIM') or (Length(sFim) <= 0) then
break;
with detPlano.Add do
begin
tpDep := eSStrToTpDep(Ok, INIRec.ReadString(sSecao, 'tpDep', '00'));
cpfDep := sFim;
nmDep := INIRec.ReadString(sSecao, 'nmDep', '');
dtNascto := StringToDateTime(INIRec.ReadString(sSecao, 'dtNascto', '0'));
vlrPgDep := StringToFloatDef(INIRec.ReadString(sSecao, 'vlrPgDep', ''), 0);
end;
Inc(M);
end;
end;
Está validando pelo o CPF é a situação é a mesma somente é obrigatório o CPF para dependentes maiores ou igual a 8 anos, a informação dos dependentes sem CPF não esta aparecendo.