Como utilizo el comando replace en visual foxpro 9
Tengo un programa de facturación en vfp y necesito que cuando realice la venta la cantidad de inventario disminuya pero no se como, soy nuevo en este lenguaje.
Esto es lo que intente:
SELECT producto &&producto es la base de datos
replace producto.cantidad WITH thisform.tcantidad.Value &&aquí intente decirle que restara la cantidad actual por la cantidad seleccionada en la factura pero no dio resultado.
1 Respuesta
Anthony josue. Aquí te mando un ejemplo
Espero sea de ayuda. Me escribes si tienes duda, Suerte!
nCantidadNueva = thisform.text2.value && Cantidad de la venta
SELECT productos && Tabla
INDEX on CodProd TAG CodProd && Indexado por Codigo de producto
SET ORDER TO CodProd ASCENDING && Ordenado por Codigo de producto
GO top && Mandar el cursor al 1er registro
SEEK thisform.text1.value && Codigo del Producto
IF FOUND() && Existe este codigo, en caso de que sí (continuar)
nCantidadInv = Productos.CantidadInv && Cantidad de Inventario
DO WHILE .t. && Iniciar Bucle
IF RLOCK() && Bloquear tabla para reemplazo
REPLACE Productos.CantidadInv = nCantidadInv - nCantidadNueva
FLUSH FORCE && Forzar reemplazo
UNLOCK && Liberar Bloqueo de registros
EXIT && Salir de la condicion
ELSE && No se cumple la condición
LOOP && Devuelve al comienzo de una estructura de bucle
ENDIF && Cerrar Condicion del IF
ENDDO && Cerrar Bucle
ENDIF && Cerrar Condución Found
Disculpa cambia el = por with
REPLACE Productos.CantidadInv with nCantidadInv - nCantidadNueva
