Ir para conteúdo
  • Cadastre-se

dev botao

Bloco P quando sem movimentação


  • Este tópico foi criado há 1856 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

 

Link para o comentário
Compartilhar em outros sites

  • Administradores

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.

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

Link para o comentário
Compartilhar em outros sites

  • Moderadores
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

  • Curtir 1
Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1856 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.