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