contribuições Bloco P quando sem movimentação

[Carlos Antonio Jr 2]

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

 

[Juliana Tamizou 4,113]

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.

[Carlos Antonio Jr 2]

Bom dia

Segue unit em anexo,

linha 700...

Obrigado ,

Carlos

ACBrSpedPisCofins.pas

[Juliomar Marchetti 3,258]

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