Aumentar o disminuir en inventario

[Karil]

Hola, estoy desarrollando un programa de inventario en VB 6.0, en el cual tengo las tablas productos y ventas. Al momento de realizar una venta debe de disminuirse las cantidades de los productos vendidos en la tabla productos al guardar el registro de la venta. He probado varios códigos pero siempre me actualiza el último registro de la venta y los demás permanecen igual.

¿Cómo puedo hacer para que se actualicen o disminuya en todos los registros?

Les agradezco de antemano su ayuda. Gracias

[Avellaneda]

Hola, lo normal es ejecutar en la tabla una consulta de actualización (UPDATE), pero si no pones el código de cómo lo estás haciendo, no creo que te podamos ayudar.

[Karil]

Hola Avellaneda, Gracias por contestar.

Este es el código que estoy utilizando:

Dim Registros As Integer
Registros = RsTemporalVenta.RecordCount
RsTemporalVenta.Requery
RsTemporalVenta.MoveFirst
For x = 1 To Registros

With RsInventario
.Requery
.Find "Cod_Prod='" & trim(CodProductos) & "'"
!Cantidad = val(dbgridProductos.Columns(4).Text) - val(dbgridVenta.Columns(3).Text)
.UpdateBatch
.Requery
End with

If x = Registros Then Else RsTemporalVenta.MoveNext
Next

Espero me puedas ayudar.

[yera2002]

Hola Karil,

Tengo una pregunta, como vas a disminuir tu inventario, en linea o al finalizar las ventas del dia?

Saludos...

[Karil]

Hola Yera2002.

Cada vez que se realice una venta debo de disminuir en el inventario.

[Avellaneda]

Hola, creo haberlo entendido.

Suponemos que la conexión a la base de datos se llama bd y la tienes declarada a nivel de módulo (o Public).
Tienes dos tablas, una llamada Productos y otra Ventas. Tienen un campo en común llamado idProducto

Los registros de la tabla Ventas se muestran en un control Grid llamado dbgridVenta (en la primera columna está el idProducto y en la cuarta la cantidad vendida) y los productos en otro llamado dbgridProductos. En la tabla Productos existe un campo llamado Existencias al que hay que restar la cantidad vendida.

Bueno, si es así, prueba con este código:

Código vb:

Dim CantidadVendida As Integer, i As Integer
 
For i = 0 To dbgridVenta.ApproxCount - 1
    dbgridVenta.Row = i
    CantidadVendida = dbgridVenta.Columns(3)
    bd.Execute "UPDATE Productos SET Existencias=Existencias - " & CantidadVendida & _
        " WHERE idProducto =" & dbgridVenta.Columns(0)
Next i
 

Saludos

[Karil]

Hola! Gracias por la ayuda el código funcionó muy bien, he resuelto el problema.

Ahora tengo otro problema, que se actualizan las cantidades en la BD pero en el datagrid no aparecen actualizadas al momento de realizar la operación, tengo que cerrar el proyecto y volverlo abrir ya aparecen actualizadas.

Agradecería mucho si me pudieran ayudar y disculpen la molestia pero soy algo nueva en la programación.

Gracias y Adiós.

[Avellaneda]

Iniciado por Karil

Hola! Gracias por la ayuda el código funcionó muy bien, he resuelto el problema.

Ahora tengo otro problema, que se actualizan las cantidades en la BD pero en el datagrid no aparecen actualizadas al momento de realizar la operación, tengo que cerrar el proyecto y volverlo abrir ya aparecen actualizadas.

Agradecería mucho si me pudieran ayudar y disculpen la molestia pero soy algo nueva en la programación.

Gracias y Adiós.

Hola!

Lo único que tienes que hacer es, después del Update (a la salida del bucle), un Requery al recordset enlazado al grid de productos.

Saludos

[Karil]

Ok, voy a probarlo.

Muchas gracias y hasta luego.

[Karil]

Hola Avellaneda!!!

Ahora si esta muy bien, muchísimas gracias por la ayuda y por el tiempo que tomaste para ayudarme.

Eres lo máximo.

Gracias, gracias muchas gracias.

Hasta la próxima y Saludos desde Nicaragua.