Ir para conteúdo
  • Cadastre-se

dev botao

eSocial, S-2299, Erro introduzido: Proc GerarSucessaoVinc


Ver Solução Respondido por EMBarbosa,
  • Este tópico foi criado há 1227 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

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.

Postado

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.

  • Administradores
Postado

Boa tarde.

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

Att.

  • Curtir 1
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 !!

Postado

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.

  • Administradores
Postado

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

  • 2 semanas depois ...
  • Consultores
  • Solution
Postado
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.

  • Obrigado 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.
  • Este tópico foi criado há 1227 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • 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.

The popup will be closed in 10 segundos...