Index: DOM/common/Authorizatie/enu/Rol/AutoComplete.cls.xml
===================================================================
diff -u
--- DOM/common/Authorizatie/enu/Rol/AutoComplete.cls.xml	(revision 0)
+++ DOM/common/Authorizatie/enu/Rol/AutoComplete.cls.xml	(revision 32067)
@@ -0,0 +1,70 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.common.Authorizatie.enu.Rol.AutoComplete">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie Eigenschapn moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+
+<Property name="Boekhouder">
+<Type>DOM.common.Authorizatie.enu.Rol</Type>
+<InitialExpression>"Boekhouder"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="ICTmedewerker">
+<Type>DOM.common.Authorizatie.enu.Rol</Type>
+<InitialExpression>"ICTmedewerker"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Magazijnier">
+<Type>DOM.common.Authorizatie.enu.Rol</Type>
+<InitialExpression>"Magazijnier"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Manager">
+<Type>DOM.common.Authorizatie.enu.Rol</Type>
+<InitialExpression>"Manager"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Orderverwerker">
+<Type>DOM.common.Authorizatie.enu.Rol</Type>
+<InitialExpression>"Orderverwerker"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Productbeheerder">
+<Type>DOM.common.Authorizatie.enu.Rol</Type>
+<InitialExpression>"Productbeheerder"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Productiemedewerker">
+<Type>DOM.common.Authorizatie.enu.Rol</Type>
+<InitialExpression>"Productiemedewerker"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Productieplanner">
+<Type>DOM.common.Authorizatie.enu.Rol</Type>
+<InitialExpression>"Productieplanner"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: DOM/common/Authorizatie/enu/Rol/Verwerker.cls.xml
===================================================================
diff -u
--- DOM/common/Authorizatie/enu/Rol/Verwerker.cls.xml	(revision 0)
+++ DOM/common/Authorizatie/enu/Rol/Verwerker.cls.xml	(revision 32067)
@@ -0,0 +1,88 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.common.Authorizatie.enu.Rol.Verwerker">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+
+<Method name="Verwerk">
+<Final>1</Final>
+<FormalSpec>Rol:DOM.common.Authorizatie.enu.Rol</FormalSpec>
+<Implementation><![CDATA[
+	If Rol = "Boekhouder" {
+		Do ..VerwerkBoekhouder()
+	} ElseIf Rol = "ICTmedewerker" {
+		Do ..VerwerkICTmedewerker()
+	} ElseIf Rol = "Magazijnier" {
+		Do ..VerwerkMagazijnier()
+	} ElseIf Rol = "Manager" {
+		Do ..VerwerkManager()
+	} ElseIf Rol = "Orderverwerker" {
+		Do ..VerwerkOrderverwerker()
+	} ElseIf Rol = "Productbeheerder" {
+		Do ..VerwerkProductbeheerder()
+	} ElseIf Rol = "Productiemedewerker" {
+		Do ..VerwerkProductiemedewerker()
+	} ElseIf Rol = "Productieplanner" {
+		Do ..VerwerkProductieplanner()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(Rol,"DOM.common.Authorizatie.enu.Rol",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkBoekhouder">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkICTmedewerker">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkMagazijnier">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkManager">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkOrderverwerker">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkProductbeheerder">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkProductiemedewerker">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkProductieplanner">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EC/impl/ConfiguratorService/KenmerkPostProcessor.cls.xml
===================================================================
diff -u -r31764 -r32067
--- APPS/EC/impl/ConfiguratorService/KenmerkPostProcessor.cls.xml	(.../KenmerkPostProcessor.cls.xml)	(revision 31764)
+++ APPS/EC/impl/ConfiguratorService/KenmerkPostProcessor.cls.xml	(.../KenmerkPostProcessor.cls.xml)	(revision 32067)
@@ -29,6 +29,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="AuthorizatieRol">
+<Type>DOM.common.Authorizatie.enu.Rol.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="KenmerkMogelijkheden">
 <Type>APPS.PM.Maatwerk.dto.KenmerkMogelijkheden</Type>
 <Private>1</Private>
@@ -62,6 +67,7 @@
 <Implementation><![CDATA[
 	Set ..IngegevenKenmerkenTypeAPI = ##class(APPS.ApplicatieContext).Instance().GeefIngegevenKenmerkenTypeAPI()
 	Set ..KenmerkCombinatieVerwijderaar = ##class(APPS.EC.impl.ConfiguratorService.KenmerkMogelijkhedenCombinatieVerwijderaar).%New()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -70,22 +76,27 @@
 <FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,KenmerkMogelijkheden:APPS.PM.Maatwerk.dto.KenmerkMogelijkheden,Klant:DOM.VKP.VanHoeckeKlant,Personality:DOM.common.impl.Personality</FormalSpec>
 <Implementation><![CDATA[
 	#dim GekoppeldeKenmerkMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkMogelijkheden
-	If KenmerkMogelijkheden.GekoppeldeKenmerkMogelijkheden.Count() >= 1 {
-		Set GekoppeldeKenmerkMogelijkhedenIt = ##class(TECH.ListIterator).%New(KenmerkMogelijkheden.GekoppeldeKenmerkMogelijkheden)
-		While GekoppeldeKenmerkMogelijkhedenIt.HasNext() {
-			#dim GekoppeldKenmerkMogelijkheden As APPS.PM.Maatwerk.dto.GekoppeldKenmerkMogelijkheden = GekoppeldeKenmerkMogelijkhedenIt.Next()
+	
+	If (KenmerkMogelijkheden.GekoppeldeKenmerkMogelijkheden.Count() >= 1) {
+		#dim GekoppeldeKenmerkMogelijkhedenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(KenmerkMogelijkheden.GekoppeldeKenmerkMogelijkheden)
+		
+		While (GekoppeldeKenmerkMogelijkhedenIterator.HasNext()) {
+			#dim GekoppeldKenmerkMogelijkheden As APPS.PM.Maatwerk.dto.GekoppeldKenmerkMogelijkheden = GekoppeldeKenmerkMogelijkhedenIterator.Next()
 			Set GekoppeldeKenmerkMogelijkheden = GekoppeldKenmerkMogelijkheden.KenmerkMogelijkheden
-			#dim GekoppeldeIngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..GeefGekoppeldeIngegevenKenmerken(GekoppeldKenmerkMogelijkheden,Kenmerken)
-			Do ..VerwerkKenmerkMogelijkheden(GekoppeldeIngegevenKenmerken,GekoppeldeKenmerkMogelijkheden,Klant,Personality)
+			
+			#dim GekoppeldeIngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..GeefGekoppeldeIngegevenKenmerken(GekoppeldKenmerkMogelijkheden, Kenmerken)
+			Do ..VerwerkKenmerkMogelijkheden(GekoppeldeIngegevenKenmerken, GekoppeldeKenmerkMogelijkheden, Klant, Personality)
 		}
-	}Else {
-		Set GekoppeldeIngegevenKenmerkenIt = ##class(TECH.ListIterator).%New(Kenmerken.GekoppeldeIngegevenKenmerken)
-		While GekoppeldeIngegevenKenmerkenIt.HasNext() {
-			#dim GekoppeldIngegevenKenmerken As APPS.PM.Maatwerk.dto.GekoppeldIngegevenKenmerk = GekoppeldeIngegevenKenmerkenIt.Next()	
+	} Else {
+		#dim GekoppeldeIngegevenKenmerkenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Kenmerken.GekoppeldeIngegevenKenmerken)
+		
+		While (GekoppeldeIngegevenKenmerkenIterator.HasNext()) {
+			#dim GekoppeldIngegevenKenmerken As APPS.PM.Maatwerk.dto.GekoppeldIngegevenKenmerk = GekoppeldeIngegevenKenmerkenIterator.Next()	
 			#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = GekoppeldIngegevenKenmerken.IngegevenKenmerken
-			#dim CS As APPS.VKP.Maatwerk.ConfiguratorService = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefMaatwerkConfiguratorService()
-			Set GekoppeldeKenmerkMogelijkheden = CS.GeefKenmerkMogelijkheden(IngegevenKenmerken,Klant.GeefID())
-			Do ..VerwerkKenmerkMogelijkheden(GekoppeldIngegevenKenmerken.IngegevenKenmerken,GekoppeldeKenmerkMogelijkheden,Klant,Personality)
+			#dim ConfiguratorService As APPS.VKP.Maatwerk.ConfiguratorService = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefMaatwerkConfiguratorService()
+			
+			Set GekoppeldeKenmerkMogelijkheden = ConfiguratorService.GeefKenmerkMogelijkheden(IngegevenKenmerken, Klant.GeefID())
+			Do ..VerwerkKenmerkMogelijkheden(GekoppeldIngegevenKenmerken.IngegevenKenmerken, GekoppeldeKenmerkMogelijkheden, Klant, Personality)
 		}	
 	}
 ]]></Implementation>
@@ -97,11 +108,12 @@
 <ReturnType>APPS.PM.Maatwerk.dto.GekoppeldIngegevenKenmerk</ReturnType>
 <Implementation><![CDATA[
 	#dim Key As %String = GekoppeldKenmerkMogelijkheden.Key
-	#dim GekoppeldeIngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..IngegevenKenmerkenTypeAPI.GeefGekoppeldeIngegevenKenmerken(Kenmerken,Key)
+	#dim GekoppeldeIngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..IngegevenKenmerkenTypeAPI.GeefGekoppeldeIngegevenKenmerken(Kenmerken, Key)
 	
-	If '$IsObject(GekoppeldeIngegevenKenmerken) {
-		Set GekoppeldeIngegevenKenmerken = $ClassMethod(GekoppeldKenmerkMogelijkheden.IngegevenKenmerkClassName,"%New")
+	If $$$Not($IsObject(GekoppeldeIngegevenKenmerken)) {
+		Set GekoppeldeIngegevenKenmerken = $ClassMethod(GekoppeldKenmerkMogelijkheden.IngegevenKenmerkClassName, "%New")
 	}
+	
 	Quit GekoppeldeIngegevenKenmerken
 ]]></Implementation>
 </Method>
@@ -112,14 +124,15 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim IngegevenKenmerkClassNameDtoVersie As %String
-	If ##class(DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).%ClassName(1) = IngegevenKenmerkClassName
-	{
+	
+	If (##class(DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).%ClassName(1) = IngegevenKenmerkClassName) {
 		Set IngegevenKenmerkClassNameDtoVersie = ##class(APPS.PM.Maatwerk.dto.MATKenmerken).%ClassName(1)
 	}
 	
-	If IngegevenKenmerkClassNameDtoVersie = "" {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("'"_IngegevenKenmerkClassName_"' is niet ondersteund als gekoppeld ingegeven kenmerk."))
+	If (IngegevenKenmerkClassNameDtoVersie = "") {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("'" _ IngegevenKenmerkClassName _ "' is niet ondersteund als gekoppeld ingegeven kenmerk."))
 	}
+	
 	Quit IngegevenKenmerkClassNameDtoVersie
 ]]></Implementation>
 </Method>