Jump to content

chamada diadoacbr

Assista tectoy.png

Atualização - Eventos 2206


emarcolongo
Go to solution Solved by EMBarbosa,
  • Este tópico foi criado há 407 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Senhores, boa tarde.

Fizemos alguns testes na versão simplificada do evento 2206 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';
      altContratual.infoContrato.CodCargo    := INIRec.ReadString(sSecao, 'codCargo', '');
      altContratual.infoContrato.CodFuncao   := INIRec.ReadString(sSecao, 'codFuncao', '');
      altContratual.infoContrato.CodCateg    := INIRec.ReadInteger(sSecao, 'codCateg', 0);
      altContratual.infoContrato.codCarreira := INIRec.ReadString(sSecao, 'codCarreira', '');
      altContratual.infoContrato.dtIngrCarr  := StringToDateTime(INIRec.ReadString(sSecao, 'dtIngrCarr', '0'));

      altContratual.infoContrato.nmCargo      := INIRec.ReadString(sSecao, 'nmCargo', '');                                  //06/05/2021
      altContratual.infoContrato.CBOCargo     := INIRec.ReadString(sSecao, 'CBOCargo', '');                                 //06/05/2021
      altContratual.infoContrato.dtIngrCargo  := StringToDateTime(INIRec.ReadString(sSecao, 'dtIngrCargo', '0'));           //06/05/2021
      altContratual.infoContrato.nmFuncao     := INIRec.ReadString(sSecao, 'nmFuncao', '');                                 //06/05/2021
      altContratual.infoContrato.CBOFuncao    := INIRec.ReadString(sSecao, 'CBOFuncao', '');                                //06/05/2021
      altContratual.infoContrato.acumCargo    := eSStrToSimNaoFacultativo(Ok, INIRec.ReadString(sSecao, 'acumCargo', ''));  //06/05/2021

----------------------------------------------------------------------------------------------------

      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', '');       //06/05/2021
        altContratual.infoContrato.horContratual.tmpParc   := StrTotpTmpParc(Ok, INIRec.ReadString(sSecao, 'tmpParc', '0'));
      end;

 

Eduardo / Keli

pcesS2206.pas

  • Like 1
Link to comment
Share on other sites

  • Administradores

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

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

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
6 minutos atrás, Kelly Diego Rakelly disse:

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?

favor anexar para que possa ser corrigido

 

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

 

Link to comment
Share on other sites

  • Consultores
  • Solution
Em 07/05/2021 at 16:20, emarcolongo disse:

Senhores, boa tarde.

Fizemos alguns testes na versão simplificada do evento 2206 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';
      altContratual.infoContrato.CodCargo    := INIRec.ReadString(sSecao, 'codCargo', '');
      altContratual.infoContrato.CodFuncao   := INIRec.ReadString(sSecao, 'codFuncao', '');
      altContratual.infoContrato.CodCateg    := INIRec.ReadInteger(sSecao, 'codCateg', 0);
      altContratual.infoContrato.codCarreira := INIRec.ReadString(sSecao, 'codCarreira', '');
      altContratual.infoContrato.dtIngrCarr  := StringToDateTime(INIRec.ReadString(sSecao, 'dtIngrCarr', '0'));

      altContratual.infoContrato.nmCargo      := INIRec.ReadString(sSecao, 'nmCargo', '');                                  //06/05/2021
      altContratual.infoContrato.CBOCargo     := INIRec.ReadString(sSecao, 'CBOCargo', '');                                 //06/05/2021
      altContratual.infoContrato.dtIngrCargo  := StringToDateTime(INIRec.ReadString(sSecao, 'dtIngrCargo', '0'));           //06/05/2021
      altContratual.infoContrato.nmFuncao     := INIRec.ReadString(sSecao, 'nmFuncao', '');                                 //06/05/2021
      altContratual.infoContrato.CBOFuncao    := INIRec.ReadString(sSecao, 'CBOFuncao', '');                                //06/05/2021
      altContratual.infoContrato.acumCargo    := eSStrToSimNaoFacultativo(Ok, INIRec.ReadString(sSecao, 'acumCargo', ''));  //06/05/2021

----------------------------------------------------------------------------------------------------

      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', '');       //06/05/2021
        altContratual.infoContrato.horContratual.tmpParc   := StrTotpTmpParc(Ok, INIRec.ReadString(sSecao, 'tmpParc', '0'));
      end;

 

Eduardo / Keli

pcesS2206.pas 24 kB · 0 downloads

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

Mais uma vez obrigado.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

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

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

Em 15/05/2021 at 13:06, EMBarbosa disse:

Muito obrigado pela contribuição.
Fiz a implementação baseada nela.
Subi as alterações para o SVN na Revisão  21852.
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.

Link to comment
Share on other sites

  • Este tópico foi criado há 407 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • 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.