Ejecutar funciones creadas a traves de codigo

[txon]

Saludos amigos:

Trato de crear una rutina que me permita ejecutar funciones creadas desde codigo, quizas con un ejemplo se entienda mejor.

DEFINE WINDOW oWnd TITLE "Pruebas" COLOR "W+/BG";
@ 8,10 COMBOBOX oCbx VAR cCbx {"Cliente","Proveedor","Articulo"} OF oWnd SIZE 50,40
@ 10, 10 BUTTON oBtn1 PROMPT "Funcion" OF oWnd SIZE 32,16 ACTION MiFuncion(oWnd,cCbx)
@ 14, 10 BUTTON oBtn2 PROMPT "Salir" OF oWnd SIZE 32,16 ACTION oWnd:End()
ACTIVATE WINDOW oWnd MAXIMIZED
//
FUNCTION MiFuncion(oWnd,cCbx)
[// Aqui deberia ir el codigo que en funcion del valor del Combobox, lanzara la funcion correspondiente, algo asi como:
&(cCbx+"(oWnd)") // Esto no funciona
RETURN nil
//
FUNCTION CLiente(oWnd)
MsgInfo("Archivo de clientes")
RETURN nil
//
FUNCTION Proveedor(oWnd)
MsgInfo("Archivo de proveedores")
RETURN nil
//
FUNCTION Articulo(oWnd)
MsgInfo("Archivo de articulos")
RETURN nil

Gracias de antemano por vuestra ayuda

[Antonio Linares]

Alfonso,

Puedes usar la clase Symbol de Harbour, que está basada en la clase Symbol de Class(y):

Code: Select all  Expand view

FUNCTION MiFuncion(oWnd,cCbx)

   local oSymbol :=  Symbol():New( cCbx )

   oSymbol:Exec( oWnd )

return nil


[Mike Serra]

Txon:

Si quieres prueba esto, a mi me funciona perfectamente:

function main()
....
..... ACTION eval( &( "{|| pruebas()}" ) )
....
return


function pruebas()
msginfo("Probando")
return

SALUDOS

Miguel A.

[txon]

Gracias a todos por responder, he probado, eval( &( "{|| pruebas()}" ) ) y funciona perfectamente, el problema es cuando queremos pasar parametros en la funcion, por ejemplo eval( &( "{|| pruebas(oGet,nCampo)}" ) ), en ese caso devuelve un error al tiempo de ejecucion "Variable oGet no encontrada", cuando realmente esta definida con anterioridad.

[Antonio Linares]

Alfonso,

Las macros (&) usan la tabla de símbolos pública y las variables locales no estan en dicha tabla, por eso falla.

Pruébalo así:
eval( &( "{| o | pruebas( o,nCampo)}" ), oGet )

[txon]

Funciona perfectamente, gracias, habia olvidado las nociones basicas de Clipper.