Quantidade de casas da Nfe com 4 decimais.

[crinfo]

Amigos, boa tarde!

O problema é que gera a 4ª casa com 0,0001. Esse 1 no final que gera problemas nos cálculos e o sefaz não autoriza da NFe.

Como tirar esta casa 1 do final???

- <prod>

  <cProd>265177</cProd>

  <cEAN>4718390028110</cEAN>

  <xProd>DRIVE DVD-RW SATA</xProd>

  <NCM>16023230</NCM>

  <CFOP>5101</CFOP>

  <uCom>UND</uCom>

  <qCom>1.1201</qCom>  Valor que está no banco de dados é: 1.12 e o xml é gerado como 1.1201

  <vUnCom>96.7620000000</vUnCom>

  <vProd>108.37</vProd>

  <cEANTrib>4718390028110</cEANTrib>

  <uTrib>UND</uTrib>

  <qTrib>1.1201</qTrib>

  <vUnTrib>96.7620000000</vUnTrib>

  <indTot>1</indTot>

  </prod>

[Juliana Tamizou]

Boa tarde.

Você consegue reproduzir a mesma situação no demo?

Att.

[crinfo]

Juliana, estou tentando enviar um nota agora..

 

<cProd>000404</cProd>

<cEAN>SEM GTIN</cEAN>

<xProd>CH FER GALV ESP 0,95X1200X3000MM</xProd>

<NCM>72104910</NCM>

<CFOP>5925</CFOP>

<uCom>T</uCom>

<qCom>0.2701</qCom>

<vUnCom>5770.1524000000</vUnCom>

<vProd>1557.94</vProd>

<cEANTrib>SEM GTIN</cEANTrib>

<uTrib>T</uTrib>

<qTrib>0.2701</qTrib>

<vUnTrib>5770.1524000000</vUnTrib>

<indTot>1</indTot>

<xPed>0</xPed>

<nItemPed>0</nItemPed>

Na base de dados, é 0,270 mas no XML aparece 0.2701, não sei da onde ele puxa esse 1 no final.

[BigWings]

36 minutos atrás, crinfo disse:

Na base de dados, é 0,270 mas no XML aparece 0.2701, não sei da onde ele puxa esse 1 no final.

O IBExpert também pode estar exibindo arredondado o valor real gravado no banco de dados.

Veja em Options / Environment Options / Grid / Display Formats.

[crinfo]

BigWings,

Veja a tela que aparece.

é isso???

Valeu!!

[crinfo]

Bom dia amigos!

Ainda sem solução??

Alguem sabe me dizer o que fazer?

Att. Clayton

[BigWings]

Em 04/10/2019 at 08:29, crinfo disse:

Bom dia amigos!

Ainda sem solução??

Alguem sabe me dizer o que fazer?

Att. Clayton

Você viu qual o valor real que está gravado no banco de dados?

Em 03/10/2019 at 14:47, crinfo disse:

Veja a tela que aparece.

é isso???

Sim, veja que o IBExpert mostra campos float limitando a 3 casas.

Basta alterar a máscara como desejar.

[crinfo]

Amigos, continua dando este erro, veja o Banco Exportado pelo Ibexpert

 Prod.qCom     := (FormNotaFiscal.QryItnf.FieldByName('Pro_quantidade').asFloat);

Exportei o arquivo para Scripty do Ibexpert para ver como ele sai, mas a nota sai com o 01 no final da quantidade.

Como resolver isso????

Obg

 

