Jump to content

dev botao
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

Evento S-1005 "O Fap do estabelecimento não foi localizado na base"

alexcamilo01

By alexcamilo01
in ACBreSocial

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

Recommended Posts

  • 2 weeks later...
jcmferreira Contributor

jcmferreira

Posted
Posted

Amigo,

Uma ideia interessante, até pq, o eSocial fez a gente ficar nas mãos com relação ao FAP. Antes, na 2.5, o FAP era enviado e se fosse divergente, era rejeitado exigindo o processo. 

Agora, vc não deve mandar o FAP e caso o eSocial não localize na base, vc reenvia o evento com o FAP. E como ficam os clientes usando o software e que mal sabem ler um retorno desses de eSocial? A simplificação esse ponto virou um complicador, isso sim.

Link to comment
Share on other sites
  • Administradores
Juliana Tamizou Veteran

Juliana Tamizou

Posted
  • Administradores
Posted

Bom dia pessoal.

Apenas para confirmar, de qq forma a alteração se faz necessária, correto?

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 to comment
Share on other sites
alexcamilo01 Contributor

alexcamilo01

Posted
  • Author
Posted (edited)
21 minutos atrás, Joceandro Perin disse:

Testado aqui e com o mesmo problema, alguma proposta pessoal pra solucionar essa questão? acredito que a tratativa terá que ser feita cada um nos seus respectivos sistemas..

A idéia nessa correção é se o evento retornar com essa mensagem,  então informa a propriedade aliqGilrat.ReenvioFap = tpsim e gera o evento novamente.

Edited by alexcamilo01
Link to comment
Share on other sites
  • Administradores
Juliana Tamizou Veteran

Juliana Tamizou

Posted
  • Administradores
Posted

Bom dia pessoal,

As sugestões são bem vindas, esta análise está prevista para análise em nosso sprint da semana sob a TK-1854

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 to comment
Share on other sites
Joceandro Perin Community Regular

Joceandro Perin

Posted
Posted
52 minutos atrás, alexcamilo01 disse:

A idéia nessa correção é se o evento retornar com essa mensagem,  então informa a propriedade aliqGilrat.ReenvioFap = tpsim e gera o evento novamente.

Acho que a ideia é boa, não vamos ter muitas alternativas, já que dependendo da situação precise reenviar o fap novamente.. Esperar o pessoal subir os ajustes para efetuar os testes aqui, obrigado pessoal..

Link to comment
Share on other sites
IMATECH Community Regular

IMATECH

Posted
Posted
8 horas atrás, alexcamilo01 disse:

A idéia nessa correção é se o evento retornar com essa mensagem,  então informa a propriedade aliqGilrat.ReenvioFap = tpsim e gera o evento novamente.

Não seria mais simples considerar a existência de valor para o 'fap' ? 

if pAliqRat.Fap > 0 then
   GeraCampo( ..., pAliqRat.Fap)

Fica a cargo do aplicativo gerar ou não (conforme necessário)

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

Link to comment
Share on other sites
IMATECH Community Regular

IMATECH

Posted
Posted (edited)

Testado e aprovado (1º envio não informa o fat. Em caso de rejeição gera novamente com o fat)

pcesGerador.pas

De: 

  if not(VersaoDF <= ve02_05_00) and not(bProcJudRat) and not(bProcJudFap) and not(pTpInscEstab = tiCNO) then
    Exit;

  Gerador.wGrupo(GroupName);

  if (VersaoDF <= ve02_05_00) or bProcJudRat then
    Gerador.wCampo(tcStr, '', 'aliqRat', 1, 1, 1, eSAliqRatToStr(pAliqRat.AliqRat));

  if (pEmp.TpInsc = tiCNPJ) then
  begin
    if (VersaoDF <= ve02_05_00) or bProcJudFap or (pTpInscEstab = tiCNO) then
      Gerador.wCampo(tcDe4, '', 'fap',          1, 5, 0, pAliqRat.Fap);

Para: 

  if not(VersaoDF <= veS01_00_00) and not(bProcJudRat) and not(bProcJudFap) and not(pTpInscEstab = tiCNO) then
    Exit;

  Gerador.wGrupo(GroupName);

  if (VersaoDF <= ve02_05_00) or bProcJudRat then
    Gerador.wCampo(tcStr, '', 'aliqRat', 1, 1, 1, eSAliqRatToStr(pAliqRat.AliqRat));

  if (pEmp.TpInsc = tiCNPJ) then
  begin
    if (VersaoDF <= veS01_00_00) or bProcJudFap or (pTpInscEstab = tiCNO) then

 

pcesGerador.pas

Edited by IMATECH

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

