Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

Atualização Layout eSocial S1000 e S1005 Simplificado


Go to solution Solved by EMBarbosa,

Recommended Posts

  • Membros Pro

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

  • Thanks 1
Link to comment
Share on other sites

  • Administradores

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

TK-2545

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

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

  • 4 weeks later...
  • Membros Pro

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

  • Like 1
Link to comment
Share on other sites

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

[]'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

×
×
  • 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.