a ver ti te entendi!!!
Publicado por Victor //:-) (116 intervenciones) el 20/05/2005 19:23:53
Quieres validar cuando el usuario sale cerrando la ventana a media captura.
Pon en w_tu_ventana, en el evento CLOSEQUERY
integer li_rc
// Acepta lo capturado
if dw_1.AcceptText()<>1 then return 1//no cierre por que hay datos incorrectos en la captura.
//se valida si cambiaste campos-renglones borranado o modificando
IF dw_1.DeletedCount()+dw_1.ModifiedCount() > 0 THEN
li_rc = MessageBox("Precaucion!!!!", "Usted a eliminado o modifcado informacion, ¿Desea Actualizarla?", Question!, YesNoCancel!, 3)
IF li_rc = 1 THEN //SI dese actualizar
Window lw_window
lw_window = w_genapp_frame.GetActiveSheet()
lw_window.TriggerEvent("ue_update")
// o sencillo
Parent.TriggerEvent("cb_aceptar")
// o si mas sencillo
cb_aceptar.TriggerEvent(Clicked!)
RETURN 0 // permite cerrar
ELSEIF li_rc = 2 THEN //cerrar sin grabar
//SI TIENE BOTON DE SALIR PON cb_salir.TriggerEvent(Clicked!)
RETURN 0 //cierra toda la ventana
ELSE // solo continua la captura
RETURN 1 //no cierra
END IF
ELSE //IF dw_1.DeletedCount()+dw_1.ModifiedCount() >0
RETURN 0 // cierra por que no hay datos pendientes
END IF
atte
Victor //:-)
Valora esta pregunta
0