INSERT INTO ITNF (NTF_NUMERO, IEC_SEQUENCIA, PRO_CODIGO, PRO_DESCRICAO, PRO_QUANTIDADE, PRO_VENDA, PRO_ICMS, PRO_IPI, NR_PEDIDO, EMPRESA, PRO_CLASSE_TR, PRO_SITUACAO, PRO_CFOP, PRO_APELIDO, PRO_CST_IPI, PRO_CST_PIS, PRO_CST_COFINS, ID_ITNF, PRO_REDUCAO, PRO_CSOSN, DI_DOC_IMP, DI_DT_DOC, DI_LOCAL_DES, DI_UF_DES, DI_DT_DES, DI_COD_EXP, DI_COD_FAB, DI_PED_COMP, PRO_BC_ICMS, PRO_DESCONTO, PRO_BC_ICMS_ST, PRO_PERC_ICMS_ST, IT_BC_II, IT_DESP_ADU_II, IT_IOF_II, IT_IMPOSTO_II, IT_PEDCOMPRA, IT_ITEMPEDCOMPRA, IT_NTF_TIPO, TIPO_NF, PRO_VL_ST, PRO_VL_ICMS, PRO_IVA_ICMS_ST, ITNF_ICMS_VALOR_ICMS_OPERA, ITNF_ICMS_PERC_ICMS_DIFERIDO, ITNF_ICMS_VALOR_ICMS_DIFERIDO, ITNF_ICMS_DESON, ITNF_ICMS_MOTIVO_DES_ICMS, ITNF_IPI_CLASSE_ENQUADRAMENTO, ITNF_IPI_COD_ENQUADRAMENTO, ITNF_IPI_CNPJ_PRODUTOR, ITNF_IPI_COD_SELO, ITNF_IPI_QTDE_SELO, ITNF_IPI_IMPOSTO, ITNF_PIS_BASE_CALC, ITNF_PIS_PERC, ITNF_PIS_VALOR_IMPOSTO, ITNF_COF_BASE_CALC, ITNF_COF_PERC, ITNF_COF_VALOR_IMPOSTO, ITNF_IMP_BASE_CALC, ITNF_IMP_IOF, ITNF_IMP_DESP_ADUA, ITNF_IMP_VALOR_IMPOSTO, ITNF_IPI_PERC_IMPOSTO_DEVOL, ITNF_IPI_VALOR_DEVOL, ITNF_IMP_PERC, DI_VIATRANSP, DI_AFRMM, DI_INTERMEDIO, DI_ADQ_CNPJ, DI_UF_TERCEIRO, DI_DRAW, DI_VL_DESCONTO, ITNF_NVE_ADUANEIRO, DX_N_DRAW, DX_CHAVE_NFE_EXP, DX_NR_REGISTRO, DX_QTDE_EXP, DX_UF_SAIDA_PAIS, DX_LOCAL_EXPORTA, DX_LOCAL_DESPACHO, ITNF_COMB_PROD_ANP, ITNF_COMB_MIXGN, ITNF_COMB_CODIF, ITNF_COMB_QTEMP, ITNF_COMB_UF_CONS, ITNF_COMB_BC_CIDE, ITNF_COMB_ALIQ_CIDE, ITNF_COMB_VALOR_CIDE, ITNF_PAPEL_RECOPI, ITNF_VL_FRETE, ITNF_VL_SEGURO, ITNF_VL_OUTROS, PRO_BC_IPI, ITNF_PERC_FCPUFDEST, ITNF_VL_BCUFDEST, ITNF_PERC_ICMSUFDEST, ITNF_PERC_ICMSINTER, ITNF_PERC_ICMSINTERPART, ITNF_VL_ICMSUFDEST, ITNF_VL_ICMSUFREMET, ITNF_VL_FCPUFDEST, ITNF_UNI_CODIGO, IT_UNI_CODIGO, PRO_VENDA_TRIB, PRO_QTDE_TRIB, ITNF_BASE_CALC_ISS, ITNF_PERC_ISS, ITNF_VL_IMPOSTO_ISS, ITNF_TIPO_SERVICO, ITNF_BC_ICMS_RET, ITNF_PERC_ICMS_RET, ITNF_VL_ICMS_RET, ITNF_VL_ICMS_SUB, ITNF_VL_BCFCPUFDEST)
          VALUES (18378, 8, '000404', 'CH FER ESP 8,00X1200X3000MM', 0.4600, 3220, 0, 0, NULL, '01', '006', '00', '6925', '404', '53', '08', '08', 103556, 0, '400', '', NULL, '', '', NULL, '', '', '', 0, 0, 0, 0, 0, 0, 0, 0, '0', 0, '7', NULL, 0, 0, 0, 0, 0, 0, 0, NULL, '', '', '', '', 0, 0, 0, 0, 0, 0, 0, 0, NULL, NULL, NULL, NULL, 0, 0, NULL, 1, NULL, 1, '', '', '', 0, NULL, '', '', '', 0, '', '', '', '', NULL, '', 0, '', 0, 0, 0, NULL, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, '05', NULL, 3220, 0.4600, 0, 0, 0, -1, 0, 0, 0, 0, NULL);
