Erro ao enviar evento S-2206

paulosilva0306 · 10 Abril

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