Picture y access
Publicado por CANDELA (2 intervenciones) el 15/02/2004 00:28:40
Hola que tal estoy haciendo un formulario de facturacion en visual basic y hasta ahora va muy bien
gracias a que en este foro me ayudaron un monton .
Cada vez que pongo el codigo de barras del producto aparece en el control del "Mshfexgrid" la
descripcion del producto y luego se suma cuando presiono el boton de comando.
Ahora el inconveniente que tengo es que cada vez que pongo el codigo de barras en la columna en donde
aparece la cantidad del los productos comprados me gustaria que apareciera una unidad mas por
cada vez que ingreso el mismo cogigo de barras.
Por ejemplo en vez de que me aparesca pizza 5$
pizza 5$
pizza 5$
que me aparesca pizza 3u. 5$
El codigo que tengo hecho hasta ahora es el siguiente
Dim NUMFILA As Long
Private Sub Command1_Click()
suma = 0
For i = 1 To Grid.Rows - 1
If IsNumeric(Grid.TextMatrix(i, 6)) Then
suma = suma + Grid.TextMatrix(i, 6)
End If
Next
TxtTotal = suma
End Sub
Private Sub Form_Load()
Dim titulos As String
Grid.TextMatrix(0, 1) = "Articulo"
Grid.TextMatrix(0, 2) = "Cantidad"
Grid.TextMatrix(0, 3) = "U.M."
Grid.TextMatrix(0, 4) = "Descripción"
Grid.TextMatrix(0, 5) = "I.V.A."
Grid.TextMatrix(0, 6) = "P.Unitario"
Grid.TextMatrix(0, 7) = "Dto."
Grid.TextMatrix(0, 8) = "Importe Total"
titulos = "| Articulo | Cantidad | U.M. | Descripción | I.V.A. | P.Unitario
gracias a que en este foro me ayudaron un monton .
Cada vez que pongo el codigo de barras del producto aparece en el control del "Mshfexgrid" la
descripcion del producto y luego se suma cuando presiono el boton de comando.
Ahora el inconveniente que tengo es que cada vez que pongo el codigo de barras en la columna en donde
aparece la cantidad del los productos comprados me gustaria que apareciera una unidad mas por
cada vez que ingreso el mismo cogigo de barras.
Por ejemplo en vez de que me aparesca pizza 5$
pizza 5$
pizza 5$
que me aparesca pizza 3u. 5$
El codigo que tengo hecho hasta ahora es el siguiente
Dim NUMFILA As Long
Private Sub Command1_Click()
suma = 0
For i = 1 To Grid.Rows - 1
If IsNumeric(Grid.TextMatrix(i, 6)) Then
suma = suma + Grid.TextMatrix(i, 6)
End If
Next
TxtTotal = suma
End Sub
Private Sub Form_Load()
Dim titulos As String
Grid.TextMatrix(0, 1) = "Articulo"
Grid.TextMatrix(0, 2) = "Cantidad"
Grid.TextMatrix(0, 3) = "U.M."
Grid.TextMatrix(0, 4) = "Descripción"
Grid.TextMatrix(0, 5) = "I.V.A."
Grid.TextMatrix(0, 6) = "P.Unitario"
Grid.TextMatrix(0, 7) = "Dto."
Grid.TextMatrix(0, 8) = "Importe Total"
titulos = "| Articulo | Cantidad | U.M. | Descripción | I.V.A. | P.Unitario
Valora esta pregunta


0