Jump to content

logo_acbr_paygo.png

Chegou o TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


botao_saibamais.png

beneficios.png

Curso Dominando o ACBrMonitor
Novo Módulo Soluções de Varejo
Assine o SAC ACBr em qualquer plano e tenha acesso

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba Mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

Carlos Antonio Jr

Bloco P quando sem movimentação

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

Recommended Posts

Pessoal boa tarde, 

Gerei o Sped contribuições novamente a pedido do contador devido ao PVA 3.1.1 

e o mesmo acusou erro do Bloco P.

Revisei minha geração e verifiquei que eu não alimentava esse registro, atualizei o ACBr e  fiz a alimentação com a opção  "IND_MOV <> imSemDados"

porem o mesmo não gerou os registros :

|P001|1|
|P990|2|

|9900|P001|1|
|9900|P990|1| 

Debugando o os fontes , me deparei com a procedure e fiz a mudança e passou a gerar corretamente.

procedure TACBrSPEDPisCofins.WriteBloco_P;
begin
   if not Bloco_M.Gravado then
      WriteBloco_M;

//   if (Bloco_P.Gravado) or (Bloco_0.Registro0145Count = 0) then exit ;  { original .. Acbr atualizado 27/02/19 }

   if ((Bloco_P.Gravado) or (Bloco_0.Registro0145Count = 0)) and
      (Bloco_P.RegistroP001.IND_MOV <> imSemDados) then exit ;    { <= Quando sem movimentação }

   /// BLOCO P
   WriteRegistroP001;
   WriteRegistroP990;
   Bloco_P.WriteBuffer;
   Bloco_P.Conteudo.Clear;
   Bloco_P.Gravado := True ;
end;

 

Obrigado (tentei colocar o topico no lugar certo, é a primeira vez que posto aqui)

Carlos

 

Share this post


Link to post
Share on other sites

Bom dia.

Obrigada pelo interesse em colaborar, o tópico está sim no lugar correto, porém é necessário anexar o arquivo alterado para análise.

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.

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Share this post


Link to post
Share on other sites
4 horas atrás, delphi7sp1 disse:

Bom dia

Segue unit em anexo,

linha 700...

Obrigado ,

Carlos

ACBrSpedPisCofins.pas 67 kB · 1 download

tem razão.

já está no svn a sugestão

  • Like 1

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Share this post


Link to post
Share on other sites
  • Este tópico foi criado há 528 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...