Jump to content

Promoção 25 Anos de Delphi
25% de desconto em todas as versões

Saiba mais

Ganhe o curso Tributação NF-e para Desenvolvedores

Assinando o SAC Anual este mês
botao.png

 

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

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

Share this post


Link to post
Share on other sites

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