Campo codMotAfast do registro S-2200

[Joceandro Perin]

Boa tarde galera..

Peguei uma situação aqui em que o empregado está afastado há algum tempo..

Quando ele vai gerar o campo codMotAfast está setando o valor errado, ajustei a unit pcesGerador para passar a tipagem convertida pra string pro gerador, desta forma seta o valor correto..

Como estava..

procedure TeSocialEvento.GerarAfastamento(pAfastamento: TAfastamento);
begin
  if pAfastamento.DtIniAfast > 0 then
  begin
    Gerador.wGrupo('afastamento');

    Gerador.wCampo(tcDat, '', 'dtIniAfast',  10, 10, 1, pAfastamento.DtIniAfast);
    Gerador.wCampo(tcStr, '', 'codMotAfast',  1,  1, 1, pAfastamento.codMotAfast);

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

Ajustado para..

procedure TeSocialEvento.GerarAfastamento(pAfastamento: TAfastamento);
begin
  if pAfastamento.DtIniAfast > 0 then
  begin
    Gerador.wGrupo('afastamento');

    Gerador.wCampo(tcDat, '', 'dtIniAfast',  10, 10, 1, pAfastamento.DtIniAfast);
    Gerador.wCampo(tcStr, '', 'codMotAfast',  1,  1, 1, eStpMotivosAfastamentoToStr(pAfastamento.codMotAfast));

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

@Italo Jurisato Junior, @Rafael Dias Mandei a unit para avaliação.. Abraços..

 

pcesGerador.pas

[Joffas]

Show de bola, estava com o mesmo problema e deu certo, podiam subir a alteração para o SVN.

[Italo Giurizzato Junior]

Bom dia Joceandro,

Muito obrigado pela colaboração, ainda hoje estarei enviando para o repositório.

[Alisson Souza Pereira]

@Joceandro Perin  @Jonathan Fabricio Seibel Poderia dizer o que estava gerando errado? 
Quais eram os tipos que estavam invertidos? porque olhei os arquivos que enviei eles estão corretos. 

[Joceandro Perin]

Boa tarde Alisson, estava gerando com o enum da tipagem e deveria pegar o convertido.. Por exemplo, se pegar direto da tipagem vc tem um sequencial 0,1,2,3.. e não é esse o código correto porque a tabela dos motivos de afastamento tem furos no sequencial sem contar que 0 não existe.. Veja..