Acrescentar o Bloco P

[Eisenheim]

Bom dia pessoal!

Estive acrescentando o novo bloco no componente, mas estou numa correria aqui na empresa que estou sem tempo para concluir. Estou disponibilizando os 2 arquivos que criei e se alguém puder dar continuidade para nós será de grande ajuda.

ACBrSPEDPisCofins_Bloco_P.zip

[EMBarbosa]

Baixei e fiz algumas alterações para ficar com o código atual. Mas não subi pro SVN pois o PVA 1.0.7 não está validando para o guia prático 1.0.5 onde mencionam os novos registros.

Deve-se levar em conta que o Bloco P não precisa nem ser informado caso a empresa não gere pelo menos um registro 0145 no Bloco 0. Isso mesmo, nem mesmo os registros de abertura e fechamento devem ser gerados. Então vamos precisar fazer um tratamento sobre isso, conforme trecho abaixo extraído do Guia Prático 1.0.5, página 248, parágrafo 3:

O bloco “P” só deve ser exigido na EFD-PIS/Cofins da pessoa jurídica, caso tenha sido gerado no mínimo 01

(um) registro “0145”, indicando a sujeição da pessoa jurídica à nova contribuição, no período da escrituração. A

inexistência de registro “0145” no Bloco “0”, deve dispensar a necessidade de gerar o Bloco “P”, inclusive em relação a

registros de abertura e de encerramento deste.

Ainda falta alguma coisa, em especial os métodos WriteRegistroPXXX, mas anexo os arquivos já parcialmente modificados...

ACBrSPEDPisCofins_BlocoP.rar

[Eisenheim]

Blz EMBarbosa?

Vou baixar novamente e implementar o restante de acordo com as observações que você mencionou.

Obrigado.

[EMBarbosa]

Blz. Qualquer coisa você posta aí.

[Vially Israel]

Alguma novidade sobre o bloco P?

[carlessoflu]

o bloco P já se encontra disponivel no SVN? já posso atualizar para ter essas modificações?

[EMBarbosa]

O bloco P ainda não faz parte do SVN. Se quiser fazer o download dos arquivos que anexei anteriormente e terminar a implementação fiquem a vontade.

Talvez o Eisenheim que iniciou a implementação pode ajudar ou eu mesmo poderemos ajudar em alguma dúvida.

[carlessoflu]

Alguma novidade sobre o Bloco P? o prazo já está encerrando, faltam apenas duas semanas para enviar essa informação.

[carlessoflu]

Pessoal, baixei os arquivos e já adiantei o que dava, mas ainda estão faltando alguns registros, e tbm não está saindo na impressão do arquivo txt os dados do bloco P. por favor, postem os arquivos mais atualizados para que eu possa continuar adiantando o serviço enquanto ainda não está totalmente pronto.

Lembrando que o prazo é só até semana que vem, eu tenho que enviar de 2 clientes até o dia 10 de Maio.

Desde já agradeço.

[carlessoflu]

Então, nenhuma resposta?

Pessoal, desculpa ser chato, mas estou precisando muito disso, o prazo é só até dia 10.

[EMBarbosa]

Olá carlessoflu,

Não acho que esteja sendo chato. Acho que você não entendeu o espírito do funcionamento do projeto ACBr...

Ele é um projeto OpenSource que depende da ajuda dos usuários. Se você está precisando com tanta urgência, você tem a opção de implementar você mesmo. Nesse caso, não começaria do zero já que poderia ser usar o código que foi bondosamente postado pelo Eisenhein e parcialmente corrigido por mim. Outra opção seria uma recompensa para a finalização do bloco P e assim incentivar algum programador a pegar o trabalho para você. Finalmente, se mais usuários fizerem parte do ACBrSAC quem sabe talvez tenhamos um desenvolvedor por conta dessa parte do projeto.

Eu, assim como boa parte dos outros moderadores e desenvolvedores do ACBr não recebo pelas implementações, correções e mesmo atuação aqui no fórum. Então só posso atuar nos meus horários de folga, ou no meu horário de serviço mas de acordo com o que é me é permitido levando em conta as necessidades da empresa pra qual trabalho.

Espero que entenda que não é má vontade ou má resposta. Apenas que temos que escolher.

[carlessoflu]

Tudo bem, eu entendo que não é facil. Estou tentando continuar o desenvolvimento, mas infelizmente não tenho muito conhecimento a respeito. Se alguém que já conseguiu implementar alguma coisa além do que já foi postado e puder postar aqui para baixar já será uma boa ajuda.

Qualquer coisa entrem em contato pelo email [email protected], estarei disposto a ajudar.

[analista.edilson]

Quem tiver o arquivo mais atualizado do bloco P anexe

aqui no forum tenho interesse em implementar oque faltar.

Aguardo.

[EMBarbosa]

A menos que o Eisenhein ou outro usuário tenha feito alguma modificação, o mais atual foi o que eu já deixei anexado. Você pode partir de lá. Qualquer coisa, estou a disposição.

[analista.edilson]

