eSocial

[angelosobreira]

Bom dia pessoal,

Ontem tivemos uma grande carga de envios do eSocial S-2220 e S-2240, e tive que alterar alguns fontes do ACBr pra corrigir alguns problemas de envio. Segue os alterados:

 

unit pcesS2220.pas  - linha 373:

A função GerarRespMonit estava sendo chamada quando os itens não estavam preenchidos (essas informações não são obrigatórias)

Resolvi desse modo:

if not (self.exMedOcup.RespMonit.nmResp.IsEmpty) and
     not (self.exMedOcup.RespMonit.nrCRM.IsEmpty) and
     not (self.exMedOcup.RespMonit.ufCRM.IsEmpty) then
  begin
    GerarRespMonit;
  end;

Talvez exista alguma outra saída pra resolver esse problema.

 

unit pcesGerador.pas - Linha 1345

Alterei o parâmetro ocorrências de 1 para 0, pois a matrícula não é obrigatória em todos os casos.

[Andre Fachini]

2 horas atrás, angelosobreira disse:

Bom dia pessoal,

Ontem tivemos uma grande carga de envios do eSocial S-2220 e S-2240, e tive que alterar alguns fontes do ACBr pra corrigir alguns problemas de envio. Segue os alterados:

 

unit pcesS2220.pas  - linha 373:

A função GerarRespMonit estava sendo chamada quando os itens não estavam preenchidos (essas informações não são obrigatórias)

Resolvi desse modo:

if not (self.exMedOcup.RespMonit.nmResp.IsEmpty) and
     not (self.exMedOcup.RespMonit.nrCRM.IsEmpty) and
     not (self.exMedOcup.RespMonit.ufCRM.IsEmpty) then
  begin
    GerarRespMonit;
  end;

Talvez exista alguma outra saída pra resolver esse problema.

 

unit pcesGerador.pas - Linha 1345

Alterei o parâmetro ocorrências de 1 para 0, pois a matrícula não é obrigatória em todos os casos.

Gostaria de saber se tem alguma previssao para  dll esocial... como ja funciona para  nota fiscais?    Se nao tiver tem como fazer uma dll somente para fazer a assinatura, validacao, envio e consulta ou seja uma dll com efeito apenas de menssageria... e quanto ficaria pra fazer isto  e disponibilizar em uma dll  assi com faz atualmente  ACBrNFe32.dll....   contato [email protected]  

[Juliana Tamizou]

Boa tarde,

@angelosobreira poderia por favor anexar o pas alterado?

@Andre Fachini no momento não está em nosso roadmap o eSocial para a lib...
Quanto ao orçamento que vc pede em sua postagem, sugiro postar em Classificados aqui no fórum ou no canal de mesmo nome em nosso servidor Discord.

At.

[angelosobreira]

pcesS2220.paspcesGerador.pas

Segue anexo

[Juliana Tamizou]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn

TK-2373

[angelosobreira]

Olá pessoal, ainda sobre eSocial - S2220, percebi que estava sendo gerado o campo indResult mesmo sem que eu preenchesse na geração dos arquivos.

"Já o campo {indResult} não é de preenchimento obrigatório e somente pode ser informado com autorização do trabalhador, em virtude do sigilo médico.'

Como não podemos preencher esse campo, no pcesConversaoeSocial adicionei no tpIndResult o item irNaoAlimentar e estou utilizando ele pra que o XML saia sem o indResult preenchido. Ficou assim, basicamente:

if (self.exMedOcup.Aso.Exame.Items[i].indResult >= irNormal) and
       (self.exMedOcup.Aso.Exame.Items[i].indResult <> irNaoAlimentar) then
        Gerador.wCampo(tcInt, '', 'indResult',      1,   1, 0, eSIndResultToStr(self.exMedOcup.Aso.Exame.Items[i].indResult));

Seguem anexos arquivos a serem avaliados.

pcesGerador.pas pcesS2220.pas

[EMBarbosa]

Em 21/02/2022 at 13:44, angelosobreira disse:

Olá pessoal, ainda sobre eSocial - S2220, percebi que estava sendo gerado o campo indResult mesmo sem que eu preenchesse na geração dos arquivos.

"Já o campo {indResult} não é de preenchimento obrigatório e somente pode ser informado com autorização do trabalhador, em virtude do sigilo médico.'

Como não podemos preencher esse campo, no pcesConversaoeSocial adicionei no tpIndResult o item irNaoAlimentar e estou utilizando ele pra que o XML saia sem o indResult preenchido. Ficou assim, basicamente:

if (self.exMedOcup.Aso.Exame.Items[i].indResult >= irNormal) and
       (self.exMedOcup.Aso.Exame.Items[i].indResult <> irNaoAlimentar) then
        Gerador.wCampo(tcInt, '', 'indResult',      1,   1, 0, eSIndResultToStr(self.exMedOcup.Aso.Exame.Items[i].indResult));

Seguem anexos arquivos a serem avaliados.

pcesGerador.pas 75 kB · 0 downloads pcesS2220.pas 20 kB · 0 downloads

Olá. Agradecemos suas sugestões e contribuições. Muito obrigado.

Já enviei ao SVN na revisão 24760 com algumas ressalvas.

• Alguns dos comportamentos mencionados já estavam corrigidos na versão atual no SVN;
• seu código não era totalmente compatível com Delphi 7;
• O grupo RespMonit é obrigatório no layout 2.5;

Sendo assim, pedimos que atualize novamente, faça testes e reporte qualquer problema.

Mais uma vez, obrigado.