Jump to content

dev botao

e-Social: evento S-5013


Jucemar Duarte
Go to solution Solved by EMBarbosa,
  • Este tópico foi criado há 1122 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Administradores

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

Adicionado em nosso backlog sob a TK-1896

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

  • Consultores
  • Solution
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.

  • Like 2

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

  • Este tópico foi criado há 1122 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.