e-Social: evento S-5013

[Jucemar Duarte]

Olá!   Ao atualizar o componente, o evento de retorno S-5013, definido em pcesS5013, não traz a programação ajustada para o e-social Simplificado.  Alguém pode confirmar isso?

[Juliomar Marchetti]

Nâo deve ter sido implementado. se quiser contribuir se sinta a vontade

[Marcelo Pontes Melim]

Fiz os ajustes no fonte do evento S-5013 implementado a versão simplificada. Faça os testes e me avise se não obtiver sucesso.

pcesS5013.pas

[Juliana Tamizou]

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

Adicionado em nosso backlog sob a TK-1896

[Jucemar Duarte]

16 horas atrás, Marcelo Pontes Melim disse:

Fiz os ajustes no fonte do evento S-5013 implementado a versão simplificada. Faça os testes e me avise se não obtiver sucesso.

pcesS5013.pas 27 kB · 0 downloads

Obrigado, Marcelo.   Estou finalizando a minha própria versão da unit.   Vou comparar com a sua.  Depois posto os comentários.

[Jucemar Duarte]

20 horas atrás, Marcelo Pontes Melim disse:

Fiz os ajustes no fonte do evento S-5013 implementado a versão simplificada. Faça os testes e me avise se não obtiver sucesso.

pcesS5013.pas 27 kB · 1 download

Olá Marcelo!  Seu trabalho no fonte do S5013 ficou muito bom.  Tenho apenas duas considerações a fazer:

1) IndApuracao não está presente no layout 2.5. No meu fonte, eu incluí um teste a mais em TEvtFGTS.LerXML.  Ficou assim:

      if leitor.rExtrai(2, 'ideEvento') <> '' then begin
        if VersaoDF >= veS01_00_00 then
            IdeEvento.indApuracao  := leitor.rCampo(tcInt, 'indApuracao');
        IdeEvento.perApur := leitor.rCampo(tcStr, 'perApur');
      end;
 

2)  No create do seu TInfoBaseFGTS, você fez:

     constructor TInfoBaseFGTS.Create;
     begin
       inherited Create;
       FBasePerApur := TBasePerApurCollection.Create;
       FInfoBasePerAntE := nil;
     end;

Sabendo-se que FBasePerApur e FInfoBasePerAntE têm o mesmo comportamento, não entendi porque você deu um Create em um e Nil no outro.

[Marcelo Pontes Melim]

Obrigado pelo seu feedback Jucemar, realmente só foquei na versão simplificada, pois, não faço mais uso da versão 2.5.
Vou dar uma revisada aproveitando as suas sinalizações e vou corrigir o meu fonte e depois vou disponibilizar o módulo corrigido.
Um abraço.

[Marcelo Pontes Melim]

Anexo a versão revisada e modificada do evento S-5013.

pcesS5013.pas

[EMBarbosa]

Em 11/09/2021 at 10:25, Marcelo Pontes Melim disse:

Anexo a versão revisada e modificada do evento S-5013.

pcesS5013.pas 28 kB · 1 download

Muito obrigado pela contribuição Marcelo.

Me pareceu tudo correto no momento. Não detectei nenhum problema grave e por isso subi as alterações para o SVN na Revisão  23009.

@Jucemar Duarte Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado a vocês.