*---------------------- 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