Bom dia.
Aqui precisamos adicionar as linhas nos arquivos abaixo :
pcesS2200.pas (linha 521)
sSecao := 'horContratual';
if INIRec.ReadString(sSecao, 'tpJornada', '') <> '' then
begin
vinculo.infoContrato.horContratual.QtdHrsSem := INIRec.ReadInteger(sSecao, 'qtdHrsSem', 0);
vinculo.infoContrato.horContratual.TpJornada := eSStrToTpJornada(Ok, INIRec.ReadString(sSecao, 'tpJornada', '1'));
vinculo.infoContrato.horContratual.DscTpJorn := INIRec.ReadString(sSecao, 'dscTpJorn', '');
vinculo.infoContrato.horContratual.dscJorn := INIRec.ReadString(sSecao, 'dscJorn', '');
vinculo.infoContrato.horContratual.tmpParc := StrTotpTmpParc(Ok, INIRec.ReadString(sSecao, 'tmpParc', '0'));
vinculo.infoContrato.horContratual.horNoturno:= eSStrToSimNao(Ok, INIRec.ReadString(sSecao, 'horNoturno', 'S')); //26/01/2022--Adicionado
end;
pcesS2206.pas (linha 570)
sSecao := 'horContratual';
if INIRec.ReadString(sSecao, 'qtdHrsSem', '') <> '' then
begin
altContratual.infoContrato.horContratual.QtdHrsSem := StrtoFloatDef(IniRec.ReadString(sSecao,'qtdHrsSem','0'),0);
altContratual.infoContrato.horContratual.TpJornada := eSStrToTpJornada(Ok, INIRec.ReadString(sSecao, 'tpJornada', '1'));
altContratual.infoContrato.horContratual.DscTpJorn := INIRec.ReadString(sSecao, 'dscTpJorn', '');
altContratual.infoContrato.horContratual.dscJorn := INIRec.ReadString(sSecao, 'dscJorn', '');
altContratual.infoContrato.horContratual.tmpParc := StrTotpTmpParc(Ok, INIRec.ReadString(sSecao, 'tmpParc', '0'));
altContratual.infoContrato.horContratual.horNoturno:= eSStrToSimNao(Ok, INIRec.ReadString(sSecao, 'horNoturno', 'S')); //26/01/2022 -- Adicionado
end;
Segue para validação
Eduardo / Keli
pcesS2206.pas
pcesS2200.pas