Jump to content

dev botao

Sped Fiscal registro c800 em branco


pfmoretto
Go to solution Solved by EMBarbosa,
  • Este tópico foi criado há 1176 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Boa tarde, gero os blocos C800 e C850 do sped fiscal, mas estou enfrentando problemas de performance pois o numero de registros é muito grande. Estou tentando realizar a geração através do componente ACBrSPEDFiscal1 para melhorar. Tentei gerar apenas o bloco C800 porém ele salva apenas o arquivo sem as informações dentro. ( Arquivo em anexo ) Alguém poderia me dizer onde estou errando? Já olhei o exemplo mas não consegui descobrir onde estou errando.

Outra duvida é a seguinte, quando vou passar o COD_SIT se eu utilizo COD_SIT.sdRegular; ou COD_SIT:= sdRegular; das duas formas ele da erro. Qual a forma correta de utilizar?

 

with ACBrSPEDFiscal1 do begin
    DT_INI  :=  DtInicial.Date;
    DT_FIN  :=  DtFinal.Date;
    Arquivo:='C:\Users\Felipe\Desktop\teste.txt';
    LinhasBuffer := StrToIntDef('10', 0);
    IniciaGeracao;
    while not qryC800.EOF do begin
      with Bloco_C.RegistroC800New do begin
        COD_MOD:='59';
        //COD_SIT.sdRegular;
        NUM_CFE   :=  qryC800.Fields[2].Text;
        DT_DOC    :=  StrToDate(qryC800.Fields[3].Text);
        VL_CFE    :=  StrToFloat(qryC800.Fields[4].Text);
        VL_PIS    :=  StrToFloat(qryC800.Fields[5].Text);
        VL_COFINS :=  StrToFloat(qryC800.Fields[6].Text);
        CNPJ_CPF  :=  qryC800.Fields[7].Text;;
        NR_SAT    :=  qryC800.Fields[8].Text;
        CHV_CFE   :=  qryC800.Fields[9].Text;
        VL_DESC   :=  StrToFloat(qryC800.Fields[10].Text);
        VL_MERC   :=  StrToFloat(qryC800.Fields[11].Text);
        VL_ICMS   :=  StrToFloat(qryC800.Fields[12].Text);
      end;
      qryC800.Next;
      WriteBloco_C(False);
    end;
    WriteBloco_C(True);
   SaveFileTXT;
   ShowMessage('finalizado');
  end;

 

teste.txt

Edited by Paulo Felipe Moretto
Link to comment
Share on other sites

  • 2 weeks later...
  • Consultores
  • Solution
Em 06/07/2021 at 16:38, Paulo Felipe Moretto disse:

Boa tarde, gero os blocos C800 e C850 do sped fiscal, mas estou enfrentando problemas de performance pois o numero de registros é muito grande. Estou tentando realizar a geração através do componente ACBrSPEDFiscal1 para melhorar. Tentei gerar apenas o bloco C800 porém ele salva apenas o arquivo sem as informações dentro. ( Arquivo em anexo ) Alguém poderia me dizer onde estou errando? Já olhei o exemplo mas não consegui descobrir onde estou errando.

A resposta pro seu problema é que você precisa informar o campo "IND_MOV" como sendo "imComDados" dos blocos/registros que está preenchendo.

Por exemplo no Registro C001.

Em 06/07/2021 at 16:38, Paulo Felipe Moretto disse:

Outra duvida é a seguinte, quando vou passar o COD_SIT se eu utilizo COD_SIT.sdRegular; ou COD_SIT:= sdRegular; das duas formas ele da erro. Qual a forma correta de utilizar?

COD_SIT := sdRegular;

[]'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á 1176 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...