24/03/2009, 17:00
|
| | | Fecha de Ingreso: marzo-2009
Mensajes: 44
Antigüedad: 15 años, 2 meses Puntos: 0 | |
| Respuesta: Aumentar o disminuir en inventario
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. |