Ir para conteúdo
  • Cadastre-se

dev botao

Ajuste no campo opcFGTS do evento S-2300


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

Recommended Posts

Boa tarde galera..

Na função GerarFGTS da unit pcesS2300, está passando a tipagem sem fazer a conversão pro gerador, desta forma está gerando inconsistência no eSocial..

 Como estava..

procedure TEvtTSVInicio.GerarFGTS(obj: TFGTS);
begin
  if obj.dtOpcFGTS > 0 then
  begin
    Gerador.wGrupo('fgts');

    Gerador.wCampo(tcStr, '', 'opcFGTS',    1,  1, 1, obj.OpcFGTS);
    Gerador.wCampo(tcDat, '', 'dtOpcFGTS', 10, 10, 0, obj.dtOpcFGTS);

    Gerador.wGrupo('/fgts');
  end;
end;

Ajustado para..

procedure TEvtTSVInicio.GerarFGTS(obj: TFGTS);
begin
  if obj.dtOpcFGTS > 0 then
  begin
    Gerador.wGrupo('fgts');

    Gerador.wCampo(tcStr, '', 'opcFGTS',    1,  1, 1, eSOpcFGTSToStr(obj.OpcFGTS));
    Gerador.wCampo(tcDat, '', 'dtOpcFGTS', 10, 10, 0, obj.dtOpcFGTS);

    Gerador.wGrupo('/fgts');
  end;
end;

@Italo Jurisato Junior @Rafael Dias Segue unit.. Abraço..

pcesS2300.pas

Link para o comentário
Compartilhar em outros sites

  • Consultores
  • Solution

Boa tarde Joceandro,

Muito obrigado pela colaboração, amanhã envio para o repositório.

  • Curtir 1
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • 4 semanas depois ...

Boa tarde,

Uma nova alteração no registro: s-2300 e s-2306. A alteração é um detalhe: atualmente o campo ... [ natAtividade ] do registro está sendo identificado por [ natAtivididade ], alterei a nomeclatura.

Outra modificação foi na função: LerArqIni(...) para o campo ... [ infoTSVInicio.natAtividade ] esta sendo lido de [ INIRec.ReadString(sSecao, 'cadIni', '1')) ] modifiquei para ler [ INIRec.ReadString(sSecao, 'natAtividade', '1')) ],

 se concordarem com a mudança, favor subir no svn!

pcesS2300.rar

pcesS2306.rar

Editado por Hudson G Leite
Link para o comentário
Compartilhar em outros sites

  • Consultores

Bom dia Hudson,

Muito obrigado pela colaboração, ainda hoje estarei avaliando e se tudo OK vou enviar para o repositório.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

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