FoxPro/Visual FoxPro - ayuda para borrar

   
Vista:

ayuda para borrar

Publicado por mario (90 intervenciones) el 04/02/2009 12:09:50
hola a todos tengo un problema en facturacion cuando le doy click en borrar no me borra pero si doy otro click si borra o sea anula la factura aqui le envio mi codigo aver si pueden encontrar el problema. Gracias
*-----------------------------------------------------------*
* Modulo mantenimiento de Gesys
* objeto: formulario Facturacion
* procedimiento: borrar
*-----------------------------------------------------------*
IF habilitado = 1 THEN
IF MESSAGEBOX("Desea Anular Factura de Ventas...?",32+4,"Borrar") = 6
if m.estado = "P"
ThisForm.txtestado.value ="A"
ThisForm.mens.Visible = .t.
bandera =1
Ok = SQLExec(conectar,'update facturacabecera set estado= ?M.estado where numerofactura=?m.numerofactura')
IF Ok < 0
= MessaGeBox("Error, No se puede seleccionar la Tabla de Factura!!!",16)
ELSE
thisform.Refresh
ENDIF
thisform.b_ctapagar
**************************actualizar stock*************************
STORE 0 TO cant
SELECT aux_ven
GO TOP
DO WHILE !EOF()
SELECT * from stock WHERE stock.producto_cod_producto = aux_ven.cod_prod INTO CURSOR tmpcli
SELECT tmpcli
GO top
STORE tmpcli.can_exis TO cantidad
STORE tmpcli.producto_cod_producto TO mat
STORE aux_ven.det_cant TO cant
Ok = SQLExec(conectar,'update stock set can_exis = (?cantidad + ?cant) where producto_cod_producto = ?mat')
SELECT aux_ven
SKIP + 1
ENDDO
***************************************
*!* else
*!* wait"El registro no puede ser anulado"windows timeout 1
*!* endif
*!* else
*!* thisform.desa
*!* thisform.botones.cancelar.click
ENDIF
endif
thisform.Refresh
Ok = SQLExec(conectar,'Select * From facturacabecera','facturacabecera')
Ok = SQLExec(conectar,'Select * From stock','stock')
Ok = SQLExec(conectar,'Select * From CTASACOBRAR','CTASACOBRAR')
ThisForm.botones.cancelar.click
thisform.Refresh

ELSE
MESSAGEBOX("Debe dar apertura a la Caja", 0+32+0,"Gesys 1.0")
ENDIF
***********************************************************************************************
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ayuda para borrar

Publicado por rostro (1 intervención) el 21/03/2009 03:50:28
vales verga socio tu software no vale para nada
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar