e-Social Evento S-3000 Não preenche o grupo ideTrabalhador

[anderson.mendonca]

Caros colegas, meu programa está informando o CPF e PIS do trabalhador no evento S-3000, mas quando o componente gera o XML, este grupo não aparece.

Conferi o conteudo dos campos CPF e PIS colocando um BREAK e ambos estão sendo informados.

Alguém pode me ajudar?

Obrigado.

 

eSocial-sit.xml

eSocial-ped-sit.xml

20180821221807-rec.xml

20180821221803-env-lot.xml

1246856450000002018082122174500009-S-3000-0.xml

Algoritmo.txt

[anderson.mendonca]

A propósito, ocorre o erro 8. Grupo 'Informações do Trabalhador' deve ser preenchido. Verifique as condições de preenchimento no leiaute.

 

[Paulo Aguiar Junior]

Anderson, bom dia!

Fiz o teste aqui, e enviei a exclusão do S-2190 normalmente, sem problemas.

Eu acho que o seu problema é estar atribuindo valor no IndApuracao e perApur, sendo que não deveria.

Esses campos só devem ser preenchidos no caso de exclusão de periódicos...

 

EvtExclusao.InfoExclusao.ideTrabalhador.CpfTrab := fncSomenteNumeros(cpfTrab);

    if ( tpEvento <> 'S-1210' ) then
      EvtExclusao.InfoExclusao.ideTrabalhador.NisTrab := fncSomenteNumeros(nisTrab);

    if ( tpEvento = 'S-1200' ) or ( tpEvento = 'S-1210' ) then
    begin

      if ( fgCompetencia13 = 'SIM' ) then
      begin
        EvtExclusao.InfoExclusao.IdeFolhaPagto.IndApuracao := ipaAnual;
        EvtExclusao.InfoExclusao.IdeFolhaPagto.perApur     := IntToStr(YearOf(dtPeriodoApuracao));
      end
      else
      begin
        EvtExclusao.InfoExclusao.IdeFolhaPagto.IndApuracao := iapuMensal;
        EvtExclusao.InfoExclusao.IdeFolhaPagto.perApur     := FormatDateTime('YYYY-MM', dtPeriodoApuracao);
      end;

    end;

Agora, Paulo Aguiar Junior disse:

@Anderson Mendonça

Anderson, bom dia!

Fiz o teste aqui, e enviei a exclusão do S-2190 normalmente, sem problemas.

Eu acho que o seu problema é estar atribuindo valor no IndApuracao e perApur, sendo que não deveria.

Esses campos só devem ser preenchidos no caso de exclusão de periódicos...

 

EvtExclusao.InfoExclusao.ideTrabalhador.CpfTrab := fncSomenteNumeros(cpfTrab);

    if ( tpEvento <> 'S-1210' ) then
      EvtExclusao.InfoExclusao.ideTrabalhador.NisTrab := fncSomenteNumeros(nisTrab);

    if ( tpEvento = 'S-1200' ) or ( tpEvento = 'S-1210' ) then
    begin

      if ( fgCompetencia13 = 'SIM' ) then
      begin
        EvtExclusao.InfoExclusao.IdeFolhaPagto.IndApuracao := ipaAnual;
        EvtExclusao.InfoExclusao.IdeFolhaPagto.perApur     := IntToStr(YearOf(dtPeriodoApuracao));
      end
      else
      begin
        EvtExclusao.InfoExclusao.IdeFolhaPagto.IndApuracao := iapuMensal;
        EvtExclusao.InfoExclusao.IdeFolhaPagto.perApur     := FormatDateTime('YYYY-MM', dtPeriodoApuracao);
      end;

    end;

 

[anderson.mendonca]

Paulo Aguiar Junior, muito obrigado por responder.

Deu certo!

Valeu pela dica. Só depois li e vi que no leiaute tem esta informação. Bobeira minha.

 

[anderson.mendonca]

Aproveitei pra acertar a parte de informação anual.

 

 

Editado 22 Agosto, 2018 por anderson.mendonca