Devolucion de existencia
Publicado por Hugo (20 intervenciones) el 14/12/2003 15:19:01
Hola tengo un problema con un boton borrar les comento, trabajo con un grid donde me pone todos los articulos que tengo en la factura, con el doble clik puedo borrar el producto pero no me devuelve la cantidad vendida al stock el lo que tengo hecho esta asi mas o menos pero no se cual puede ser el problema, desde ya gracias
SELECT detfactura
codigo=THISFORM.text2.VALUE
SET FILT TO nrofactura=codigo
codigo2=detfactura.cantidad
codigo3=detfactura.codinterno &&&& Codigo del producto
***Antes de borrar devuelve la cantidad************************
SELEC producto
set order to tag codinterno
seek codigo3
if FOUND()
REPLACE producto.cantidadunidad WITH producto.cantidadunidad + codigo2
ENDIF
**Fin del codigo ****************
SELECT detfactura
codigo=THISFORM.text2.VALUE
SET FILT TO nrofactura=codigo
codigo2=detfactura.cantidad
codigo3=detfactura.codinterno &&&& Codigo del producto
***Antes de borrar devuelve la cantidad************************
SELEC producto
set order to tag codinterno
seek codigo3
if FOUND()
REPLACE producto.cantidadunidad WITH producto.cantidadunidad + codigo2
ENDIF
**Fin del codigo ****************
Valora esta pregunta


0