Jump to content

Paulo Felipe Moretto

Membros
  • Posts

    3
  • Joined

  • Last visited

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