Atualização - Evento 2298

[emarcolongo]

Senhores, boa tarde.

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

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

procedure TEvtReintegr.GerarInfoReintegr;
begin
  Gerador.wGrupo('infoReintegr');

  Gerador.wCampo(tcStr, '', 'tpReint', 1, 1, 1, eSTpReintToStr(self.InfoReintegr.tpReint));

  if eSTpReintToStr(self.InfoReintegr.tpReint) = '1' then
    Gerador.wCampo(tcStr, '', 'nrProcJud', 1, 20, 0, self.InfoReintegr.nrProcJud);

  if eSTpReintToStr(self.InfoReintegr.tpReint) = '2' then
    Gerador.wCampo(tcStr, '', 'nrLeiAnistia', 5, 13, 0, self.InfoReintegr.nrLeiAnistia);

  Gerador.wCampo(tcDat, '', 'dtEfetRetorno', 10, 10, 1, self.InfoReintegr.dtEfetRetorno);
  Gerador.wCampo(tcDat, '', 'dtEfeito',      10, 10, 1, self.InfoReintegr.dtEfeito);
  if VersaoDF <= ve02_05_00 then  //20/05/2021
     Gerador.wCampo(tcStr, '', 'indPagtoJuizo',  1,  1, 1, eSSimNaoToStr(self.InfoReintegr.indPagtoJuizo));

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

Neste caso especifico tenho duvidas com relação ao uso deste VersaoDF verifiquei que nas fichas isto não é usado, porém neste caso não achei aonde ele gera isto no xml no pcesGerador para fazer o desvio, uma vez que para o layout completo deve existir a tag.

A disposição

Eduardo / KelipcesS2298.pas

[EMBarbosa]

Em 21/05/2021 at 10:58, emarcolongo disse:

Senhores, boa tarde.

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

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

procedure TEvtReintegr.GerarInfoReintegr;
begin
  Gerador.wGrupo('infoReintegr');

  Gerador.wCampo(tcStr, '', 'tpReint', 1, 1, 1, eSTpReintToStr(self.InfoReintegr.tpReint));

  if eSTpReintToStr(self.InfoReintegr.tpReint) = '1' then
    Gerador.wCampo(tcStr, '', 'nrProcJud', 1, 20, 0, self.InfoReintegr.nrProcJud);

  if eSTpReintToStr(self.InfoReintegr.tpReint) = '2' then
    Gerador.wCampo(tcStr, '', 'nrLeiAnistia', 5, 13, 0, self.InfoReintegr.nrLeiAnistia);

  Gerador.wCampo(tcDat, '', 'dtEfetRetorno', 10, 10, 1, self.InfoReintegr.dtEfetRetorno);
  Gerador.wCampo(tcDat, '', 'dtEfeito',      10, 10, 1, self.InfoReintegr.dtEfeito);
  if VersaoDF <= ve02_05_00 then  //20/05/2021
     Gerador.wCampo(tcStr, '', 'indPagtoJuizo',  1,  1, 1, eSSimNaoToStr(self.InfoReintegr.indPagtoJuizo));

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

Neste caso especifico tenho duvidas com relação ao uso deste VersaoDF verifiquei que nas fichas isto não é usado, porém neste caso não achei aonde ele gera isto no xml no pcesGerador para fazer o desvio, uma vez que para o layout completo deve existir a tag.

A disposição

Eduardo / KelipcesS2298.pas

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

Mais uma vez obrigado.

[Kelly Diego Rakelly]

Em 28/05/2021 at 16:57, EMBarbosa disse:

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

Mais uma vez obrigado.

Bom dia teste realizado tudo certinho, muito obrigada.

[Juliomar Marchetti]

Obrigado por reportar.

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