Link to comment
Share on other sites
Kelly Diego Rakelly Enthusiast

Kelly Diego Rakelly

Posted
Posted
Em 24/08/2021 at 23:19, IMATECH disse:

Testado e aprovado (1º envio não informa o fat. Em caso de rejeição gera novamente com o fat)

pcesGerador.pas

D

  

  if not(VersaoDF <= veS01_00_00) and not(bProcJudRat) and not(bProcJudFap) and not(pTpInscEstab = tiCNO) then
    Exit;

  Gerador.wGrupo(GroupName);

  if (VersaoDF <= ve02_05_00) or bProcJudRat then
    Gerador.wCampo(tcStr, '', 'aliqRat', 1, 1, 1, eSAliqRatToStr(pAliqRat.AliqRat));

  if (pEmp.TpInsc = tiCNPJ) then
  begin
    if (VersaoDF <= veS01_00_00) or bProcJudFap or (pTpInscEstab = tiCNO) then

 

pcesGerador.pas 73 kB · 0 downloads

Bom dia, ainda esta tendo problemas com o FAP, para o envio pela primeira vez é necessário a informação do mesmo, após isso somente se houver processo. Fiz atualização hoje do repositório, mas ainda continua com o problema.

image.png.9873a1c200c91b103e0ca721f6bdbec3.png

Agora, Kelly Diego Rakelly disse:

Bom dia, ainda esta tendo problemas com o FAP, para o envio pela primeira vez é necessário a informação do mesmo, após isso somente se houver processo. Fiz atualização hoje do repositório, mas ainda continua com o problema.

image.png.9873a1c200c91b103e0ca721f6bdbec3.png

Em anexo o XML de envio.

1_S-1005_INC_000001_31082021_094512_ENV.xml

Link to comment
Share on other sites
alexcamilo01 Contributor

alexcamilo01

Posted
  • Author
Posted
1 hora atrás, Kelly Diego Rakelly disse:

Bom dia, ainda esta tendo problemas com o FAP, para o envio pela primeira vez é necessário a informação do mesmo, após isso somente se houver processo. Fiz atualização hoje do repositório, mas ainda continua com o problema.

image.png.9873a1c200c91b103e0ca721f6bdbec3.png

Em anexo o XML de envio.

1_S-1005_INC_000001_31082021_094512_ENV.xml 4 kB · 1 download

Kelly bom dia!

pela instrução contida neste link: https://www.gov.br/esocial/pt-br/noticias/ajuste-no-procedimento-de-informacao-do-fap-em-s-1005-versao-s-1.0 , vc envia sem a informação do FAP, e caso você receba essa mensagem ai de retorno, você gera novamente com o FAP e reenvia.

Utilizando as units do primeiro post, para gerar o evento com o FAP vc vai fazer assim:  

DadosEstab.aliqGilrat.ReenvioFap      := tpSim;

e para gerar sem o FAP assim:  

DadosEstab.aliqGilrat.ReenvioFap      := tpNao;  // (default)

 

Link to comment
Share on other sites
Kelly Diego Rakelly Enthusiast

Kelly Diego Rakelly

Posted
Posted
52 minutos atrás, alexcamilo01 disse:

Kelly bom dia!

pela instrução contida neste link: https://www.gov.br/esocial/pt-br/noticias/ajuste-no-procedimento-de-informacao-do-fap-em-s-1005-versao-s-1.0 , vc envia sem a informação do FAP, e caso você receba essa mensagem ai de retorno, você gera novamente com o FAP e reenvia.

Utilizando as units do primeiro post, para gerar o evento com o FAP vc vai fazer assim:  

DadosEstab.aliqGilrat.ReenvioFap      := tpSim;

e para gerar sem o FAP assim:  

DadosEstab.aliqGilrat.ReenvioFap      := tpNao;  // (default)

 

Entendi, então eu vou te controlar isso correto? 

Link to comment
Share on other sites
Kelly Diego Rakelly Enthusiast

Kelly Diego Rakelly

Posted
Posted
Em 24/08/2021 at 23:19, IMATECH disse:

Testado e aprovado (1º envio não informa o fat. Em caso de rejeição gera novamente com o fat)

pcesGerador.pas

De: 

  if not(VersaoDF <= ve02_05_00) and not(bProcJudRat) and not(bProcJudFap) and not(pTpInscEstab = tiCNO) then
    Exit;

  Gerador.wGrupo(GroupName);

  if (VersaoDF <= ve02_05_00) or bProcJudRat then
    Gerador.wCampo(tcStr, '', 'aliqRat', 1, 1, 1, eSAliqRatToStr(pAliqRat.AliqRat));

  if (pEmp.TpInsc = tiCNPJ) then
  begin
    if (VersaoDF <= ve02_05_00) or bProcJudFap or (pTpInscEstab = tiCNO) then
      Gerador.wCampo(tcDe4, '', 'fap',          1, 5, 0, pAliqRat.Fap);

