Eventos S-2210, S-2220 e S-2240: implementada a opção de importar o XML para o dentro componente

[Marcelo Pontes Melim]

Com o objetivo de colaborar com a comunidade que utiliza o ACBre_Social, fizemos o desenvolvimento da rotina para importar o XML para dentro do componente.

Estamos disponilizando os módulos para que a comunidade possa testar, avaliar e ver se é de utilidade.

Para importar um arquivo XML do evento S-2210 (um ou mais eventos no mesmo arquivo) para dentro do componente fazer o seguinte:

  ACBreSocial.Eventos.LoadFromFile('c:\temp\s2210.xml');

  if ACBreSocial.Eventos.NaoPeriodicos.S2210.Count = 0 then
    raise Exception.Create('O evento não foi localizado para importar');

  i := ACBreSocial.Eventos.NaoPeriodicos.S2210.Count - 1;

  with ACBreSocial.Eventos.NaoPeriodicos.S2210.Items[i].EvtCAT do
  begin
    sequencial := 0;

    with ideEvento do
    begin
      indRetif := ireOriginal;
      procEmi := TpProcEmi(0);
      verProc := '1.0';
    end;

    with ideEmpregador do
    begin
      tpInsc := tiCNPJ;
      nrInsc := edtIdEmpregador.Text;
    end;
  end;

Obs.: Só funcionará nos eventos da na versão simplificada do eSocial.
 

pcesS2210.pas pcesS2220.pas pcesS2240.pas pcesNaoPeriodicos.pas

[Juliana Tamizou]

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

TK-2181

[HugoH]

Bom dia!

Vai ser util sim  @Marcelo Pontes Melim, e muito. Estavamos inciando os trabalhos de importação do S-2240 gerados por uma empresa especializada em Medicina do trabalho.

Valeu pela contribuição.

At.te

[EMBarbosa]

Em 13/12/2021 at 09:33, Marcelo Pontes Melim disse:

Com o objetivo de colaborar com a comunidade que utiliza o ACBre_Social, fizemos o desenvolvimento da rotina para importar o XML para dentro do componente.

Estamos disponilizando os módulos para que a comunidade possa testar, avaliar e ver se é de utilidade.

Para importar um arquivo XML do evento S-2210 (um ou mais eventos no mesmo arquivo) para dentro do componente fazer o seguinte:

  ACBreSocial.Eventos.LoadFromFile('c:\temp\s2210.xml');

  if ACBreSocial.Eventos.NaoPeriodicos.S2210.Count = 0 then
    raise Exception.Create('O evento não foi localizado para importar');

  i := ACBreSocial.Eventos.NaoPeriodicos.S2210.Count - 1;

  with ACBreSocial.Eventos.NaoPeriodicos.S2210.Items[i].EvtCAT do
  begin
    sequencial := 0;

    with ideEvento do
    begin
      indRetif := ireOriginal;
      procEmi := TpProcEmi(0);
      verProc := '1.0';
    end;

    with ideEmpregador do
    begin
      tpInsc := tiCNPJ;
      nrInsc := edtIdEmpregador.Text;
    end;
  end;

Obs.: Só funcionará nos eventos da na versão simplificada do eSocial.
 

pcesS2210.pas 33 kB · 3 downloads pcesS2220.pas 20 kB · 3 downloads pcesS2240.pas 39 kB · 4 downloads pcesNaoPeriodicos.pas 40 kB · 4 downloads

Muito obrigado pela contribuição.

Notei que havia algumas modificações e não estou certo se é porque seu código estava desatualizado ou eram outras modificações propostas. Queira conferir por favor.

Subi as alterações para o SVN na Revisão  24044.

Pelo que vi está tudo certo.
Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.

[Jucemar Duarte]

Em 17/12/2021 at 17:06, EMBarbosa disse:

Muito obrigado pela contribuição.

Notei que havia algumas modificações e não estou certo se é porque seu código estava desatualizado ou eram outras modificações propostas. Queira conferir por favor.

Subi as alterações para o SVN na Revisão  24044.

Pelo que vi está tudo certo.
Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.

Senhores, não entendi!  A rotina desenvolvida pelo amigo Marcelo não deveria estar dentro de LoadFromFile?  O XML que está sendo carregado pode conter informações de qualquer evento, inclusive os de SST.  Então, penso que o tratamento deve ser feito dentro do método LoadFromFile.  Estou viajando? 

[EMBarbosa]

Em 18/12/2021 at 18:46, Jucemar Duarte disse:

Senhores, não entendi!  A rotina desenvolvida pelo amigo Marcelo não deveria estar dentro de LoadFromFile?  O XML que está sendo carregado pode conter informações de qualquer evento, inclusive os de SST.  Então, penso que o tratamento deve ser feito dentro do método LoadFromFile.  Estou viajando? 

Olá Jucemar.

   Não fiz testes mudando o código para dentro de LoadFromFile e por isso achei melhor não mexer na implementação. Mas se você ou o @Marcelo Pontes Melim acharem apropriado fazer a alteração e anexarem aqui os arquivos modificados, vamos sempre ficar felizes com as contribuições.

[Marcelo Pontes Melim]

Olá a todos!

O método LoadFromFile está dentro do módulo ACBreSocialEventos e é comum a todos os eventos.

Sendo assim, não é necessário ter a implementação dentro dos módulos pcesS2210, pcesS2220 e pcesS2240.

Jucemar, a resposta acima esclarece a sua dúvida?
 

[Jucemar Duarte]

Caro Marcelo,  tua explicação esclarece a dúvida.  Analisei o teu código fora do contexto.  Foi desatenção minha.   A tua implementação está corretíssima! 

[Júlio F9]

Boa Noite. Estou com problema  pra teste de envio do XML.
O arquivo XML é carregado (importado) corretamente.

Configurei um certificado com o mesmo CNPJ do XML e aparece o seguinte erro:

Porém o XML consto no campo correto o CNPJ.

Alguém pode me ajudar por favor.?

[EMBarbosa]

2.2 - Permaneça no assunto - Quando tiver uma dúvida diferente do assunto no tópico, poste em novo tópico. Não use algo equivalente a "aproveitando o gancho... [dúvida não relacionada com o tópico aqui]". Favor leia as regras do fórum.