Jump to content

Paulo Felipe Moretto

Membros
  • Posts

    3
  • Joined

  • Last visited

Posts posted by Paulo Felipe Moretto

  1. 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

  2. Para solucionar o caso acima, basta declarar na uses a biblioteca: pcnConversao e fazer as respectivas conversões

     

    CST     := CSTICMSToStr(ACBrSAT.CFe.Det.Items[a].Imposto.ICMS.CST);
    CSOSN	:= CSOSNIcmsToStr(ACBrSAT.CFe.Det.Items[a].Imposto.ICMS.CSOSN);

     

  3. Boa noite, tenho vários arquivos XML mod 59 (CFe) e preciso importar as informações. Estou usando o componente ACBrSAT para me auxiliar mas estou tendo dificuldade para a leitura de algumas tags por ex: CST e CSOSN do ICMS

    CST	:= ACBrSAT.CFe.Det.Items[a].Imposto.ICMS.CST;
    CSOSN	:= ACBrSAT.CFe.Det.Items[a].Imposto.ICMS.CSOSN;

     

    Quando tento receber o valor na variável desta forma eu não consigo, alguém poderia me dar uma luz? Possuo o mesmo tipo de problema com o pis e cofins. Consultei os arquivos de exemplo mas não encontrei de importação.

     

×
×
  • 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.