Atualização Eventos - 2205

[emarcolongo]

Senhores, boa tarde.

Fizemos alguns testes na versão simplificada do evento 2200 e precisamos modificar algumas linhas para validar corretamente.

O erro esta no anexo

Segue o arquivo anexo, coloquei comentários nas linhas alteradas com a data de 06/05/2021, abaixo tb estará disponível

      sSecao := 'dadostrabalhador';
      trabalhador.NisTrab    := INIRec.ReadString(sSecao, 'nisTrab', EmptyStr);
      trabalhador.NmTrab     := INIRec.ReadString(sSecao, 'nmTrab', EmptyStr);
      trabalhador.Sexo       := INIRec.ReadString(sSecao, 'sexo', EmptyStr);
      trabalhador.RacaCor    := INIRec.ReadInteger(sSecao, 'racaCor', 1);
      trabalhador.EstCiv     := INIRec.ReadInteger(sSecao, 'estCiv', 1);
      trabalhador.GrauInstr  := INIRec.ReadString(sSecao, 'grauInstr', '01');
//      Trabalhador.IndPriEmpr := eSStrToSimNao(Ok, INIRec.ReadString(sSecao, 'indPriEmpr', 'S'));
      trabalhador.nmSoc      := INIRec.ReadString(sSecao, 'nmSoc', EmptyStr);
      trabalhador.PaisNac    := INIRec.ReadString(sSecao, 'paisNac', '');   //06/05/2021

 

pcesS2205.pas

[Juliana Tamizou]

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

[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.

[Juliomar Marchetti]

8 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.

por favor anexe o mesmo aqui para que ele possa ser corrigido

[Kelly Diego Rakelly]

Já esta anexado acima no post do @emarcolongo

[Juliomar Marchetti]

então é aguardar

[Kelly Diego Rakelly]

Agora, Juliomar Marchetti disse:

então é aguardar

Ok. Obrigada.

[EMBarbosa]

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

Senhores, boa tarde.

Fizemos alguns testes na versão simplificada do evento 2200 e precisamos modificar algumas linhas para validar corretamente.

O erro esta no anexo

Segue o arquivo anexo, coloquei comentários nas linhas alteradas com a data de 06/05/2021, abaixo tb estará disponível

      sSecao := 'dadostrabalhador';
      trabalhador.NisTrab    := INIRec.ReadString(sSecao, 'nisTrab', EmptyStr);
      trabalhador.NmTrab     := INIRec.ReadString(sSecao, 'nmTrab', EmptyStr);
      trabalhador.Sexo       := INIRec.ReadString(sSecao, 'sexo', EmptyStr);
      trabalhador.RacaCor    := INIRec.ReadInteger(sSecao, 'racaCor', 1);
      trabalhador.EstCiv     := INIRec.ReadInteger(sSecao, 'estCiv', 1);
      trabalhador.GrauInstr  := INIRec.ReadString(sSecao, 'grauInstr', '01');
//      Trabalhador.IndPriEmpr := eSStrToSimNao(Ok, INIRec.ReadString(sSecao, 'indPriEmpr', 'S'));
      trabalhador.nmSoc      := INIRec.ReadString(sSecao, 'nmSoc', EmptyStr);
      trabalhador.PaisNac    := INIRec.ReadString(sSecao, 'paisNac', '');   //06/05/2021

 

pcesS2205.pas 18 kB · 2 downloads

Muito obrigado pela contribuição.
Fiz a implementação baseada nela.
Subi as alterações para o SVN na Revisão  21851.
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 13:04, EMBarbosa disse:

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