Ajuste no campo opcFGTS do evento S-2300

[Joceandro Perin]

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

[Italo Giurizzato Junior]

Boa tarde Joceandro,

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

[Hudson G Leite]

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

Edited April 9, 2018 by Hudson G Leite

[Italo Giurizzato Junior]

Bom dia Hudson,

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