Hi everybody,

Ok, Fabio, Sergey and Cetin - please, don't answer, I know you can find this in a second.

Here is a piece of code - please find why this is wrong: <g> I'm wondering how can I be that stupid <g>

*---------------------- Location Section ------------------------
*   Library: 	Aforms.vcx
*   Class: 		Cntdataentry
*   Method: 	Setenabledstatus()
*----------------------- Usage Section --------------------------
*)  Description:
*)

*   Scope:      Public
*   Parameters:
*$  Usage:
*$
*   Returns:
*--------------------- Maintenance Section ----------------------
*   Change Log:
*       CREATED 	11/04/2005 - NN
*		MODIFIED
*----------------------------------------------------------------
lparameters tlEnabled, toObject

if vartype(m.toObject) <>"O"
	toObject = this
endif

local lnI, lcBaseClass, loObject
local array laIgnoreClasses[1]
store space(100) to laIgnoreClasses[1]
alines(laIgnoreClasses, this.cClassFilter,", ")

for each m.loObject in m.toObject.objects
	if not ascan(laIgnoreClasses,upper(m.loObject.baseclass)) > 0 ;
	AND NOT upper(m.loObject.parentclass) = [ABIZOBJ]
		if pemstatus(m.loObject, "OBJECTS", 5) && Container object
			this.SetEnabledStatus(m.tlEnabled, m.loObject) && Call the method recursively
		else
			if pemstatus(m.loObject, "Enabled", 5)
				m.loObject.enabled = m.loObject.enabled and m.tlEnabled 
			endif
		endif
	endif
next