Index: APPS/EC/Winkelkar/impl/WinkelkarServiceUtils.cls.xml
===================================================================
diff -u
--- APPS/EC/Winkelkar/impl/WinkelkarServiceUtils.cls.xml	(revision 0)
+++ APPS/EC/Winkelkar/impl/WinkelkarServiceUtils.cls.xml	(revision 32435)
@@ -0,0 +1,80 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.Winkelkar.impl.WinkelkarServiceUtils">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="CorrigeerWinkelkar">
+<FormalSpec><![CDATA[&Winkelkar:APPS.EC.Winkelkar.dto.Winkelkar,ApplicatieType:APPS.common.enu.ApplicatieType]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (ApplicatieType = ##class(APPS.common.enu.ApplicatieType).Extern()) {
+		#dim GroepLijnenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Winkelkar.Lijnen)
+		
+		While (GroepLijnenIterator.HasNext()) {
+			#dim GroepLijn As APPS.EC.Winkelkar.dto.GroepLijn = GroepLijnenIterator.Next()
+			#dim LijnenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(GroepLijn.Lijnen)
+			
+			While (LijnenIterator.HasNext()) {
+				#dim MaatwerkLijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = LijnenIterator.Next()
+				
+				If (MaatwerkLijn.IngegevenKenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox()) {
+					#dim TAORKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = MaatwerkLijn.IngegevenKenmerken
+					
+					Do ##class(Tools.Wlip).%New(42).ListOfDataTypes(TAORKenmerken.NietMeeleveren)
+					Do ##class(Tools.Wlip).%New(42).String(ApplicatieType)
+					
+					Do ..CorrigeerNietMeeleveren(TAORKenmerken)	
+						
+					Do ##class(Tools.Wlip).%New(42).ListOfDataTypes(TAORKenmerken.NietMeeleveren)
+					Do ##class(Tools.Wlip).%New(42).ScheidingsLijn()
+				}					
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="CorrigeerNietMeeleveren">
+<FormalSpec>TAORKenmerken:APPS.PM.Maatwerk.dto.TAORKenmerken</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Enum As DOM.PM.Maatwerk.TAX.impl.BaseEnums = ##class(DOM.PM.Maatwerk.TAX.impl.BaseEnums).%New()
+		
+	If (##class(TECH.ListUtils).Contains(TAORKenmerken.NietMeeleveren, Enum.Rol.TiponSynchronisatieStang) || ##class(TECH.ListUtils).Contains(TAORKenmerken.NietMeeleveren, Enum.Rol.TiponSynchronisatieTandwiel)) {
+		Do TAORKenmerken.NietMeeleveren.Insert(..GeefGeconcateneerdeRol(Enum.GeleiderTechnologie.TIPON))
+		
+		Do TAORKenmerken.NietMeeleveren.RemoveAt(TAORKenmerken.NietMeeleveren.Find(Enum.NietMeeleveren.TiponSynchronisatieStang))
+		Do TAORKenmerken.NietMeeleveren.RemoveAt(TAORKenmerken.NietMeeleveren.Find(Enum.NietMeeleveren.TiponSynchronisatieTandwiel))
+	}
+	
+	If (##class(TECH.ListUtils).Contains(TAORKenmerken.NietMeeleveren, Enum.Rol.TiponBlumotionSetEenhedenEnMeenemers) || ##class(TECH.ListUtils).Contains(TAORKenmerken.NietMeeleveren, Enum.Rol.TiponBlumotionSynchronisatieAdapter) || ##class(TECH.ListUtils).Contains(TAORKenmerken.NietMeeleveren, Enum.Rol.TiponBlumotionSynchronisatieStang)) {
+		Do TAORKenmerken.NietMeeleveren.Insert(..GeefGeconcateneerdeRol(Enum.GeleiderTechnologie.TIPONBLUMOTION))
+		
+		Do TAORKenmerken.NietMeeleveren.RemoveAt(TAORKenmerken.NietMeeleveren.Find(Enum.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers))
+		Do TAORKenmerken.NietMeeleveren.RemoveAt(TAORKenmerken.NietMeeleveren.Find(Enum.NietMeeleveren.TiponBlumotionSynchronisatieAdapter))
+		Do TAORKenmerken.NietMeeleveren.RemoveAt(TAORKenmerken.NietMeeleveren.Find(Enum.NietMeeleveren.TiponBlumotionSynchronisatieStang))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefGeconcateneerdeRol">
+<FormalSpec>GeleiderTechnologie:DOM.PM.enu.TAORGeleiderTechnologie</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim GeconcateneerdeRol As TECH.String = ""
+	#dim Enum As DOM.PM.Maatwerk.TAX.impl.BaseEnums = ##class(DOM.PM.Maatwerk.TAX.impl.BaseEnums).%New()
+	
+	If (GeleiderTechnologie = Enum.GeleiderTechnologie.TIPON) {
+		Set GeconcateneerdeRol = Enum.NietMeeleveren.TiponSynchronisatieStang _ Enum.NietMeeleveren.TiponSynchronisatieTandwiel
+	} ElseIf (GeleiderTechnologie = Enum.GeleiderTechnologie.TIPONBLUMOTION) {
+		Set GeconcateneerdeRol = Enum.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers _ Enum.NietMeeleveren.TiponBlumotionSynchronisatieAdapter _ Enum.NietMeeleveren.TiponBlumotionSynchronisatieStang
+	}
+
+	Quit GeconcateneerdeRol
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>