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.
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
