Tag nrProcTrab S2300

[guilhermedoj]

Adicionada a tag nrProcTrab que faltava no S2300.

pcesS2300.pas

[Marcelo Pontes Melim]

Olá, Guilherme!

A sua contribuição está correta para a versão simplificada, porém, ainda existe a possibilidade de enviar os eventos na versão 2.5., portanto, sugiro modificar a unit pces2300.pas nas linhas 527 a 530, para que fique assim:

  if VersaoDF > ve02_05_00 then
  begin
    Gerador.wCampo(tcStr, '', 'matricula',   1, 30, 0, obj.matricula);
    Gerador.wCampo(tcStr, '', 'nrProcTrab',   1, 20, 0, obj.nrProcTrab);
  end;
 

[Marcelo Pontes Melim]

4 minutos atrás, Marcelo Pontes Melim disse:

Olá, Guilherme!

A sua contribuição está correta para a versão simplificada, porém, ainda existe a possibilidade de enviar os eventos na versão 2.5., portanto, sugiro modificar a unit pces2300.pas nas linhas 527 a 530, para que fique assim:

  if VersaoDF > ve02_05_00 then
  begin
    Gerador.wCampo(tcStr, '', 'matricula',   1, 30, 0, obj.matricula);
    Gerador.wCampo(tcStr, '', 'nrProcTrab',   1, 20, 0, obj.nrProcTrab);
  end;
 

Desculpe-me, se fizer da maneira citada acima as tags não ficarão na ordem correta. O correto seria assim:

  if VersaoDF > ve02_05_00 then
    Gerador.wCampo(tcStr, '', 'matricula',   1, 30, 0, obj.matricula);

  Gerador.wCampo(tcStr, '', 'codCateg',      0,  3, 1, obj.codCateg);
  Gerador.wCampo(tcDat, '', 'dtInicio',     10, 10, 1, obj.dtInicio);

  if VersaoDF > ve02_05_00 then
    Gerador.wCampo(tcStr, '', 'nrProcTrab',  1, 20, 0, obj.nrProcTrab);

[Juliana Tamizou]

Boa tarde,

Queira por favor anexar o pas alterado.

At.

[Marcelo Pontes Melim]

Segue.

pcesS2300.pas

[Juliana Tamizou]

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

TK-2374

[EMBarbosa]

Em 17/02/2022 at 21:34, Marcelo Pontes Melim disse:

Segue.

pcesS2300.pas 41 kB · 0 downloads

@guilhermedoj e @Marcelo Pontes Melim

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

Mais uma vez obrigado.