Geração do evento S-2210

[edf]

Bom dia galera.

Quando fui gerar o evento S-2210 ocorreu rejeição na versão 2_05_00 onde faltou gerar os dados do empregador na linha 574 no arquivo pcesS2210.pas, alterei o arquivo conforme abaixo adicionando GerarIdeEmpregador(Self.IdeEmpregador);

function TEvtCAT.GerarXML: boolean;
begin
  try
    Self.VersaoDF := TACBreSocial(FACBreSocial).Configuracoes.Geral.VersaoDF;
     
    Self.Id := GerarChaveEsocial(now, Self.ideEmpregador.NrInsc, Self.Sequencial);

    GerarCabecalho('evtCAT');
    Gerador.wGrupo('evtCAT Id="' + Self.Id + '"');

    GerarIdeEvento2(Self.IdeEvento);
    GerarIdeEmpregador(Self.IdeEmpregador);
    GerarIdeVinculo(Self.IdeVinculo);
    GerarCAT;

    Gerador.wGrupo('/evtCAT');

    GerarRodape;

    XML := Assinar(Gerador.ArquivoFormatoXML, 'evtCAT');

    Validar(schevtCAT);
  except on e:exception do
    raise Exception.Create('ID: ' + Self.Id + sLineBreak + ' ' + e.Message);
  end;

  Result := (Gerador.ArquivoFormatoXML <> '')
end;

Também, ocorreu a rejeição na validação porque o número de inscrição no órgão de classe na linha 1581 do arquivo pcesGerador.pas do eSocial está com a nomenclatura diferente, está "nrOc" ao invés de "nrOC", alterei o arquivo e a validação passou certo:

procedure TeSocialEvento.GerarEmitente(pEmitente: TEmitente);
begin
  Gerador.wGrupo('emitente');

  Gerador.wCampo(tcStr, '', 'nmEmit', 1, 70, 1, pEmitente.nmEmit);
  Gerador.wCampo(tcStr, '', 'ideOC',  1,  1, 1, eSIdeOCToStr(pEmitente.ideOC));
  Gerador.wCampo(tcStr, '', 'nrOC',   1, 14, 1, pEmitente.nrOc);
  Gerador.wCampo(tcStr, '', 'ufOC',   2,  2, 0, pEmitente.ufOC);//eSufToStr(pEmitente.ufOC));

  Gerador.wGrupo('/emitente');
end;

 

[Juliana Tamizou]

Bom dia.

Obrigada pela análise, por favor anexe também a unit alterada.

Att.

[edf]

Seguem os arquivos.

pcesS2210.pas pcesGerador.pas

[Italo Giurizzato Junior]

Bom dia,

Muito obrigado pela colaboração, ainda hoje estarei enviando para o repositório.