Jump to content

Delphi chamada_delphi.png acbr.png

C6 chamada_c6.png botao.png

Bloco P Não Gera No Txt - Urgente


automacaosamos
  • Este tópico foi criado há 2708 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 to comment
Share on other 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 to comment
Share on other sites

  • 1 year later...

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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other sites

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

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.