FoxPro/Visual FoxPro - clase txtbtns

 
Vista:

clase txtbtns

Publicado por eduardo blanco (3 intervenciones) el 05/09/2007 16:36:39
muchas gracias y con todo el respeto les hago estas preguntas

el asistente para formilarios utiliza el asistente wizbtns con su clase txtbtns mediante el siguiente codigo en el boton eliminar, el procedimiento es efectivo pero no borra definitivamente el registro de la tabla (no utiliza el comando pack).

como puedo lograr modificar esta clase para mi proyecto para que realice el borrado definitivo?

si modifico el codigo quedara definitivamente modificada la clase, como puedo entonces omitir el codigo del boton y que codigo me realizaria esta funcion?

el cursor deberá quedar en el espacio borrado para asignar un nuevo registro!!!!

#DEFINE MSGBOX_YES 6
#DEFINE C_MSGBOX1 36
#DEFINE C_DELETE_LOC "¿Desea eliminar este registro?"
#DEFINE C_NOLOCK_LOC "No se pudo eliminar el registro porque hay alguien usándolo."

* Note: Cascading deletes should be handled via RI triggers in DBC!
IF EMPTY(ALIAS())
RETURN
ENDIF

IF MESSAGEBOX(C_DELETE_LOC,C_MSGBOX1) = MSGBOX_YES
DELETE
IF THIS.Parent.UpdateRows() &&success
* Success
IF !EOF()

SKIP 1
ENDIF
IF EOF() AND !BOF()

SKIP -1
ENDIF
ENDIF
THIS.Parent.ButtonRefresh()
THIS.Parent.NavRefresh()
ENDIF

IF THISFORM.ShowWindow = 2
Activate Window (THISFORM.Name)
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