Atualização - Evento 2306

[emarcolongo]

Senhores, boa tarde.

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

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

 

      sSecao := 'infoComplementares';
      if INIRec.ReadString(sSecao, 'codCargo', '') <> '' then
      begin
        infoTSVAlteracao.infoComplementares.cargoFuncao.CodCargo  := INIRec.ReadString(sSecao, 'codCargo', '');
        infoTSVAlteracao.infoComplementares.cargoFuncao.CodFuncao := INIRec.ReadString(sSecao, 'codFuncao', '');
      end;
      infoTSVAlteracao.infoComplementares.cargoFuncao.nmCargo   := INIRec.ReadString(sSecao, 'nmCargo', '');  //01/06/2021
      infoTSVAlteracao.infoComplementares.cargoFuncao.CBOCargo  := INIRec.ReadString(sSecao, 'CBOCargo', '');  //01/06/2021
      infoTSVAlteracao.infoComplementares.cargoFuncao.nmFuncao  := INIRec.ReadString(sSecao, 'nmFuncao', '');  //01/06/2021
      infoTSVAlteracao.infoComplementares.cargoFuncao.CBOFuncao := INIRec.ReadString(sSecao, 'CBOFuncao', '');  //01/06/2021
---------------------------------------------------------------------------

	  sSecao := 'ideTrabSemVinculo';
      ideTrabSemVinc.CpfTrab    := INIRec.ReadString(sSecao, 'cpfTrab', EmptyStr);
      ideTrabSemVinc.NisTrab    := INIRec.ReadString(sSecao, 'nisTrab', EmptyStr);
      ideTrabSemVinc.codCateg   := INIRec.ReadInteger(sSecao, 'codCateg', 0);
      ideTrabSemVinc.matricula  := INIRec.ReadString(sSecao, 'matricula', EmptyStr);  //01/06/2021

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

procedure TEvtTSVAltContr.GerarInstEnsino(obj: TinstEnsino);
begin
  Gerador.wGrupo('instEnsino');

  Gerador.wCampo(tcStr, '', 'cnpjInstEnsino', 14,  14, 0, obj.cnpjInstEnsino);
  if (obj.cnpjInstEnsino = '') then   //01/06/2021 -- Preenchendo somente se não tiver CNPJ
  begin
    Gerador.wCampo(tcStr, '', 'nmRazao',         1, 100, 1, obj.nmRazao);
    Gerador.wCampo(tcStr, '', 'dscLograd',       1,  80, 0, obj.dscLograd);
    Gerador.wCampo(tcStr, '', 'nrLograd',        1,  10, 0, obj.nrLograd);
    Gerador.wCampo(tcStr, '', 'bairro',          1,  60, 0, obj.bairro);
    Gerador.wCampo(tcStr, '', 'cep',             1,   8, 0, obj.cep);
    Gerador.wCampo(tcInt, '', 'codMunic',        7,   7, 0, obj.codMunic);
    Gerador.wCampo(tcStr, '', 'uf',              2,   2, 0, obj.uf);
  end;

  Gerador.wGrupo('/instEnsino');
end;

 

Grato

Eduardo / Keli

pcesS2306.pas

[Juliana Tamizou]

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

[EMBarbosa]

Em 02/06/2021 at 15:53, emarcolongo disse:

Senhores, boa tarde.

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

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

 

      sSecao := 'infoComplementares';
      if INIRec.ReadString(sSecao, 'codCargo', '') <> '' then
      begin
        infoTSVAlteracao.infoComplementares.cargoFuncao.CodCargo  := INIRec.ReadString(sSecao, 'codCargo', '');
        infoTSVAlteracao.infoComplementares.cargoFuncao.CodFuncao := INIRec.ReadString(sSecao, 'codFuncao', '');
      end;
      infoTSVAlteracao.infoComplementares.cargoFuncao.nmCargo   := INIRec.ReadString(sSecao, 'nmCargo', '');  //01/06/2021
      infoTSVAlteracao.infoComplementares.cargoFuncao.CBOCargo  := INIRec.ReadString(sSecao, 'CBOCargo', '');  //01/06/2021
      infoTSVAlteracao.infoComplementares.cargoFuncao.nmFuncao  := INIRec.ReadString(sSecao, 'nmFuncao', '');  //01/06/2021
      infoTSVAlteracao.infoComplementares.cargoFuncao.CBOFuncao := INIRec.ReadString(sSecao, 'CBOFuncao', '');  //01/06/2021
---------------------------------------------------------------------------

	  sSecao := 'ideTrabSemVinculo';
      ideTrabSemVinc.CpfTrab    := INIRec.ReadString(sSecao, 'cpfTrab', EmptyStr);
      ideTrabSemVinc.NisTrab    := INIRec.ReadString(sSecao, 'nisTrab', EmptyStr);
      ideTrabSemVinc.codCateg   := INIRec.ReadInteger(sSecao, 'codCateg', 0);
      ideTrabSemVinc.matricula  := INIRec.ReadString(sSecao, 'matricula', EmptyStr);  //01/06/2021

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

procedure TEvtTSVAltContr.GerarInstEnsino(obj: TinstEnsino);
begin
  Gerador.wGrupo('instEnsino');

  Gerador.wCampo(tcStr, '', 'cnpjInstEnsino', 14,  14, 0, obj.cnpjInstEnsino);
  if (obj.cnpjInstEnsino = '') then   //01/06/2021 -- Preenchendo somente se não tiver CNPJ
  begin
    Gerador.wCampo(tcStr, '', 'nmRazao',         1, 100, 1, obj.nmRazao);
    Gerador.wCampo(tcStr, '', 'dscLograd',       1,  80, 0, obj.dscLograd);
    Gerador.wCampo(tcStr, '', 'nrLograd',        1,  10, 0, obj.nrLograd);
    Gerador.wCampo(tcStr, '', 'bairro',          1,  60, 0, obj.bairro);
    Gerador.wCampo(tcStr, '', 'cep',             1,   8, 0, obj.cep);
    Gerador.wCampo(tcInt, '', 'codMunic',        7,   7, 0, obj.codMunic);
    Gerador.wCampo(tcStr, '', 'uf',              2,   2, 0, obj.uf);
  end;

  Gerador.wGrupo('/instEnsino');
end;

 

Grato

Eduardo / Keli

pcesS2306.pas 25 kB · 2 downloads

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

Mais uma vez obrigado.

[Kelly Diego Rakelly]

Em 11/06/2021 at 11:09, EMBarbosa disse:

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

Mais uma vez obrigado.

Boa tarde, teste realizado, tudo certinho. Muito obrigada.

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.