INSERT INTO ITNF (NTF_NUMERO, IEC_SEQUENCIA, PRO_CODIGO, PRO_DESCRICAO, PRO_QUANTIDADE, PRO_VENDA, PRO_ICMS, PRO_IPI, NR_PEDIDO, EMPRESA, PRO_CLASSE_TR, PRO_SITUACAO, PRO_CFOP, PRO_APELIDO, PRO_CST_IPI, PRO_CST_PIS, PRO_CST_COFINS, ID_ITNF, PRO_REDUCAO, PRO_CSOSN, DI_DOC_IMP, DI_DT_DOC, DI_LOCAL_DES, DI_UF_DES, DI_DT_DES, DI_COD_EXP, DI_COD_FAB, DI_PED_COMP, PRO_BC_ICMS, PRO_DESCONTO, PRO_BC_ICMS_ST, PRO_PERC_ICMS_ST, IT_BC_II, IT_DESP_ADU_II, IT_IOF_II, IT_IMPOSTO_II, IT_PEDCOMPRA, IT_ITEMPEDCOMPRA, IT_NTF_TIPO, TIPO_NF, PRO_VL_ST, PRO_VL_ICMS, PRO_IVA_ICMS_ST, ITNF_ICMS_VALOR_ICMS_OPERA, ITNF_ICMS_PERC_ICMS_DIFERIDO, ITNF_ICMS_VALOR_ICMS_DIFERIDO, ITNF_ICMS_DESON, ITNF_ICMS_MOTIVO_DES_ICMS, ITNF_IPI_CLASSE_ENQUADRAMENTO, ITNF_IPI_COD_ENQUADRAMENTO, ITNF_IPI_CNPJ_PRODUTOR, ITNF_IPI_COD_SELO, ITNF_IPI_QTDE_SELO, ITNF_IPI_IMPOSTO, ITNF_PIS_BASE_CALC, ITNF_PIS_PERC, ITNF_PIS_VALOR_IMPOSTO, ITNF_COF_BASE_CALC, ITNF_COF_PERC, ITNF_COF_VALOR_IMPOSTO, ITNF_IMP_BASE_CALC, ITNF_IMP_IOF, ITNF_IMP_DESP_ADUA, ITNF_IMP_V

ExportaItens.txt

[crinfo]

Por favor me ajudem...

 

Mesmo usando a Função abaixo:

 

Function FormatQuantidadeNota( dValor : Double ) : Double;
var xDisplayFormat : string;
    xCasasDec : Smallint;
begin
 case Sistema.Qtde_Casas_Nota of
  0:xDisplayFormat := '###########0.';
  1:xDisplayFormat := '###########0.0';
  2:xDisplayFormat := '###########0.00';
  3:xDisplayFormat := '###########0.000';
  4:xDisplayFormat := '###########0.0000';
  5:xDisplayFormat := '###########0.00000';
  6:xDisplayFormat := '###########0.000000';
 end;
  Result := StrToFloatDef(FormatFloatBr( dValor , System.Sysutils.format(xDisplayFormat, [Sistema.Qtde_Casas_Nota,0])),dValor);
end;

Result :=0,29

Mesmo assim ele insiste em Colocar no XML e na Report 0,2901

[crinfo]

Alguém tem ideia do que pode ser isso??

Obg!;

[Daniel Port]

@crinfo,  Float é isso aí  mesmo.

Se quiser dar uma olhadinha nesse link,  Ele explica bem detalhadinho.

http://rvelthuis.de/articles/articles-floats.html#delphitypes