Trunk2 - Correção Sped Pis Cofins

[Adriano Teodorico]

Senhores, bom dia, Fui gerar o Sped Contribuições no Trunk2 e deu erro de estrutura, Verifiquei o problema e ja corrigi para deixar correto, fiz a seguinte mudança:

procedure TACBrSPEDPisCofins.WriteBloco_1;
begin
   if Bloco_1.Gravado then exit ;

   if not Bloco_M.Gravado then
      WriteBloco_M;

   if not Bloco_P.Gravado then
      WriteBloco_P ;          // TIVE QUE COLOCAR ESTA LINHA NO ACBRSPEDPISCOFINS

   /// BLOCO 1
   WriteRegistro1001;
   WriteRegistro1990;
   Bloco_1.WriteBuffer;
   Bloco_1.Conteudo.Clear;
   Bloco_1.Gravado := True ;
end;}

 

Segue o Arquivo Corrigido em Anexo.

 

Atenciosamente.

ACBrSpedPisCofins.pas

[Isaque Pinheiro]

Obrigado, disponível, favor atualizar pois fiz uma correção da unit que me mandou.