Hola mjaviergutierrez
Estoy haciendo una aplicación que otorga permisos por
categorias laborales mediante Combobox en un Password.
1º creo una tabla de permisos
aadd ( aItems , 'Manager' )
aadd ( aItems , 'Manager R.Human' )
aadd ( aItems , 'Manager Financial' )
aadd ( aItems , 'Section Chief' )
aadd ( aItems , 'Administrative Officer 1ª' )
aadd ( aItems , 'Administrative Officer 2ª' )
aadd ( aItems , 'Administrative Assistant ' )
aadd ( aItems , 'Broker' )
aadd ( aItems , 'Stock Foreman' )
aadd ( aItems , 'Officer 1ª Stock' )
aadd ( aItems , 'Officer 2ª Stock' )
aadd ( aItems , 'Boy Stock' )
nLogX = 1
@ 055,137 COMBOBOX Combo_01 ;
WIDTH 120 HEIGHT 023 ;
ITEMS aItems ;
VALUE nLogX ;
ON CHANGE nLogX := This.Value ;
FONT 'Arial' SIZE 09 ;
TOOLTIP 'vARIOS'
2º nLogX queda en memoria
DEFINE BUTTON Button_1a
ROW 130
COL 026
WIDTH 105
HEIGHT 028
CAPTION "Accept"
ACTION UsuarioX()
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP "Accept"
FONTBOLD .T.
FONTITALIC .T.
TABSTOP .T.
VISIBLE .T.
TRANSPARENT .F.
MULTILINE .F.
PICTURE "resource\Acep.bmp"
PICTALIGNMENT LEFT
END BUTTON
*----------------------------------*
Function UsuarioX()
*----------------------------------*
IF nLogX = 1
mirax := 'Manager'
ENDIF
IF nLogX = 2
mirax := 'Manager R.Human'
ENDIF
IF nLogX = 3
mirax := 'Manager Financial'
ENDIF
etc,etc........
y se graba la opción en un fichero
SELECT 1
USE control
append BLANK
REPLACE CHARGE WITH mirax
Pronto publicaré el sample completo
Mustafa