FiveTech Software tech support forums

Wilson:

Yo lo haría así:

....
.....
ACTIVATE WINDOWS oWnd Valid((CierraTablas())

FUNCTION cierraTablas()
IF MsgYesNo(Seguro desea salir ?)
select tabla1
dbclosearea()
select tabla2
dbclosearea()
ELSE
RETURN(.F.)
ENDIF
Return(.T.)

... 000,255 LISTBOX oLbx FIELDS ... alias 'Tabla1' @ 255,0 LISTBOX oLbx1 FIELDS ... alias 'Tabla2' activate window oWnd Valid( If(Msgyesno('sales'), (CierraTablas(),.t.),.F.) ) function cierraTablas select tabla1 dbclosearea() select tabla2 dbclosearea() Return Nil pero me da error al salir de la ...