eSocial, S-2299, Erro introduzido: Proc GerarSucessaoVinc

[IMATECH]

Com o código abaixo é impossivel gerar as TAG's tpInscSuc e cnpjSucessora

...\AcBr\Fontes\ACBrDFe\ACBreSocial\PCNeSocial\pcesS2299.pas (Linha 832)

procedure TEvtDeslig.GerarSucessaoVinc(obj: TSucessaoVinc2);
begin
  if obj.cnpjSucessora <> EmptyStr then
  begin
    Gerador.wGrupo('sucessaoVinc');
    
    if VersaoDF <= ve02_05_00 then
    begin
      if VersaoDF >= ve02_05_00 then
        Gerador.wCampo(tcStr, '', 'tpInscSuc',    1,  1, 1, eSTpInscricaoToStr(obj.tpInsc));

      Gerador.wCampo(tcStr, '', 'cnpjSucessora', 14, 14, 1, obj.nrInsc);
    end
    else
    begin    
      Gerador.wCampo(tcStr, '', 'tpInsc',         1,  1, 1, eSTpInscricaoToStr(obj.tpInsc));
      Gerador.wCampo(tcStr, '', 'nrInsc',        14, 14, 1, obj.nrInsc);
    end;
    
    Gerador.wGrupo('/sucessaoVinc');
  end;
end; 

 

[IMATECH]

Proposta para correção:

procedure TEvtDeslig.GerarSucessaoVinc(obj: TSucessaoVinc2);
begin
  if obj.cnpjSucessora <> EmptyStr then
  begin
    Gerador.wGrupo('sucessaoVinc');
    
    if VersaoDF >= veS01_00_00 then
    begin
      Gerador.wCampo(tcStr, '', 'tpInsc',         1,  1, 1, eSTpInscricaoToStr(obj.tpInsc));
      Gerador.wCampo(tcStr, '', 'nrInsc',        14, 14, 1, obj.nrInsc);
    end
    else
    begin    
      if VersaoDF >= ve02_05_00 then
        Gerador.wCampo(tcStr, '', 'tpInscSuc',    1,  1, 1, eSTpInscricaoToStr(obj.tpInsc));
      Gerador.wCampo(tcStr, '', 'cnpjSucessora', 14, 14, 1, obj.nrInsc);
    end;
    
    Gerador.wGrupo('/sucessaoVinc');
  end;
end; 

 

[Juliana Tamizou]

Boa tarde.

Obrigada pelo interesse em contribuir, queira por favor anexar o pas alterado.

Att.

[IMATECH]

Feito, Obg

 

pcesS2299.pas

[IMATECH]

Correção final:

Erro detectado*:  Uso incorreto de valor para o campo

      if VersaoDF >= ve02_05_00 then
        Gerador.wCampo(tcStr, '', 'tpInscSuc',    1,  1, 1, eSTpInscricaoToStr(obj.tpInsc));

      Gerador.wCampo(tcStr, '', 'cnpjSucessora', 14, 14, 1, obj.nrInsc);

Correção:

      if VersaoDF >= ve02_05_00 then
        Gerador.wCampo(tcStr, '', 'tpInscSuc',    1,  1, 1, eSTpInscricaoToStr(obj.tpInscSuc));

      Gerador.wCampo(tcStr, '', 'cnpjSucessora', 14, 14, 1, obj.cnpjSucessora);

*Desconsiderar a proposta de correção anterior

Arquivo fonte corrigido em anexo:

pcesS2299.pas

[IMATECH]

Linha 834, para Layout S1.0 ajustar também

de:
  if obj.cnpjSucessora <> EmptyStr then
para:
  if (obj.cnpjSucessora <> EmptyStr) or (obj.nrInsc <> EmptyStr) then

 

pcesS2299.pas

[Juliana Tamizou]

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

[EMBarbosa]

Em 21/07/2021 at 12:12, IMATECH disse:

Linha 834, para Layout S1.0 ajustar também

de:
  if obj.cnpjSucessora <> EmptyStr then
para:
  if (obj.cnpjSucessora <> EmptyStr) or (obj.nrInsc <> EmptyStr) then

 

pcesS2299.pas 48 kB · 0 downloads

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

Mais uma vez obrigado.