señores del Foro les pido ayuda con lo siguiente, estoy intentado añadirle un menu a la ventana principal de mi aplicación, ocupo un archivo de recursos hecho con PellesC e intento redefinir los MenuItem desde mi programa, la idea es guardar las opciones del menu en un DBF para luego cargarlas
Este es el codigo
Include "FiveWin.ch"
include "ads.ch"
REQUEST ADS
FUNCTION Main()
MEMVAR oWndpri
DEFINE WINDOW oWndpri TITLE "Gestion Ventas" FROM 0,100 TO 20, 160
ACTIVATE WINDOW oWndPri ON INIT BuilMenu()
RETURN NIL
STATIC FUNCTION BuilMenu()
MEMVAR oWndPri
LOCAL oItem, oMenu
oMenu:=Tmenu():ReDefine( "MNU_PRINCIPAL", .F. )
oItem:=oMenu:GetMenuItem( 51100 )
oItem:ReDefine( "Prueba", "Msg prueba", .F., .T., {|oItem| Msginfo( oItem:cPrompt )}, , "BMP_DBLOCK", oMenu, {|| .T. }, 51100,,,, {||.T.} )
RETURN oWndPri:SetMenu( oMenu )
Lo que inteto es redefinir cada item del menu de mi archivo de recursos, la idea es que en el evendo ACTION me devuelva el cprompt del item o el identificador (51100), con esto haria una busqueda en mi archivo DBF para ejecutar el programa que tengo asignado ahí, ademas en este dbf tengo guardado el resto de los parámetros que ocupa cada item del menu. Pero me funciona a medias
Esto funciona
En la redefinición del item me funcionan los primeros 4 parametros , pero lo mas importante del "baction" para adelante no funciona, esta es la definición que tengo
ReDefine( cPrompt, cMsg, lChecked, lActive, bAction, cBmpFile,;
cResName, oMenu, bBlockAction, nId, nVKState,;
nVirtKey, nHelpId, bWhen )
Alguien sabra por que no me funciona el resto de los parametros o tendra una mejor idea de como hacer esto. Gracias
