Hola a todos,

Estoy probando la ejecución de ficheros hrb desde mi aplicación con xHarbour, haciendo un simple MsgInfo('Hola') sin problema.
Construyo una ventana con un boton y dos gets sin problema, pero al pinchar en el botón, envia error. Al parecer, no esta soportando los eventos de los objetos.

Include 'Fivewin.ch'

FUNCTION Test()
LOCAL sText := 'Implementando Scripts'
LOCAL oWnd2, oGet1, oGet2, cGet1, cGet2

Alert(sText)
//MsgInfo(sText)
DEFINE WINDOW oWnd2 FROM 0,0 TO 12,35 TITLE 'Test'
    cGet1 := "Hola        " 
    cGet2 := "Bye         " 
    @ 10,10  BUTTON "Button 01"  SIZE 100,20 PIXEL OF oWnd2 ACTION MsgInfo('Hola')
    @ 40,10  GET oGet1 VAR cGet1 SIZE 100,20 PIXEL OF oWnd2
    @ 70,10  GET oGet2 VAR cGet2 SIZE 100,20 PIXEL OF oWnd2
ACTIVATE WINDOW oWnd2

RETURN NIL

Este es el error:
Error description: Error BASE/1001 Undefined function: MSGINFO
Args:
[ 1] = C Hola

Stack Calls

Called from: => MSGINFO(0)
Called from: PROGRAMS\Test_hrb.hrb => (b)TEST(12)

Alguna sugerencia?

Saludos,

Jairo

Al ser un script, tienes que asegurarte que las funciones que vayan a usarse en el script, estén linkadas, para ello;
REQUEST MsgInfo()

Recuerda que tienes que hacer el trabajo por el linker.

Saludos
Rafa Carmona

Estimado Rafa,

Gracias por tu sugerencia, probaré y te comento, pero el ejemplo también casca al pinchar el get.

molt amable

Saludos,

Jairo

No ha funcionado al declarar REQUEST MsgInfo,

Comentar que, cualquier función no es reconocida desde el ACTION de un objeto.

@ 10,10 BUTTON "Button 01" SIZE 100,20 PIXEL OF oWnd2 ACTION (MsgInfo("Prueba"),oWnd2:End())

Esto es con xHarbour, alguién sabe si en Harbour hay funcionalidad completa?

Saludos,

Jairo