Jump to content

Delphi chamada_delphi.png acbr.png

C6 chamada_c6.png botao.png

Campo codMotAfast do registro S-2200


Joceandro Perin
Go to solution Solved by Italo Giurizzato Junior,
  • Este tópico foi criado há 1536 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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

Link to comment
Share on other sites

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..

Screenshot_1.thumb.png.07d62e4c617f9f6345167fcdd91f96a4.png

Link to comment
Share on other sites

  • Este tópico foi criado há 1536 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.