Senhores, boa tarde.
Fizemos alguns testes na versão simplificada do evento 2200 e precisamos modificar algumas linhas para validar corretamente.
Segue o arquivo anexo, coloquei comentários nas linhas alteradas com a data de 06/05/2021, abaixo tb estará disponível
sSecao := 'infoContrato';
vinculo.infoContrato.CodCargo := INIRec.ReadString(sSecao, 'codCargo', '');
vinculo.infoContrato.CodFuncao := INIRec.ReadString(sSecao, 'codFuncao', '');
vinculo.infoContrato.CodCateg := INIRec.ReadInteger(sSecao, 'codCateg', 0);
vinculo.infoContrato.codCarreira := INIRec.ReadString(sSecao, 'codCarreira', '');
vinculo.infoContrato.dtIngrCarr := StringToDateTime(INIRec.ReadString(sSecao, 'dtIngrCarr', '0'));
vinculo.infoContrato.nmCargo := INIRec.ReadString(sSecao, 'nmCargo', ''); //06/05/2021
vinculo.infoContrato.CBOCargo := INIRec.ReadString(sSecao, 'CBOCargo', ''); //06/05/2021
vinculo.infoContrato.dtIngrCargo := StringToDateTime(INIRec.ReadString(sSecao, 'dtIngrCargo', '0')); //06/05/2021
vinculo.infoContrato.nmFuncao := INIRec.ReadString(sSecao, 'nmFuncao', ''); //06/05/2021
vinculo.infoContrato.CBOFuncao := INIRec.ReadString(sSecao, 'CBOFuncao', ''); //06/05/2021
vinculo.infoContrato.acumCargo := eSStrToSimNaoFacultativo(Ok, INIRec.ReadString(sSecao, 'acumCargo', '')); //06/05/2021
------------------------------------------------------------------------------------------------------
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', ''); //06/05/2021
vinculo.infoContrato.horContratual.tmpParc := StrTotpTmpParc(Ok, INIRec.ReadString(sSecao, 'tmpParc', '0'));
end;
Grato
Eduardo / Keli
pcesS2200.pas