SET PROCEDURE TO Funciones.prg &&en el init del form.
&&en el programa esto
PROCEDURE EstadoControles
PARAMETERS Formulario as Form, HabDes As Boolean
FOR I = 1 TO Formulario.ControlCount
varNombre = Formulario.Controls(I).BaseClass
IF varNombre = "Textbox" OR varNombre = "Combobox" OR varNombre = "Editbox" OR varNombre = "Checkbox"
Formulario.Controls(I).Enabled = HabDes
ENDIF
NEXT
ENDPROC