Ir para conteúdo
  • Cadastre-se

dev botao

Comando: eSocial.SetVersaoDF


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

Recommended Posts

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

  • Obrigado 1

by IMATECH
[email protected]
Goiânia - GO.

Link para o comentário
Compartilhar em outros sites

  • Administradores

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

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

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 !!

Link para o comentário
Compartilhar em outros sites

  • Administradores

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.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

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 !!

Link para o comentário
Compartilhar em outros sites

  • 3 semanas depois ...
  • Moderadores

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

  • Curtir 1
Consultor SAC ACBr

José Junior
Ajude o Projeto ACBr crescer - Assine o SAC

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

Link para o comentário
Compartilhar em outros sites

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 por IMATECH

by IMATECH
[email protected]
Goiânia - GO.

Link para o comentário
Compartilhar em outros sites

  • Administradores

Obrigado por reportar.

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

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

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 !!

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 953 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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.