FoxPro/Visual FoxPro - Interacción entre formularios

* Todos los botones deben estar Enabled=.f. al inicio

LOCAL oControl

FOR EACH oControl in this.controls

	IF ocontrol.baseClass = "Commandbutton"

		oControl.enabled=.F.

	ENDIF

ENDFOR

* Se ingresa un usuario en un textbox ( "txt_Usuario")

* Valid Event del textbox txt_Usuario

this.value=ALLTRIM(this.value)

IF NOT EMPTY(this.value)

	LOCAL lcUsuario, lnLevel

	lcUsuario = Upper(this.value)

	lnLevel = 0

	SELECT TablaUsuarios

	LOCATE FOR TRIM(USUARIO) == m.lcUsuario

	IF FOUND()

		lnLevel = TablaUsuarios.Nivel

	ENDIF

	WITH Thisform

		.cmdBoton1.Enabled = INLIST(m.lnLevel,1,2)		&& habilita para los niveles 1 y 2

		.CmdBoton2.Enabled= m.lnLevel > 1				&& habilita para los niveles 2 y 3

		.CmdBoton3.Enabled= m.lnLevel = 3				&& habilita solamente para nivel 3

	ENDWITH

ENDIF