Estimados amigos:

Preciso ayuda con un sistema de facturacion que estoy haciendo y mi problema es el siguiente :

Cuando voy a generar la "Factura", me suma los productos agregados a un grid, pero he alli el problema...

Me hace un redondeo de el subtotal y el total.

Ejemplo : Sime suma dos productos con los precios 2.20 + 2.30 = esto seria igual a (4,50).

Pero lo que a mi me da como resultado es 2.20 + 2.30 = (4)

Si alguno me puede ayudar se lo estare agradecido

mi correo es soulmaster07@hotmail.com

Reitero.. Muchas gracias

Tenes que pasar la variable o Text a Double por lo que veo es Integer.
despues ponele Format (variable, "#.#0")

Veras, no especificas con q estas trabajando si con vb6 o net, pero si lo haces con vb6, no te preocupes, no es que el compilador te redondea el resultado, es que no formateas tu salida ej:

asumamos que tu estas variables cant prec y total
obviamente la cantidad te la da el cliente y el precio sale de tu base

pero el total es un campo calculado y por lo tanto lo tienes que editar, OJO, en este caso deberas asignar otra variable que no sea el contro para poder mostral el resultado de la manera correcta te pongo el ejemplo

total=val(txt_cant.text) * val(txt_pre.text) ' hace el calculo y pone el resultado en total,, lo podrias hacer de forma directa asi
txt_total=val(txt_cant.text) * val(txt_pre.text) que me imagino que asi lo tienes, pero ahi es que te da el error

entonces asi quedaria

txt_total=format(total,"###,###.99") ' de esta forma formateas la salida y obligas a que se te pongan los decimales.

Listo, espero haberte ayudado

Hola amigos... jjejeje me olvide de decirles que si estoy trabajando en vb6

y si tenes razon, te muestro como lo puse yo :

TxtSubTotal = (Val(Txtcantidad) * (Val(TxtPrecio)))

segun entiendo vos me decis que lo cambie de la siguiente forma

TxtSubTotal = (Val(Txtcantidad) * (Val(TxtPrecio)))
TxtSubTotal = Format (TxtSubTotal,"###,###.99")

algo asi seria?

Hola chicos, alguno me puede ayudar con el tema de facturacion ?

si puede ser por medio de msn estaria genial

Hola,proba esta forma:

Código:

Private Sub Form_Load()
Dim precio1 As Double, precio2 As Double, total As Double
precio1 = 2.2
precio2 = 2.3
total = precio1 + precio2
MsgBox Format(CDbl(total), "#,##0.00")
End Sub

saludos.

No el campo calculado no lo debes realizar en el mismo textbox, sino como te puse, realizalo en una variable, y como te puso seba, no te olvides que esta variable debe ser de tipo double para que te coga los decimales.

Una vez que realizas el calculo en otra variable, muestras el cotenido de esa variable el el textbox del total, pero lo formateas con la funcion format , tal como vez en los ejemplos que te pusimos,

Saludos

Gracias chicos ahi le encontre el problema... jeje

todo era por la configuracion regional de la pc. le cree un modulo para que al arrancar el programa automaticamente modifique la configuracion regional segun lo precise el programa.

de todas formas un millon de gracias por sus aportes

saludos colegas