Comando: eSocial.SetVersaoDF

[IMATECH]

Segue implantação do comando para mudança de versão Layout criação XML eSocial (Parâmetro deve ser passado entre Aspas; Ex: "S01_00_00" )

 

...\AcBr\Projetos\ACBrMonitorPLUS\Lazarus\DoACBreSocialUnit.pas

{ TMetodoSetVersaoDF }

{ Params: 0 - String contendo versão do Layout:
"02_04_01", "02_04_02", "02_05_00" ou "S01_00_00"
}
procedure TMetodoSetVersaoDF.Executar;
var
  OK: boolean;
  eVersao: TVersaoeSocial;
  AVersao: String;
begin
  AVersao := fpCmd.Params(0);
  eVersao := StrToVersaoeSocial(OK, AVersao);

  if not OK then
    raise Exception.Create('Versão Inválida do eSocial.');

  with TACBrObjetoeSocial(fpObjetoDono) do
  begin
    with MonitorConfig.DFE.WebService do
      VersaoeSocial := VersaoeSocialToStr(eVersao);

    MonitorConfig.SalvarArquivo;
  end;
end;    

 

...\AcBr\Fontes\ACBrDFe\ACBreSocial\PCNeSocial\pcesConversaoeSocial.pas

******************************
*** ERRO: 'S_01_00_00' *******
******************************
function VersaoeSocialToStr(const t: TVersaoeSocial): String;
begin
  result := EnumeradoToStr(t, ['02_04_01', '02_04_02', '02_05_00', 'S_01_00_00'],
                          [ve02_04_01, ve02_04_02, ve02_05_00, veS01_00_00]);
end;

****************
*** CORREÇÃO ***
****************
function VersaoeSocialToStr(const t: TVersaoeSocial): String;
begin
  result := EnumeradoToStr(t, ['02_04_01', '02_04_02', '02_05_00', 'S01_00_00'],
                          [ve02_04_01, ve02_04_02, ve02_05_00, veS01_00_00]);
end;

 

pcesConversaoeSocial.pas DoACBreSocialUnit.pas

[Juliana Tamizou]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn

[JOSE VICENTE]

Bom dia

Esse comando esocial.setversao, será implementado no ACBRMONITORPLUS ??

[Juliana Tamizou]

Boa tarde.

Esta task ainda está em nosso backlog..na próxima semana o @José M. S. Junior retornará de férias e analisaremos a possibilidade de entrar nos próximos sprints.

Att.

[José M. S. Junior]

Boa tarde,

A função do ACBrMonitor já está SVN, a alteração na pcesConversao acaba afetando na geração do XML e validação de Schemas por isso foi mantido como está.

[IMATECH]

2 horas atrás, José M. S. Junior disse:

Boa tarde,

A função do ACBrMonitor já está SVN, a alteração na pcesConversao acaba afetando na geração do XML e validação de Schemas por isso foi mantido como está.

Perfeito, está funcionando tudo corretamente. A alteração em pcesConversao realmente não deve ser feita.

Agradecido José MSJr e Juliana

 

*Tópico concluído

Editado 18 Agosto, 2021 por IMATECH

[Juliana Tamizou]

Obrigado por reportar.

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