Para: 

  if not(VersaoDF <= veS01_00_00) and not(bProcJudRat) and not(bProcJudFap) and not(pTpInscEstab = tiCNO) then
    Exit;

  Gerador.wGrupo(GroupName);

  if (VersaoDF <= ve02_05_00) or bProcJudRat then
    Gerador.wCampo(tcStr, '', 'aliqRat', 1, 1, 1, eSAliqRatToStr(pAliqRat.AliqRat));

  if (pEmp.TpInsc = tiCNPJ) then
  begin
    if (VersaoDF <= veS01_00_00) or bProcJudFap or (pTpInscEstab = tiCNO) then

 

pcesGerador.pas 73 kB · 2 downloads

Boa tarde, fiz o teste de acordo com essa alteração acima e deu certo, mas precisamos esperar a validação para ser colocado no repositório. Tem alguma previsão sobre a validação dessa alteração que por sinal deu certo?

Link to comment
Share on other sites
  • 2 weeks later...
  • Consultores
  • Solution
EMBarbosa Veteran

EMBarbosa

Posted
  • Consultores
  • Solution
Posted
Em 24/08/2021 at 23:19, IMATECH disse:

Testado e aprovado (1º envio não informa o fat. Em caso de rejeição gera novamente com o fat)

pcesGerador.pas

De: 

  if not(VersaoDF <= ve02_05_00) and not(bProcJudRat) and not(bProcJudFap) and not(pTpInscEstab = tiCNO) then
    Exit;

  Gerador.wGrupo(GroupName);

  if (VersaoDF <= ve02_05_00) or bProcJudRat then
    Gerador.wCampo(tcStr, '', 'aliqRat', 1, 1, 1, eSAliqRatToStr(pAliqRat.AliqRat));

  if (pEmp.TpInsc = tiCNPJ) then
  begin
    if (VersaoDF <= ve02_05_00) or bProcJudFap or (pTpInscEstab = tiCNO) then
      Gerador.wCampo(tcDe4, '', 'fap',          1, 5, 0, pAliqRat.Fap);

Para: 

  if not(VersaoDF <= veS01_00_00) and not(bProcJudRat) and not(bProcJudFap) and not(pTpInscEstab = tiCNO) then
    Exit;

  Gerador.wGrupo(GroupName);

  if (VersaoDF <= ve02_05_00) or bProcJudRat then
    Gerador.wCampo(tcStr, '', 'aliqRat', 1, 1, 1, eSAliqRatToStr(pAliqRat.AliqRat));

  if (pEmp.TpInsc = tiCNPJ) then
  begin
    if (VersaoDF <= veS01_00_00) or bProcJudFap or (pTpInscEstab = tiCNO) then

 

pcesGerador.pas 73 kB · 3 downloads

 

Em 02/08/2021 at 17:23, alexcamilo01 disse:

Boa pessoal!

 

image.thumb.png.0921af77bcec7b01eaae96b71f4faf4c.png

https://www.gov.br/esocial/pt-br/noticias/ajuste-no-procedimento-de-informacao-do-fap-em-s-1005-versao-s-1.0

Segue anexo sugestão para solução da situação exposta no link acima.

pcesCommon.pas 84 kB · 9 downloads pcesGerador.pas 73 kB · 6 downloads

Muito obrigado pelas contribuições.
Fiz a implementação baseada nelas.
Subi as alterações para o SVN na Revisão  22920.
Pelo que vi está tudo certo.
Por favor atualizem, testem e reportem qualquer problema.

Mais uma vez obrigado.

  • Like 2

[]'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
  • Consultores
EMBarbosa Veteran

EMBarbosa

Posted
  • Consultores
Posted
Em 18/09/2021 at 14:12, IMATECH disse:

Remoção propriedade "ReenvioFap", pois não tem utilidade/função no *componente

Criação da TAG se faz exclusivamente pela existência de valor informado do campo "FAP"

Me parece que realmente não precisamos mais da propriedade para gerar a tag no xml.

@alexcamilo01 , Existe algum caso em que a propriedade ainda é necessária?

[]'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
  • EMBarbosa unlocked this topic
  • 1 month later...
  • Consultores
EMBarbosa Veteran

EMBarbosa

Posted
  • Consultores
Posted

@alexcamilo01 @IMATECH

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

Mais uma vez obrigado.

  • Like 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á 1076 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
 Share
Go to topic listing
×
×
  • 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.