operar con decimales

04/07/2005 - 12:37 por Sonia | Informe spam
hola
tengo el siguiente problema:

estoy haciendo un formulario de pedidos q consta en 2 listview

el 1º donde salen los articulos( TITULO-PVP-PVP CON IVA)

y vas seleccionando el q kieras poniendo la cantidad q kieres de cada uno en
un listbox

a medida q seleccionas cada campo de la fila seleccionada aparece tb en
varios textbox

pongamos por ejemplo q el pvp c/iva es 19,5

el problema esta en q me lo coje como 195

os explico lo q hago a ver si me podeis ayudar

En la bd los campos precio, iva estan definidos como:

Tipo de datos Moneda

Formato #.##0 ?;-#.##0 ?



EN EL LISTVIEW HAGO ESTO:



For Each flecha In MiTabla.Rows

Dim titulo As String

Dim precio, iva, cod, codigo As String

titulo = flecha(0)

precio = flecha(1)

iva = flecha(2)

iva = iva.Replace(",", ".")

cod = flecha(3)

mysql = "SELECT ARTICULOS.CLAVE FROM (ARTICULOS) WHERE
(((ARTICULOS.TITULO)='" & titulo & "') AND ((ARTICULOS.[pvp c/iva])=" & iva
& "));"


.

.

.

A CONTINUACION INSERTO LOS DATOS DE LA FILA Q SELECCIONO EN UNA TABLA TEMP:
(YA SE GUARDA COMO ej:195,00)

mysql = "insert into temp values('" & cod & "','" & titulo & "','" & iva &
"'," & n & ")"



CUANDO NO KIERO MAS, PULSO UN BOTON Y SE RELLENA OTRO LISTVIEW CON TODO LO
ALMACENADO EN LA TABLA TEMP Y EN UN TEXTBOX ME SALE EL TOTAL:

For Each flecha In MiTabla.Rows

Dim cantidad As Integer

Dim precio As Double

cantidad = flecha(3)

precio = flecha(2)

y = y + (precio * cantidad)

Next

TextBox11.Text = y
 

Leer las respuestas

#1 Angel. E. Ruiz. Pastor
04/07/2005 - 14:20 | Informe spam
Amiga revisa mi articulo espero que sea de gran ayuda:
http://www.panoramabox.com/GoPub.aspx?IdObj02

Saludos cordiales,
Ángel Ruiz
MCP C#
MVP de Visual Basic desde 2004
Caracas - Venezuela
"El conocimiento es un bien, que crece a medida que se comparte"
"Sonia" escribió en el mensaje
news:

hola
tengo el siguiente problema:

estoy haciendo un formulario de pedidos q consta en 2 listview

el 1º donde salen los articulos( TITULO-PVP-PVP CON IVA)

y vas seleccionando el q kieras poniendo la cantidad q kieres de cada uno
en
un listbox

a medida q seleccionas cada campo de la fila seleccionada aparece tb en
varios textbox

pongamos por ejemplo q el pvp c/iva es 19,5

el problema esta en q me lo coje como 195

os explico lo q hago a ver si me podeis ayudar

En la bd los campos precio, iva estan definidos como:

Tipo de datos Moneda

Formato #.##0 ?;-#.##0 ?



EN EL LISTVIEW HAGO ESTO:



For Each flecha In MiTabla.Rows

Dim titulo As String

Dim precio, iva, cod, codigo As String

titulo = flecha(0)

precio = flecha(1)

iva = flecha(2)

iva = iva.Replace(",", ".")

cod = flecha(3)

mysql = "SELECT ARTICULOS.CLAVE FROM (ARTICULOS) WHERE
(((ARTICULOS.TITULO)='" & titulo & "') AND ((ARTICULOS.[pvp c/iva])=" &
iva
& "));"


.

.

.

A CONTINUACION INSERTO LOS DATOS DE LA FILA Q SELECCIONO EN UNA TABLA
TEMP:
(YA SE GUARDA COMO ej:195,00)

mysql = "insert into temp values('" & cod & "','" & titulo & "','" & iva &
"'," & n & ")"



CUANDO NO KIERO MAS, PULSO UN BOTON Y SE RELLENA OTRO LISTVIEW CON TODO LO
ALMACENADO EN LA TABLA TEMP Y EN UN TEXTBOX ME SALE EL TOTAL:

For Each flecha In MiTabla.Rows

Dim cantidad As Integer

Dim precio As Double

cantidad = flecha(3)

precio = flecha(2)

y = y + (precio * cantidad)

Next

TextBox11.Text = y



Preguntas similares