Problemas para guardar datos en una tabla
Hola Sr. Javier quisiera hacerle otra consulta...estoy tratando de grabar una venta pero no se porque no lo puedo hacer ni me cae en ningun error este mismo codigo detallado mas abajo es el mismo que utilizo para mi compra y me graba sin ningun problema..si necesita alguna especificacion favor solicítemelo!! Desde ya muchas gracias por la atención prestada
IF MESSAGEBOX("Desea grabar este dato?",4+32+0)=6
ok=SQLEXEC(nhandle,'insert into venta values(?nro_factura,?idCliente,?condi_venta,?fecha)')
SELECT venta
SELECT detalle_venta
GO TOP
DO WHILE !EOF()
=SQLEXEC(nhandle,'insert into detalle_venta values(?nro_factura,?idArticulo,?descripcion,?cantidad,?precio,?iva_5,?iva_10,?exentas,?subtotal,?total)')
=SQLEXEC(nhandle,"update articulo set Stock = M.Stock - ?cantidad where idArticulo = ?idArticulo")
SELECT Articulo
SELECT detalle_venta
thisform.Refresh
SKIP
ENDDO
ENDIF
NODEFAULT
thisform.Refresh
THISFORM.GRP1. CANCELAR.Click
IF MESSAGEBOX("Desea grabar este dato?",4+32+0)=6
ok=SQLEXEC(nhandle,'insert into venta values(?nro_factura,?idCliente,?condi_venta,?fecha)')
SELECT venta
SELECT detalle_venta
GO TOP
DO WHILE !EOF()
=SQLEXEC(nhandle,'insert into detalle_venta values(?nro_factura,?idArticulo,?descripcion,?cantidad,?precio,?iva_5,?iva_10,?exentas,?subtotal,?total)')
=SQLEXEC(nhandle,"update articulo set Stock = M.Stock - ?cantidad where idArticulo = ?idArticulo")
SELECT Articulo
SELECT detalle_venta
thisform.Refresh
SKIP
ENDDO
ENDIF
NODEFAULT
thisform.Refresh
THISFORM.GRP1. CANCELAR.Click
1 Respuesta
Respuesta de ingesoft
1