1 TECH.RegisteredObject 1 ClassName:TECH.String %ListOfDataTypes 1 ClassName:TECH.String 1 ClassName:TECH.String %ListOfDataTypes 1 ClassName:TECH.String 1 Value:%String %ListOfDataTypes 1 KlasseNaam:%String %Boolean 1 Klassenaam:%String %Boolean 1 KlasseNaam:%String %Boolean 1 KlasseNaam:%String %Boolean 1 KlasseNaam:%String,Filter:TECH.ClassUtils.PropertyFilter %ListOfDataTypes Deze klasse geeft alle properties terug van een klasse, alsook de properties van de properties die geen basistype waren. 1 KlasseNaam:%String TECH.KeyValue.List 1 Property:%Dictionary.CompiledProperty,Filter:TECH.ClassUtils.PropertyFilter %Boolean 0 { set Valid = ##class(TECH.StringUtils).StartsWith(Property.Name,Filter.BeginnendMet) } if ( Valid ) && ($length(Filter.SkipPrivate)) { set Valid = (Filter.SkipPrivate = 'Property.Private) } If ( Valid ) && (Filter.SkipSystem){ Set Valid = '(Property.Name["%") } If ( Valid ) && ($length(Filter.SkipReadOnly) ){ Set Valid = (Filter.SkipReadOnly = 'Property.ReadOnly) } quit Valid ]]> 1 KlasseNaam:%String %Boolean 1 Classname:%String 0 ) if IsOurs set IsOurs = '##class(TECH.StringUtils).StartsWith(Classname,"%") if IsOurs set IsOurs = ##class(%Dictionary.ClassDefinition).%ExistsId(Classname) if IsOurs { set ClassDefinition = ##class(%Dictionary.ClassDefinition).%OpenId(Classname, $$$ConcurrenyNoLocks) set IsOurs = '$length(ClassDefinition.GeneratedBy) } quit IsOurs ]]> Controleer van de webmethod zijn parameters adhv een deep-validation uit te voeren. Oproepen via 'Do ..ControleerParameters()' Smijt een Exception als validatie niet gelukt is. 1 0) If ('HeeftDefaultArg || (HeeftDefaultArg && HeeftParameterInhoud)){ Do ##class(TECH.ClassUtils).ValidateValue(@ParameterName,Parameter.GeefType()) } Set CurrentParameter = CurrentParameter + 1 } } } ]]> 1 %List 1 %List 1 LabelRoutine:%String %List 1 ClassName:%String,Method:%String %String 1 ClassName:%String,Method:%String,Parameter:%String %String 1 1 %Boolean 1 Throwt foutmelding indien niet geldig. 1 1 %Boolean Throwt foutmelding indien niet geldig. 1 Deze oproep enkel gebruiken voor klassen die niet afleiden van %Registered, bijvoorbeeld de csp-klassen, die leiden af van %CSP.Page Voor klassen die afleiden van %Registered kan je rechtstreeks oproepen via volgende code : w ##class(klassenaam).%GetParameter("ParameterNaam") w $zobjclassmethod("klassenaam","%GetParameter","ParameterNaam") Added by WimV on 27/09/2011 1 ClassName:%String,ParamName:%String %String 1 Class:%String,ClassFrom:%String 0 %Boolean 1 Package:%String,IncludeSubPackages:%Boolean=0 TECH.Iterator 1 Package:%String,IncludeSubPackages:%Boolean=0 %ListOfDataTypes