Ir para conteúdo
  • Cadastre-se

dev botao

Como remover a Tag IndApuracao do evento S-1210


Ver Solução Respondido por Diego Foliene,
  • Este tópico foi criado há 626 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

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-ErroS1210.jpg.51d8f31a118736b4d5ea7b7838e8a35e.jpgfeira estou tentando resolver essa bronca e ainda não consegui.

1050656440000002023033009430679167-S-1210-0.xml

  • Consultores
  • Solution
Postado

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".

  • Curtir 2
Consultor SAC ACBr

Diego Folieni
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

  • Este tópico foi criado há 626 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...