Hola a todos!!!
Espero que esta sea la útlima vez que pido ayuda!
Resulta que tengo un formulario para realizar VENTAS. Cuando vendo artículos, la idea es que el stock de esos artículos se resten según la cantidad que vendí. Para ello utilicé este codigo:
Código:
' grabar factura
For fila = 1 To Grid1.Rows - 1
CnN.Execute "INSERT INTO ventas(Cliente, CantidadVendida, Detalle, Precio , PrecioTotal, NumeroFactura, Codigo, Fecha, Unidad) VALUES ('" & _
Grid1.TextMatrix(fila, 0) & "', '" & Grid1.TextMatrix(fila, 1) & "', '" & _
Grid1.TextMatrix(fila, 2) & "', '" & Grid1.TextMatrix(fila, 3) & "', '" & _
Grid1.TextMatrix(fila, 4) & "', '" & Grid1.TextMatrix(fila, 5) & "', '" & Grid1.TextMatrix(fila, 6) & "', '" & Grid1.TextMatrix(fila, 7) & "', '" & Grid1.TextMatrix(fila, 8) & "')"
Next fila
' leer codigo de stock
For fila = 1 To Grid1.Rows - 1
datos = "select * from stock where codigo = '" & Grid1.TextMatrix(fila, 6) & "' "
Next fila
tablas_apertura1.Open datos, conexion_basedatos
tengo = tablas_apertura1!cantidad
tablas_apertura1.Close
' restar stock
For fila = 1 To Grid1.Rows - 1
queda = tengo - " & Grid1.TextMatrix(fila, 1) & "
Next fila
' regraba nueva cantidad
For fila = 1 To Grid1.Rows - 1
datos = "Update stock set cantidad = " & queda & " where codigo = '" & Grid1.TextMatrix(fila, 6) & "' "
conexion_basedatos.Execute datos
Next fila
Antes usaba TextBox's para realizar este trabajo y funcionaba bien, pero ahora que uso el MSFlexGrid me aparece el siguiente error:
Y si le doy a Depurar me marca la siguiente línea:
Antes trabajaba con TextBox's en vez de FlexGrid's y el código funcionaba
¿Cómo puedo lograr que cuando haga una venta, se reste la cantidad de esos
artículos vendidos? Esta resta, debe hacerse teniendo en cuenta que se debe restar cantidad de la tabla
stock de la base de datos
Disculpen las molestias!
Un saludo y muchas gracias.