Ir para conteúdo
  • Cadastre-se

dev botao

e-Social: evento S-5013


Ver Solução Respondido por EMBarbosa,
  • Este tópico foi criado há 1184 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Administradores
Postado

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

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

  • Membros Pro
Postado

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.

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

  • Curtir 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.
  • Este tópico foi criado há 1184 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...