Atualização Layout eSocial S1280 Simplificado - campo codLotacao.

[ledware]

Boa tarde.

No registro S1280 na classe TInfoSubstPatrOpPortItem foi adicionado  o campo codLocacao, e na geração no XML foi precisou colocá-lo para fazer a validação do schema.

Com isso acabei ajustando a procedure GerarInfoSubstPatrOpPort, que é responsável pela inclusão da TAG. Coloquei uma condição validando a versão vigente do eSocial.

Conforme abaixo, sai o campo cnpjOpPortuario e entrada o codLocacao para atender o Layout do eSocial Simplificado.
 

procedure TEvtInfoComplPer.GerarInfoSubstPatrOpPort;
var
  i: Integer;
  objInfoSubstPatrOpPortItem: TInfoSubstPatrOpPortItem;
begin
  for i := 0 to InfoSubstPatrOpPort.Count - 1 do
  begin
    objInfoSubstPatrOpPortItem := InfoSubstPatrOpPort.Items[i];

    Gerador.wGrupo('infoSubstPatrOpPort');

    if VersaoDF <= ve02_05_00 then
      Gerador.wCampo(tcStr, '', 'cnpjOpPortuario', 14, 14, 1, objInfoSubstPatrOpPortItem.cnpjOpPortuario)
    else
      Gerador.wCampo(tcStr, '', 'codLotacao ', 30, 30, 1, objInfoSubstPatrOpPortItem.codLotacao);  ---> Modificação

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

  if InfoSubstPatrOpPort.Count > 9999 then
    Gerador.wAlerta('', 'infoSubstPatrOpPort', 'Lista de Operadores Portuarios', ERR_MSG_MAIOR_MAXIMO + '9999');
end;
 

pcesS1280.pas

Editado 14 Fevereiro, 2022 por ledware

[Juliana Tamizou]

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

TK-2358

[EMBarbosa]

Em 14/02/2022 at 14:23, ledware disse:

Boa tarde.

No registro S1280 na classe TInfoSubstPatrOpPortItem foi adicionado  o campo codLocacao, e na geração no XML foi precisou colocá-lo para fazer a validação do schema.

Com isso acabei ajustando a procedure GerarInfoSubstPatrOpPort, que é responsável pela inclusão da TAG. Coloquei uma condição validando a versão vigente do eSocial.

Conforme abaixo, sai o campo cnpjOpPortuario e entrada o codLocacao para atender o Layout do eSocial Simplificado.
 

procedure TEvtInfoComplPer.GerarInfoSubstPatrOpPort;
var
  i: Integer;
  objInfoSubstPatrOpPortItem: TInfoSubstPatrOpPortItem;
begin
  for i := 0 to InfoSubstPatrOpPort.Count - 1 do
  begin
    objInfoSubstPatrOpPortItem := InfoSubstPatrOpPort.Items[i];

    Gerador.wGrupo('infoSubstPatrOpPort');

    if VersaoDF <= ve02_05_00 then
      Gerador.wCampo(tcStr, '', 'cnpjOpPortuario', 14, 14, 1, objInfoSubstPatrOpPortItem.cnpjOpPortuario)
    else
      Gerador.wCampo(tcStr, '', 'codLotacao ', 30, 30, 1, objInfoSubstPatrOpPortItem.codLotacao);  ---> Modificação

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

  if InfoSubstPatrOpPort.Count > 9999 then
    Gerador.wAlerta('', 'infoSubstPatrOpPort', 'Lista de Operadores Portuarios', ERR_MSG_MAIOR_MAXIMO + '9999');
end;
 

pcesS1280.pas 14 kB · 0 downloads

Muito obrigado pela contribuição.
Fiz a implementação baseada nela.
Subi as alterações para o SVN na Revisão  24658.
Pelo que vi está tudo certo.
Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.