candela
09 de Febrero del 2004

Hola que tal estoy tratando de hacer un formulario de facturacion en que al cargar el codigo de
barras en "txtCodigo" se vizualicen las caracteristicas del producto hasta mostrar las
caracteristicas del primer producto ingresado en la caja de texto voy bien el problema
es que no se como hacer para que a partir del segundo producto ingresado las caracteristicas
de este se muestren en la siguiente fila . En sintesis Por el momento lo unico que puedo hacer
es ver las caracteristicas del producto en la primer fila del "MshFlexgrid"
Aqui va el cidigo que logre hasta ahora
Gracias de Antemano








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 | |Dto. | Importe Total |"
Grid.FormatString = titulos




End Sub

Private Sub TxtCodigo_Change()
Dim text As String
Dim i As Integer
Dat_Libreria.Recordset.Index = "ID"
Dat_Libreria.Recordset.Seek "=", txtCodigo.text


If Not Dat_Libreria.Recordset.NoMatch Then

Grid.TextMatrix(1, 1) = "" & Dat_Libreria.Recordset("Articulo")
Grid.TextMatrix(1, 2) = "" & Dat_Libreria.Recordset("Cantidad")

Grid.TextMatrix(1, 4) = "" & Dat_Libreria.Recordset("Nombre")
Grid.TextMatrix(1, 6) = "" & Dat_Libreria.Recordset("Precio")
txtCodigo.text = text




Else

'MsgBox "No se ha encontrado articulo con esa descripción"
Dat_Libreria.Recordset.Index = ""
End If
'End If
End Sub

en?
09 de Febrero del 2004

hola Candela, yo no puedo hablar por la demás gente del foro, pero aquí estamos 3 personas intentando ayudarte, ...no desesperes.

Imagino que los demás no responden, porque sinceramente no saben la respuesta, no porque no quieran ayudar. te pido un sólo un poco de paciencia.

salu2.

Baltasar
09 de Febrero del 2004

Pues el problema es que lo estás poniendo siempre en la fila 1 del grid. Pon una variable que determine la fila (NUMFILA) y entonces sí. Te pongo lo que creo que es la solución:

Dim NUMFILA as long

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 | |Dto. | Importe Total |"
Grid.FormatString = titulos
numfila=0

End Sub

Private Sub TxtCodigo_Change()
Dim text As String
Dim i As Integer
Dat_Libreria.Recordset.Index = "ID"
Dat_Libreria.Recordset.Seek "=", txtCodigo.text


If Not Dat_Libreria.Recordset.NoMatch Then
numfila=numfila+1
Grid.TextMatrix(numfila, 1) = "" & Dat_Libreria.Recordset("Articulo")
Grid.TextMatrix(numfila, 2) = "" & Dat_Libreria.Recordset("Cantidad")

Grid.TextMatrix(numfila, 4) = "" & Dat_Libreria.Recordset("Nombre")
Grid.TextMatrix(numfila, 6) = "" & Dat_Libreria.Recordset("Precio")
txtCodigo.text = text

Else

'MsgBox "No se ha encontrado articulo con esa descripción"
Dat_Libreria.Recordset.Index = ""
End If
'End If
End Sub

Creo no haber olvidado nada.

Suerte.

P.D. Esas no son maneras de pedir las cosas, aquí estamos para intercambiar ideas, conocimientos, aficiones . . pero no para exigir, estamos?

Saludos a todos.