DUVIDA COM VALOR ARREDONDADO ECF
Bom dia,
Meu problema é o seguinte, tenho um cliente(Madeireira), que está com um problema.
Na venda de madeira por exemplo, eles querem colocar quantidade 7.0001(com 4 casas decimais) , e pelo que ela me disse, o valor no cupom fiscal é arredondado com o calculo de uma quantidade cmo 3 casas decimais.
Alguem sabe oq eu posso fazer para mudar isso? Se Existe alguma maneira dela ter o valor correto com a quantidade que ele realmente vendeu.
Só pra frizar, se trata do ECF.
Obrigado desde já.
abraços
Meu problema é o seguinte, tenho um cliente(Madeireira), que está com um problema.
Na venda de madeira por exemplo, eles querem colocar quantidade 7.0001(com 4 casas decimais) , e pelo que ela me disse, o valor no cupom fiscal é arredondado com o calculo de uma quantidade cmo 3 casas decimais.
Alguem sabe oq eu posso fazer para mudar isso? Se Existe alguma maneira dela ter o valor correto com a quantidade que ele realmente vendeu.
Só pra frizar, se trata do ECF.
Obrigado desde já.
abraços
Você pode utlizar o Format com quantas casas decimais desejar
Text1.text = Format(text1.text + text2.text,[Ô]###,###,###0.0000[Ô])
Esse é um exemplo com 4 casas decimais, depois se quiser é só aumentar ou diminuir
Espero ter te ajudado
Text1.text = Format(text1.text + text2.text,[Ô]###,###,###0.0000[Ô])
Esse é um exemplo com 4 casas decimais, depois se quiser é só aumentar ou diminuir
Espero ter te ajudado
Mas oq ela me passou é q no sistema sai o valor normal
mas na impressao do cupom ele arredonda... e está sendo puxado os valores da tabela
vou dar mais uma olhada aqui, mas se algm tiver alguma dica agradeço
mas na impressao do cupom ele arredonda... e está sendo puxado os valores da tabela
vou dar mais uma olhada aqui, mas se algm tiver alguma dica agradeço
Eu estava tendo o mesmo problema que você em um cliente meu, dava erro arredondamento tb, só que era na maercadoria pesada
Estudando um pouco o ECF vi que ele tinha algumas particularidades, entaão acertei o meu código.
Da uma olhadinha
Tratei ele na hora que é digitado o código
If Mid(TxtCodBarras.Text, 1, 1) = 2 And Len(TxtCodBarras.Text) = 13 Then
Sql = [Ô]Select codbarras,descricao,valorvenda,descreduzida,unidvenda,estoque,promocao,valorpromocao from itens where codbarras = [Ô] & Mid(TxtCodBarras.Text, 2, 6)
Set Banco = Db.Execute(Sql)
[ô]O sinal de [Ô]![Ô] serve para travar o valor e assim formatar corretamente
QuantItens(0) = Format(Mid(TxtCodBarras.Text, 8, 5), [Ô]@@,@@@[Ô])
LblQuant.Caption = QuantItens(0)
TxtCodBarras.Text = Mid(TxtCodBarras.Text, 2, 6)
ProdutoPesado = True
GoTo Continua
End If
E aqui é quando mando ele para a impressora
If Impressora = True Then
If CupomAberto = False Then
RetornoImpressora = ECF_AbreCupom([Ô][Ô])
CupomAberto = True
End If
If ProdutoPesado = False Then
RetornoImpressora = ECF_VendeItem(Val(TxtCodBarras.Text), Label3.Caption, [Ô]II[Ô], [Ô]I[Ô], CCur(LblQuant.Caption), 2, Format(CCur(LblValUnitario.Caption), [Ô]###,###,##0.00[Ô]), [Ô]%[Ô], [Ô]0000[Ô])
Else
RetornoImpressora = ECF_VendeItem(Val(TxtCodBarras.Text), Label3.Caption, [Ô]II[Ô], [Ô]F[Ô], CCur(LblQuant.Caption), 3, Format(CCur(LblValUnitario.Caption), [Ô]###,###,##0.00[Ô]), [Ô]%[Ô], [Ô]0000[Ô])
End If
ProdutoPesado = False
[ô]Descrição do comando
[ô]ECF_VendeItem(txtcodbarras, código produto
[ô]Label3.caption, descrição reduzida
[ô][Ô]II[Ô], aliquota
[ô][Ô]I[Ô], quant inteira ou [Ô]F[Ô], quant fracionária
[ô]Lblquant.text, quantidade de venda
[ô]2, Preço com 2 casas
[ô]LblValUnitario.Caption, preço unitário
[ô][Ô]%[Ô], indica percentual para o desconto
[ô][Ô]0000[Ô]) desconto zero
End If
Espero ter te ajudado, qqer coisa posta ai novamente
Estudando um pouco o ECF vi que ele tinha algumas particularidades, entaão acertei o meu código.
Da uma olhadinha
Tratei ele na hora que é digitado o código
If Mid(TxtCodBarras.Text, 1, 1) = 2 And Len(TxtCodBarras.Text) = 13 Then
Sql = [Ô]Select codbarras,descricao,valorvenda,descreduzida,unidvenda,estoque,promocao,valorpromocao from itens where codbarras = [Ô] & Mid(TxtCodBarras.Text, 2, 6)
Set Banco = Db.Execute(Sql)
[ô]O sinal de [Ô]![Ô] serve para travar o valor e assim formatar corretamente
QuantItens(0) = Format(Mid(TxtCodBarras.Text, 8, 5), [Ô]@@,@@@[Ô])
LblQuant.Caption = QuantItens(0)
TxtCodBarras.Text = Mid(TxtCodBarras.Text, 2, 6)
ProdutoPesado = True
GoTo Continua
End If
E aqui é quando mando ele para a impressora
If Impressora = True Then
If CupomAberto = False Then
RetornoImpressora = ECF_AbreCupom([Ô][Ô])
CupomAberto = True
End If
If ProdutoPesado = False Then
RetornoImpressora = ECF_VendeItem(Val(TxtCodBarras.Text), Label3.Caption, [Ô]II[Ô], [Ô]I[Ô], CCur(LblQuant.Caption), 2, Format(CCur(LblValUnitario.Caption), [Ô]###,###,##0.00[Ô]), [Ô]%[Ô], [Ô]0000[Ô])
Else
RetornoImpressora = ECF_VendeItem(Val(TxtCodBarras.Text), Label3.Caption, [Ô]II[Ô], [Ô]F[Ô], CCur(LblQuant.Caption), 3, Format(CCur(LblValUnitario.Caption), [Ô]###,###,##0.00[Ô]), [Ô]%[Ô], [Ô]0000[Ô])
End If
ProdutoPesado = False
[ô]Descrição do comando
[ô]ECF_VendeItem(txtcodbarras, código produto
[ô]Label3.caption, descrição reduzida
[ô][Ô]II[Ô], aliquota
[ô][Ô]I[Ô], quant inteira ou [Ô]F[Ô], quant fracionária
[ô]Lblquant.text, quantidade de venda
[ô]2, Preço com 2 casas
[ô]LblValUnitario.Caption, preço unitário
[ô][Ô]%[Ô], indica percentual para o desconto
[ô][Ô]0000[Ô]) desconto zero
End If
Espero ter te ajudado, qqer coisa posta ai novamente
Tópico encerrado , respostas não são mais permitidas