Atualização - Eventos 2200

[emarcolongo]

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

[Kelly Diego Rakelly]

Bom dia, estava realizando os testes juntamente com o @emarcolongo, e foi necessário fazer esses ajustes para validar o evento, será que o mesmo já foi validado para o SVN.

[Juliana Tamizou]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn

[EMBarbosa]

Em 07/05/2021 at 15:02, emarcolongo disse:

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 29 kB · 1 download

Muito obrigado pela contribuição.
Fiz a implementação baseada nela.
Subi as alterações para o SVN na Revisão  21849.
Pelo que vi está tudo certo.
Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.

[Kelly Diego Rakelly]

Em 15/05/2021 at 12:51, EMBarbosa disse:

Muito obrigado pela contribuição.
Fiz a implementação baseada nela.
Subi as alterações para o SVN na Revisão  21849.
Pelo que vi está tudo certo.
Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.

Bom dia, fizemos atualização e fizemos novamente os testes e deu tudo certo, muito obrigada.