HELIDEL
08 de Marzo del 2006

Bueno compañeros, quiese conpartin con ustedes lo que he aprendido, asi que es esto:

Alguna vez les ha pasado que estan aburridos de digitar el mismo codigo una y otra vez en todos los formularios de nuestra aplicacion , como puede ser esto
THISFORM.command1.enabled=.T.
THISFORM.command2.enabled=.T.
THISFORM.TEXT1.enabled=.T.
Pues bien, soy su salvador jajajajajajja, mentiras

la solucion es crear un procedimiento que me pida dos parametros, 1. el formulario donde se ejecuta y 2 el valor .T./.F., que se utilizsara para habilitar o deshabilitar controles. cabe aclarar que un procedimiento se debe hacer referencia asi
* en el init del formulario
SET PROCEDURE TO mipro.prg

y en mipro.prg va lo siguiente
PROCEDURE hdcontroles
LPARAMETERS formulario,estado
FOR I=1 TO formulario.controlcount()
varcontrol=formulario.controls(I).baseclass
if varcontrol="TextBox" or varcontrol="Command" then
formulario.controlS(I).ENABLED=estado
endif
ENDPROC

Y aqui lo tienen un PROCEDIMIENTO salvador

HELIDEL
08 de Marzo del 2006

y para llamarlo seria asi:

DO hdcontroles with thisform,.T. O
DO hdcontroles with thisform,.F.

sgomez
08 de Marzo del 2006

Esto mismo se puede hacer de la siguiente manera

thisform.setall("enabled",.t.,"commandbutton")
thisform.setall("enabled",.t.,"textbox")

ó

thisform.setall("enabled",.f.,"commandbutton")
thisform.setall("enabled",.f.,"textbox")