Jump to content

dev botao

Bloco P Não Gera No Txt - Urgente


automacaosamos
  • Este tópico foi criado há 3605 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á 3605 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.

The popup will be closed in 10 seconds...