Jump to content

Delphi chamada_delphi.png acbr.png

C6 chamada_c6.png botao.png

eSocial, S-2299, Erro introduzido: Proc GerarSucessaoVinc


IMATECH
Go to solution Solved by EMBarbosa,
  • Este tópico foi criado há 293 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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; 

 

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

Link to comment
Share on other sites

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; 

 

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

Link to comment
Share on other sites

  • Administradores

Boa tarde.

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

Att.

  • Like 1
Consultora SAC ACBr

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

Link to comment
Share on other sites

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

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

Link to comment
Share on other sites

  • Administradores

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

Consultora SAC ACBr

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

Link to comment
Share on other sites

  • 2 weeks later...
  • Consultores
  • Solution
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.

  • Thanks 1

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

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

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

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

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.