Ir para conteúdo
  • Cadastre-se

dev botao

Bloco P Não Gera No Txt - Urgente


  • Este tópico foi criado há 3387 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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!
Link para o comentário
Compartilhar em outros sites

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.

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link para o comentário
Compartilhar em outros sites

  • 1 ano depois...

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 .

Link para o comentário
Compartilhar em outros sites

  • Consultores

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.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

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 .

Link para o comentário
Compartilhar em outros sites

  • Consultores

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?

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 3387 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.