Erro ao enviar evento S-2206

[paulosilva0306]

Bom dia pessoal.

Estava com um erro no envio do evento S-2206 do eSocial, aonde esse erro impedia de levar o seguinte valor: *pInfoEstatutario.indAbonoPerm* na *unit pcesS2206*.

Após realizar uma alteração, o envio se deu correto. Irei compartilhar aqui a unit com as correções:

procedure TEvtAltContratual.GerarAltContratual(objAltContratual: TAltContratual);
begin
  Gerador.wGrupo('altContratual');

  Gerador.wCampo(tcDat, '', 'dtAlteracao', 10,  10, 1, objAltContratual.dtALteracao);
  Gerador.wCampo(tcDat, '', 'dtEf',        10,  10, 0, objAltContratual.dtEf);
  Gerador.wCampo(tcStr, '', 'dscAlt',       1, 150, 0, objAltContratual.dscAlt);

  if VersaoDF <= ve02_05_00 then
    GerarVinculo(objAltContratual.Vinculo, 3)
  else
  begin
    Gerador.wGrupo('vinculo');

    Gerador.wCampo(tcStr, '', 'tpRegPrev', 1, 1, 1, eSTpRegPrevToStr(objAltContratual.vinculo.tpRegPrev));
  end;  
   
  Gerador.wGrupo('infoRegimeTrab');
  
  if objAltContratual.infoRegimeTrab.InfoCeletista.cnpjSindCategProf <> '' then
    //GerarInfoCeletista(objAltContratual.infoRegimeTrab.InfoCeletista)    //#Paulo Silva - alteração
    GerarInfoCeletista(objAltContratual.Vinculo.infoRegimeTrab.InfoCeletista) //#Paulo Silva - alteração
  else
    if(objAltContratual.FVinculo.tpRegPrev = rpRPPS)then
      //GerarInfoEstatutario(objAltContratual.infoRegimeTrab.InfoEstatutario);    //#Paulo Silva - alteração
      GerarInfoEstatutario(objAltContratual.Vinculo.infoRegimeTrab.InfoEstatutario); //#Paulo Silva - alteração
  
  Gerador.wGrupo('/infoRegimeTrab');
 
  GerarInfoContrato(objAltContratual.InfoContrato, 3, objAltContratual.infoRegimeTrab.InfoCeletista);

  if VersaoDF > ve02_05_00 then
    Gerador.wGrupo('/vinculo');
  
  Gerador.wGrupo('/altContratual');
end;
 

pcesS2206.pas

[Juliomar Marchetti]

No SVN sua contribuição

[paulosilva0306]

Showwwww!

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.