Gente
Uso una RibbonBar donde uno de sus Grupos tiene 3 botones.
De estos, seg煤n el usuario, se permite el acceso a todos o a 2 de ellos
El c贸digo del Ribbon es el siguiente
Si a la App accedi贸 _SUPER, entonces todo los botones estan habilitados
Luego, si cambia el Usuario hago lo siguiente:
Ahora el btono, si paso el mouse por enciama se ve as铆:
No obstante al hacer clic sobre le boton el acceso esta deshabilitado. O sea, no obstante, se cumple el prop贸sito y no se puede acceder
Lo extra帽o:
Si cambio de pesta帽as (tiene varias), no cambia el aspecto pero; si accedo desde cualquiera de los dos botones, abre sendos Dialgos, y luego cierro es Dialog; entoces SI el pintado del bot贸n aparece como es deseado
Uso una RibbonBar donde uno de sus Grupos tiene 3 botones.
De estos, seg煤n el usuario, se permite el acceso a todos o a 2 de ellos
El c贸digo del Ribbon es el siguiente
聽 // Pesta帽a CONTABLE (Cajas)
聽 聽ADD GROUP saoMn[_GrpCaja] RIBBON h0:oRBar TO OPTION 3 PROMPT "Cajas" WIDTH GetClientRect( oW0:hWnd )[4]-18
聽 聽@ 12, 10 ADD BUTTON saoMn[_BtCajaM] PROMPT "Define Caja" BITMAP "bmp_Master" TOP ROUND ;
聽 聽 聽 聽 聽 聽 GROUP 聽saoMn[_GrpCaja] SIZE 80,60 ;
聽 聽 聽 聽 聽 聽 ACTION oSelf:oCajaM:ShowCabCajas( oW0 )
聽 聽ADD SEPARATOR TO GROUP saoMn[_GrpCaja] COLUMN 100
聽 聽@ 12,110 ADD BUTTON PROMPT "Movimientos"+CRLF+"Maestro" BITMAP "bmp_MvtoCj" TOP ROUND ;
聽 聽 聽 聽 聽 聽 GROUP 聽saoMn[_GrpCaja] SIZE 80,60 ;
聽 聽 聽 聽 聽 聽 WHEN 聽 聽h0:IDUser == _SUPER ; 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 // HABILITADO solo si es _SUPER
聽 聽 聽 聽 聽 聽 ACTION oSelf:oCajaM:BrwMovimientos( oW0 )
聽 聽@ 12,220 ADD BUTTON PROMPT "Movimientos"+CRLF+"Trabajo" BITMAP "bmp_MvtoCj" TOP ROUND ;
聽 聽 聽 聽 聽 聽 GROUP 聽saoMn[_GrpCaja] SIZE 80,60 ;
聽 聽 聽 聽 聽 聽 ACTION oSelf:oCajaT:BrwMovimientos( oW0 )
聽 聽...Luego, si cambia el Usuario hago lo siguiente:
聽 MENU oMenu POPUP
聽 聽 聽 MENUITEM 聽" Cerrar Sesi贸n de '"+Rtrim( h0:User )+"'" ;
聽 聽 聽 聽 聽RESOURCE "bmp_CerrarS" ;
聽 聽 聽 聽 聽ACTION ( ::oPermisos:oUser:SetRes( "mgUsers2.dll" ), ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 if( !::oPermisos:oUser:ChkUser( , FALSE ) , ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 __Quit(), ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽( h0:IDUser:= ::oPermisos:oUser:oDbUsr1:FUser01, ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽h0:User 聽:= RTrim( ::oPermisos:oUser:oDbUsr1:FUser02 ), ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽h0:CjaAct:= ::oPermisos:oUser:oDbUsr1:FIDCaja01, ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽saoMn[_BtCajaM]:Refresh() ) ), ; 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽// Refresco el Bot贸n en Cuesti贸n
聽 聽 聽 聽 聽 聽 聽 聽 聽 ::oPermisos:oUser:FreeRes() )No obstante al hacer clic sobre le boton el acceso esta deshabilitado. O sea, no obstante, se cumple el prop贸sito y no se puede acceder
Lo extra帽o:
Si cambio de pesta帽as (tiene varias), no cambia el aspecto pero; si accedo desde cualquiera de los dos botones, abre sendos Dialgos, y luego cierro es Dialog; entoces SI el pintado del bot贸n aparece como es deseado
Resistencia - "Ciudad de las Esculturas"
Chaco - Argentina
Chaco - Argentina
