Atualização Layout eSocial S1000 e S1005 Simplificado

[ledware]

Bom dia.

Houve uma atualização no layout do eSocial Simplificado Versão S-1.0 (consolidada até NT nº 04/2021).

1) Implantação no ambiente de produção: 19/07/2021
2) Período de convivência de versões (2.5 e S-1.0): 19/07/2021 a 09/03/2022
 

S1000:  campo : dtTrans11096

S1005: campo : cnpjResp

Com isso o arquivo pcesS1000.pas e pcesS1005.pas sofreram alterações. Mandei em anexo os dois arquivos, e neles deixei uma anotação com o nome "Paulo Ledware" para facilitar nos pontos que eu alterei. 

Fico no aguardo de uma analise e aprovação das modificações. 

Outro detalhe que percebi, aqui na criação do tópico neste fórum,  que na opção DFE não tem o item eSocial. Caso já tenha, me desculpe pois não achei, mas caso não tenha mesmo, por favor teria como criar?  

Muito obrigado.

 

pcesS1000.pas pcesS1005.pas

[Daniel Simoes]

Obrigado pela contribuição...

@EMBarbosa, pode nos ajudar na analise ?

[Juliana Tamizou]

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

TK-2545

[ledware]

Boa tarde.

Com base no arquivo já enviado anteriormente, no arquivo pcesS1005.pas precisei fazer um novo ajuste, conforme abaixo:

Alteração: Sai o "or" e entra o "and"

procedure TEvtTabEstab.GerarDadosEstab;

begin
  Gerador.wGrupo('dadosEstab');

  Gerador.wCampo(tcStr, '', 'cnaePrep', 1, 7, 1, infoEstab.DadosEstab.cnaePrep);

  if (VersaoDF > ve02_05_00) and       <<<<-----------------AQUI.  
     (infoEstab.DadosEstab.cnpjResp <> '') then
    Gerador.wCampo(tcStr, '', 'cnpjResp', 1, 14, 1, infoEstab.DadosEstab.cnpjResp);

  GerarAliqGilRat(FIdeEmpregador, infoEstab.FIdeEstab.tpInsc, infoEstab.DadosEstab.aliqGilrat, 'aliqGilrat');
  GerarInfoCaepf;
  GerarInfoObra;
  GerarInfoTrab;

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

Obrigado.

pcesS1005.pas

[EMBarbosa]

Em 29/04/2022 at 13:32, ledware disse:

Boa tarde.

Com base no arquivo já enviado anteriormente, no arquivo pcesS1005.pas precisei fazer um novo ajuste, conforme abaixo:

Alteração: Sai o "or" e entra o "and"

procedure TEvtTabEstab.GerarDadosEstab;

begin
  Gerador.wGrupo('dadosEstab');

  Gerador.wCampo(tcStr, '', 'cnaePrep', 1, 7, 1, infoEstab.DadosEstab.cnaePrep);

  if (VersaoDF > ve02_05_00) and       <<<<-----------------AQUI.  
     (infoEstab.DadosEstab.cnpjResp <> '') then
    Gerador.wCampo(tcStr, '', 'cnpjResp', 1, 14, 1, infoEstab.DadosEstab.cnpjResp);

  GerarAliqGilRat(FIdeEmpregador, infoEstab.FIdeEstab.tpInsc, infoEstab.DadosEstab.aliqGilrat, 'aliqGilrat');
  GerarInfoCaepf;
  GerarInfoObra;
  GerarInfoTrab;

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

Obrigado.

pcesS1005.pas 25 kB · 0 downloads

Muito obrigado pela contribuição.
Fiz a implementação baseada nela.
Subi as alterações para o SVN na Revisão  25441.
Pelo que vi está tudo certo.
Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.