Como remover a Tag IndApuracao do evento S-1210

[Ronald.camara]

Pessoal, depois que fiz a atualização para o Lay-Out 1.10, o evento S-1210, começou apresentar um erro dessa Tag que não é mais necessária nessa versão do Lay-Out, só que o evento do S-1210 continua gerando a mesma. Já tentei comentar ela lá no pcesS1210.pas, mas quando comento ou até mesmo faço um IF para não gerar caso a versão seja a 1.1, mas aí o programa gera um erro de Runtime e não gera o xml.

Por favor, se alguém puder me ajudar, ficarei muito agradecido, pois desde segunda-feira estou tentando resolver essa bronca e ainda não consegui.

1050656440000002023033009430679167-S-1210-0.xml

[Diego Foliene]

Boa tarde.

Fiz um teste com o programa exemplo e tag não foi gerada no XML.

Se conferirmos a procedure GerarXML na unit pcesS1210 a mesma está assim:

function TEvtPgtos.GerarXML: Boolean;
begin
  try
    inherited GerarXML;
    Self.VersaoDF := TACBreSocial(FACBreSocial).Configuracoes.Geral.VersaoDF;

    Self.Id := GerarChaveEsocial(now, self.ideEmpregador.NrInsc, self.Sequencial);

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

    if VersaoDF <= ve02_05_00 then
      GerarIdeEvento3(Self.ideEvento, True, True, False)
    else
      GerarIdeEvento3(Self.ideEvento, True, False, True); //Se você configurou corretamente o ACBreSocial, é nesse momento que ele gera o grupo ideEvento

    GerarIdeEmpregador(Self.ideEmpregador);
    GerarIdeBenef(Self.ideBenef);

    Gerador.wGrupo('/evtPgtos');

    GerarRodape;

    FXML := Gerador.ArquivoFormatoXML;
//    XML := Assinar(Gerador.ArquivoFormatoXML, 'evtPgtos');

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

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

Repare que ele faz a chamada a procedure GerarIdeEnvento3 da seguinte maneira.

GerarIdeEvento3(Self.ideEvento, True, False, True); 

Agora vamos conferir como é a procedure GerarIdeEvento3:

procedure TeSocialEvento.GerarIdeEvento3(pEvt: TIdeEvento3; GeraIndRetif: Boolean=True; GeraIndApuracao: Boolean=True; GeraIndGuia: Boolean=True);
begin
  Gerador.wGrupo('ideEvento');

  GerarIdeEvento2(pEvt, false, GeraIndRetif, false);

  if (GeraIndApuracao) then
    Gerador.wCampo(tcStr, '', 'indApuracao', 1, 1, 1, eSIndApuracaoToStr(pEvt.IndApuracao));

  Gerador.wCampo(tcStr, '', 'perApur',     7, 7, 1, pEvt.perApur);

  if (GeraIndGuia) and (VersaoDF >= veS01_00_00) and (pEvt.indGuia <> '') then
    Gerador.wCampo(tcStr, '', 'indGuia', 1, 1, 0, pEvt.indGuia);

  GerarIdeEvento(pEvt, false);

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

Repare que o parâmetro GerarIndApuracao é passado como False na chamada e por isso não é gerado.

Se seus fontes estiverem diferente disso eles estão desatualizados.

Importante lembrar que não basta apenas fazer o update no SVN para atualizar, é preciso reinstalar o ACBr rodando o instalador, de preferência marcando a opção "Apagar Arquivos Antigos".