Bloco P Não Gera No Txt - Urgente

[automacaosamos]

Olá.

Estou tentando gerar o Bloco P do SPED Pis Cofins....Mandei as instrucoes mas quando gera o TXT nao aparece o bloco P....Depois do Bloco C e gera o Bloco D depois o Bloco F e Bloco M, mais nao gera o Bloco P....aguem sabe me dizer o pq disso???

 

Segue o modo que to usando o Bloco P

 

 

procedure TF_PROCESSOS.Bloco_P;

VAR M_TOTVDA : Real;

begin

  with ACBrSPEDPisCofins1.Bloco_P do

   begin

    with RegistroP001New do

      begin

        IND_MOV := imComDados;

 

        with RegistroP010New do

          begin

            CNPJ := M_EMPCNP;

          end;

 

        if Abre_IboSql('SELECT SAIPRO,PRONBM,SUM(SAIVLI) AS SAIVLI FROM CADSA2 JOIN CADPRO ON CADSA2.SAIPRO = CADPRO.PROCOD WHERE SAITIP = ' + QuotedStr('NFS') + ' AND SAIDTE BETWEEN ' + QuotedStr(DataPonto(dxDateEditEMIPISCOF.Text)) + ' AND ' +  QuotedStr(DataPonto(dxDateEditATEPISCOF.Text)) + ' GROUP BY SAIPRO,PRONBM') then

          begin

            Abre_CadSql('SELECT SUM(SAIVLI) AS SAIVLI FROM CADSA2 WHERE SAITIP = ' + QuotedStr('NFS') + ' AND SAIDTE BETWEEN ' + QuotedStr(DataPonto(dxDateEditEMIPISCOF.Text)) + ' AND ' + QuotedStr(DataPonto(dxDateEditATEPISCOF.Text)));

            M_TOTVDA := F_DATMOD.TB_EXESQL.FindField('SAIVLI').AsFloat;

            M_REGISTROS := F_DATMOD.TB_IBOSQL.RecordCount;

            F_DATMOD.TB_IBOSQL.First;

            while not F_DATMOD.TB_IBOSQL.Eof do

              begin

                if StrContains('8527#8302#8708#8538#8544#8531#3921#8536#3919#3917#8536#3926#8518#8536#8512',copy(F_DATMOD.TB_IBOSQL.FindField('PRONBM').AsString,1,4)) then

                  begin

                    with RegistroP100New do

                      begin

                        DT_INI             := StrToDate(dxDateEditEMIPISCOF.Text);

                        DT_FIM             := StrToDate(dxDateEditATEPISCOF.Text);

                        VL_REC_TOT_EST     := M_TOTVDA;

                        COD_ATIV_ECON      := RemoverEspeciais(F_DATMOD.TB_IBOSQL.FindField('PRONBM').AsString);

                        VL_REC_ATIV_ESTAB  := F_DATMOD.TB_IBOSQL.FindField('SAIVLI').AsFloat;

                        VL_EXC             := M_TOTVDA-F_DATMOD.TB_IBOSQL.FindField('SAIVLI').AsFloat;

                        VL_BC_CONT         := M_TOTVDA-(M_TOTVDA-F_DATMOD.TB_IBOSQL.FindField('SAIVLI').AsFloat);

                        ALIQ_CONT          := 1;

                        VL_CONT_APU        := ((M_TOTVDA-(M_TOTVDA-F_DATMOD.TB_IBOSQL.FindField('SAIVLI').AsFloat))*0.01) * 1;

                      end;

                  end;

                dxfProgressBar3.Position:= trunc((F_DATMOD.TB_IBOSQL.Recno / M_REGISTROS)*100);                  

                F_DATMOD.TB_IBOSQL.Next;

              end;

          end;

 

      end;

   end;

end;

 

 

Desde ja Agradeço!

[Isaque Pinheiro]

Para que o bloco P seja gerado, o registro 0145, tem que existir, vc já leu isso no Guia Pratico? Verifique, se não é isso.

[adilsonpazzini]

Isaque , beleza , seguinte , estou com problemas ref a essa Nova versao do Validador SPED Contribuicoes 2.0.9 , que ao exportar um arquivo validado e depois se eu tentar reintegra-lo novamente pra sobre por dentro do validador , o mesmo sempre fica acusando erro de totalizacao no Bloco 9 , no caso faltando 2 registros , ai fui vendo , da impressao que ele pede pra incluir o Bloco P , independente se tem ou nao o Registro 0145 .. No caso gerando ele zerado mesmo imSemDados .. sera que isso é algum problema no Validador novo , pois isso so esta acontecendo no validador 2.0.9 , no 2.0.8 nao acontece isso .

 

Desde ja agradeço

 

Adilson Pazzini .

[EMBarbosa]

Ontem eu atualizei o exemplo do ACBrSPEDPISCOFINS para gerar como exemplo o bloco P e o arquivo é importado corretamente.

Só que ele gera apenas com os registros básicos.

[adilsonpazzini]

Entao eu ate Vi mesmo Elton , porem vi que pra que gere esses registro deve ter o registro 0145 , se nao ele nao gera ... por isso que comentei mesmo ... vi que no manual fala que teria que

ter o registro 0145 pra gerar . mais que nem te falei no 2.0.9 parece que deve existir esse bloco P . nem que for zerado .

 

Adilson Pazzini .

[EMBarbosa]

Possibilidades: ou pode ser um problema no validador, ou pode ser um problema no Guia Prático, ou talvez você tenha mesmo que gerar o 0145.

 

Você pode anexar exatamente a mensagem de erro que indica que você deve incluir o bloco P mesmo sem registros?

[adilsonpazzini]

Posso sim. vou gerar um aqui . e posto na segunda feira .. entao . so pra vc saber . esse problema . so começou nessa versao 2.0.9 .. Na .2.0.8 pra tras . nunca deu problema . mais segunda eu corro aqui pra te enviar . muito obrigado Elton .

 

Adilson Pazzini