ya no me funcionan
- Code: Select all Expand view
//Abierto desde el menu principal
Static Function BRWARTIC()
....
SetKey( VK_F10, { || oDlgDet:aControls[20]:Setfocus() } ) //==>si quito esta linea, las teclas de atajo del menu principal funcionan poniendo ALT +
SetKey( VK_F10, { || nil } ) //==>he intentado con esto y tampoco funca
...
RETURN ( nil )
- Code: Select all Expand view
//Menu principal
METHOD Menu() CLASS MSis
LOCAL oMenu
//DEFINE MENU oMenu RESOURCE ::cMenu
MENU oMenu
MENUITEM "&Maestros"
MENU
MENUITEM "&Articulos"+ Chr( 9 ) + "Ctrl+A";
ACTION ( IIF(TPWDIR->ARTI1, BRWARTIC(,,.t.), MsgBox(2,"NO tiene acceso a esta opción")));
ACCELERATOR ACC_CONTROL, Asc( "A" ) ;
MESSAGE "Mantenimiento de Articulos"
....
.....
.....
