Ajuste no registro S2200 campo tpJornada

[Joceandro Perin]

Boa tarde
Olhando aqui o layout 2.4.01, observei que no registro S2200 o campo tpJornada tem as seguintes opções..

1 - Jornada com horário diário e folga fixos
2 - Jornada 12 x 36 (12 horas de trabalho seguidas de 36 horas ininterruptas de descanso)
3 - Jornada com horário diário fixo e folga variável
9 - Demais tipos de jornada. 
Valores Válidos: 1, 2, 3, 9.

No componente está somente duas..

Fonte pcesConversaoeSocial.pas
tpTpJornada = (tjJornadaSemanalHorPadPorDiaSemanaFolgaFixa, tjDemaisTiposJornada);

Ajustei para
tpTpJornada = (tjJornadaComHorarioDiarioFolgaFixos, tjJornada12x36, tjJornadaComHorarioDiarioFixoFolgaVariavel, tjDemaisTiposJornada);

e os métodos para.. 

function eSTpJornadaToStr(const t: tpTpJornada ): string;
begin
  result := EnumeradoToStr2(t, [ '1', '2', '3', '9' ] );
end;

function eSStrToTpJornada(var ok: boolean; const s: string): tpTpJornada;
begin
  result := tpTpJornada( StrToEnumerado2(ok , s, [ '1', '2', '3', '9' ] ) );
end;
 

@Juliomar Marchetti, @Rafael Dias se puderem dar uma avaliada.. Obrigado..

pcesConversaoeSocial.pas

Editado 5 Fevereiro, 2018 por Joceandro Perin

[Rafael Dias]

No SVN.

[Joceandro Perin]

3 minutos atrás, Rafael Dias disse:

No SVN.

Obrigado Rafael..