factura borrar
Publicado por Hugo (20 intervenciones) el 09/07/2003 15:51:50
Hola mi problema es el siguiente tengo una facturaen la cual cargo los productos dentro de un grid y tengo un boton borrar que me borra el ultimo producto
ingresado, mi problema es que no me devuelve la cantidad de articulos vendidos a la tabla de stock lo mismo me gustaria que sea si anulo la factura que me devuelva
la cantidad de los articulos que tiene la factura a stock, escribi de mil formas y ya no se como hacerlo me mareo
el codigo del borar 1 articulo es el siguiente, que tengo que modificar para que me regrese los articulos a la otra tabla de sotck gracias desde ya y saludos
mens=messagebox("¿Seguro que quiere borrar el producto?",4+16+0,"Facturación")
if mens=6
SELECT detfactura
codigo=THISFORM.text2.VALUE
go bottom
DELETE NEXT 1
M_Total=Precio * Cantidad
SET FILT TO nrofactura=codigo
SUM total FOR nrofactura=codigo TO M_Total2
thisform.text12.refresh
Replace NEXT 1 total With M_Total2
****************************************************
SELECT factura
SET ORDER TO nrofactura
SEEK codigo
IF FOUND()
REPLACE NEXT 1 nrofactura WITH codigo
REPLACE NEXT 1 codcliente WITH THISFORM.text7.VALUE
REPLACE NEXT 1 Fecha WITH Date()
REPLACE NEXT 1 totalgral With M_Total2
ELSE
ENDIF
THISFORM.Grid1.ReadOnly = .T.
THISFORM.Grid1.Refresh()
THISFORM.text4.Refresh()
SELECT detfactura
THISFORM.REFRESH
SET FILTER TO
THISFORM.REFRESH
thisform.text12.refresh
endif
ingresado, mi problema es que no me devuelve la cantidad de articulos vendidos a la tabla de stock lo mismo me gustaria que sea si anulo la factura que me devuelva
la cantidad de los articulos que tiene la factura a stock, escribi de mil formas y ya no se como hacerlo me mareo
el codigo del borar 1 articulo es el siguiente, que tengo que modificar para que me regrese los articulos a la otra tabla de sotck gracias desde ya y saludos
mens=messagebox("¿Seguro que quiere borrar el producto?",4+16+0,"Facturación")
if mens=6
SELECT detfactura
codigo=THISFORM.text2.VALUE
go bottom
DELETE NEXT 1
M_Total=Precio * Cantidad
SET FILT TO nrofactura=codigo
SUM total FOR nrofactura=codigo TO M_Total2
thisform.text12.refresh
Replace NEXT 1 total With M_Total2
****************************************************
SELECT factura
SET ORDER TO nrofactura
SEEK codigo
IF FOUND()
REPLACE NEXT 1 nrofactura WITH codigo
REPLACE NEXT 1 codcliente WITH THISFORM.text7.VALUE
REPLACE NEXT 1 Fecha WITH Date()
REPLACE NEXT 1 totalgral With M_Total2
ELSE
ENDIF
THISFORM.Grid1.ReadOnly = .T.
THISFORM.Grid1.Refresh()
THISFORM.text4.Refresh()
SELECT detfactura
THISFORM.REFRESH
SET FILTER TO
THISFORM.REFRESH
thisform.text12.refresh
endif
Valora esta pregunta
0