Estou implementando oque falta do bloco P`

quando eu terminar vou postar aqui.

O prazo está próximo vou se virar.

Até mais....

[carlessoflu]

Pessoal, consegui fazer, ao trancos e barrancos mas aparentemente deu tudo certo.

Vou disponibilizar para download.

ACBrPisCofins_BlocoP.rar

[EMBarbosa]

Tente verificar com o PVA 2.0 que foi lançado essa semana.

EDIT: Você conseguiu fazer o componente não imprimir o bloco P?

[rmc2001]

Pessoal

alguem conseguiu implementar a questao do Bloco P nao sair no arquivo qdo a empresa sem registros pra ele??!!?

mto obrigado

[netstart]

Eu não estava conseguindo validar no PVA 2.0 com os os blocoP disponibilidado pelo colega acima , então alterei duas linhas nas units que e ele forneceu :

procedure TBloco_0.WriteRegistro0145(Reg0140: TRegistro0140);

begin

if Assigned(Reg0140.Registro0145) and (Reg0140.Registro0145.COD_INC_TRIB > '') then // coloquei o a validação para nao gerar o registro 145

begin

with Reg0140.Registro0145 do

begin

Add( LFill('0145') +

LFill(COD_INC_TRIB) +

LFill(VL_REC_TOT,0,2) +

LFill(VL_REC_ATIV,0,2) +

LFill(VL_REC_DEMAIS_ATIV,0,2) +

LFill(INFO_COMPL));

end;

Registro0990.QTD_LIN_0 := Registro0990.QTD_LIN_0 + 1;

/// Variavél para armazenar a quantidade de registro do tipo.

FRegistro0145Count := FRegistro0145Count + 1;

end;

end;

procedure TACBrSPEDPisCofins.WriteBloco_P;

begin

if (Bloco_P.Gravado) or (not(Bloco_0.Registro0145Count > 0)) then exit ;

// coloquei a verificação se existir o registro 0145 ai sim gerar o bloco P

if not Bloco_M.Gravado then

WriteBloco_M;

/// BLOCO P

WriteRegistroP001;

WriteRegistroP990;

Bloco_P.WriteBuffer;

Bloco_P.Conteudo.Clear;

Bloco_P.Gravado := True ;

end;

Ai consegui validar normalmente como era antes , claro que essa não deve ser a maneira correta de resolver o problema , pois ainda estou testando , mas ja da pelo menos já nao gera o BLOCO P junto com o PIS/COFINS ...

[Isaque Pinheiro]

Eu não estava conseguindo validar no PVA 2.0 com os os blocoP disponibilidado pelo colega acima , então alterei duas linhas nas units que e ele forneceu :

procedure TBloco_0.WriteRegistro0145(Reg0140: TRegistro0140);

begin

if Assigned(Reg0140.Registro0145) and (Reg0140.Registro0145.COD_INC_TRIB > '') then // coloquei o a validação para nao gerar o registro 145

begin

with Reg0140.Registro0145 do

begin

Add( LFill('0145') +

LFill(COD_INC_TRIB) +

LFill(VL_REC_TOT,0,2) +

LFill(VL_REC_ATIV,0,2) +

LFill(VL_REC_DEMAIS_ATIV,0,2) +

LFill(INFO_COMPL));

end;

Registro0990.QTD_LIN_0 := Registro0990.QTD_LIN_0 + 1;

/// Variavél para armazenar a quantidade de registro do tipo.

FRegistro0145Count := FRegistro0145Count + 1;

end;

end;

procedure TACBrSPEDPisCofins.WriteBloco_P;

begin

if (Bloco_P.Gravado) or (not(Bloco_0.Registro0145Count > 0)) then exit ;

// coloquei a verificação se existir o registro 0145 ai sim gerar o bloco P

if not Bloco_M.Gravado then

WriteBloco_M;

/// BLOCO P

WriteRegistroP001;

WriteRegistroP990;

Bloco_P.WriteBuffer;

Bloco_P.Conteudo.Clear;

Bloco_P.Gravado := True ;

end;

Ai consegui validar normalmente como era antes , claro que essa não deve ser a maneira correta de resolver o problema , pois ainda estou testando , mas ja da pelo menos já nao gera o BLOCO P junto com o PIS/COFINS ...

Bom dia, subi o Bloco P e sua implementação, se falou que esta funcional, depois analisamos com mais calma se exite uma maneira mais adequada.

[wandarlei]

Boa tarde pessoal,

Eu fiz a implementação com o Bloca P e esta validando normal.

O único detalhe que encontrei é que não zera o contador fRegistroP200Count, se gerar o arquivo sem sair do programa ele continua somando sem zerar. Fiz a seguinte mudança para resolver isso.

ACBrEPCBloco_P_Class;

...

procedure TBloco_P.CriaRegistros;

  ...

  fRegistroP200Count      := 0;

  ...

end;

Abraço a todos.

[Isaque Pinheiro]

Boa tarde pessoal,

Eu fiz a implementação com o Bloca P e esta validando normal.

O único detalhe que encontrei é que não zera o contador fRegistroP200Count, se gerar o arquivo sem sair do programa ele continua somando sem zerar. Fiz a seguinte mudança para resolver isso.

ACBrEPCBloco_P_Class;

...

procedure TBloco_P.CriaRegistros;

  ...

  fRegistroP200Count      := 0;

  ...

end;

[/code]


Abraço a todos.

Corrigido, obrigado.

[analista.edilson]

Terminei o bloco "P", testei e está legal, gera o arquivo que pode ser validado pelo

PVA.

vou colocar em anexo um arquivo RAR, com todos arquivo alterado em texto com a

descrição das alterações.

SVN-ACbr.rar

[analista.edilson]

O bloco P está faltando os registro P110 e P210, que eu já implementei e postei

aqui no forum porem não apareceu no SVN.

Ai fica complicado controlar a versões do ABbr aqui, pois o que baixo do SVN está faltando coisas que eu já implementei.

[EMBarbosa]

Olá analista.edilson,

Esse é só um dos problemas de postar a mesma coisa em vários lugares diferentes. Ainda estou esperando sua resposta nesse tópico que você mesmo criou: