- Code: Select all Expand view
cAlias := GetNewAlias( "CUST" )
Sabe alguien si existe alguna función en ADO, que haga algo similar a lo que hace en dbf GetNewAlias( "CUST" )
Espero haberme hecho entender, de antemano gracias.
cAlias := GetNewAlias( "CUST" )
MEMVAR oApp
STATIC cVentana
PROCEDURE MiProceso()
cVentana := PROCNAME()
IF ASCAN(oApp:aVentanas,cVentana) > 0
hHand := ASCAN(oApp:aVentanas,cVentana)
oApp:oWnd:Select(hHand)
oApp:oWnd:oWndClient:aWnd[hHand]:Restore()
RETURN
ENDIF
AADD(oApp:aVentanas,cVentana)
// Tu codigo
// Y al salir validar que saque el proceso de tus ventanas abiertas
ACTIVATE WINDOW oWnd1 ON INIT Incrusta( oWnd1, oDlg, .T.) VALID(ADEL(oApp:aVentanas,ASCAN(oApp:aVentanas,cVentana)))
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 29 guests