Ajustes efetuados nos eventos S2500 e Retorno S5503.(contribuição)

[Sandro Felipe Adad]

Em anexo para sua avaliação.

 

pcesConversaoeSocial.pas pcesS5503.pas pcesS2500.pas

[Alexandre de Paula]

Boa Tarde @Sandro Felipe Adad,

Agradecemos a contribuição, porém poderia informar a respeito do que se trata?

Localizou algum erro? Refatoração do código? Atualização de legislação?

Se possível fazer referencia a documentação utilizada também.

Obrigado.

[Sandro Felipe Adad]

10 minutos atrás, Alexandre de Paula disse:

Boa Tarde @Sandro Felipe Adad,

Agradecemos a contribuição, porém poderia informar a respeito do que se trata?

Localizou algum erro? Refatoração do código? Atualização de legislação?

Se possível fazer referencia a documentação utilizada também.

Obrigado.

Correção de erros e tipos de dados.

tpSimFacultativo - novo tipo. (pcesConversaoeSocial.pas)

usado em TInfoVlr: (unit pcesS2500;)
 

    FindenSD: tpSimFacultativo;
    FindenAbono: tpSimFacultativo;

 

correção em unit pcesS5503;

function TevtFGTSProcTrab.LerXML: boolean;
    // Capturar a versão do evento
    s := Copy(FXML, Pos('/evt/evtFGTSProcTrab/', FXML)+21, 16); //ajustado

e

...

 while leitor.rExtrai(2, 'infoTrabFGTS', '', i + 1) <> '' do
      begin
        with infoTrabFGTS do
        begin
          New; //incluído
          Items[i].Fmatricula := leitor.rCampo(tcStr, 'matricula');
          Items[i].FcodCateg  := leitor.rCampo(tcInt, 'codCateg');
          Items[i].FcategOrig := leitor.rCampo(tcInt, 'categOrig');

 

procedure TEvtProcTrab.GerarInfoVlr(Obj: TInfoVlr);
begin
  Gerador.wGrupo('infoVlr');

  Gerador.wCampo(tcStr, '', 'compIni',         7,  7, 1, obj.compIni);
  Gerador.wCampo(tcStr, '', 'compFim',         7,  7, 1, obj.compFim);

  if VersaoDF > veS01_01_00 then
  begin
...
    Gerador.wCampo(tcStr, '', 'indenSD',         0,  1, 0, eSSimFacultativoToStr(obj.indenSD));
    Gerador.wCampo(tcStr, '', 'indenAbono',      0,  1, 0, eSSimFacultativoToStr(obj.indenAbono));
 

[Alexandre de Paula]

Criada a TK-4644 para avaliação.

Obrigado pela contribuição.

[Renato Rubinho]

Boa noite Sandro,

Obrigado pela contribuição.
Foram enviadas correções ao SVN que devem resolver o problema relatado, Rev-31272
Por favor atualize os fontes, reinstale os componentes, verifique se o problema foi resolvido e, se possível, nos informe se foi o resultado esperado.