Index: vhUnitTest/APPS/EC/impl/ConfiguratorService/KenmerkMogelijkhedenCombinatieVerwijderaar/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/impl/ConfiguratorService/KenmerkMogelijkhedenCombinatieVerwijderaar/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/impl/ConfiguratorService/KenmerkMogelijkhedenCombinatieVerwijderaar/Test.cls.xml	(revision 31759)
@@ -0,0 +1,174 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.impl.ConfiguratorService.KenmerkMogelijkhedenCombinatieVerwijderaar.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="LadeHoogte">
+<Type>DOM.PM.enu.LBXLadeHoogte.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LadeDiepte">
+<Type>DOM.PM.enu.LBXLadeDiepte.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LadeKleur">
+<Type>DOM.PM.enu.LBXLadeKleur.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KenmerkMogelijkheden">
+<Type>APPS.PM.Maatwerk.dto.KenmerkMogelijkheden</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="CombinatieVerwijderaar">
+<Type>APPS.EC.impl.ConfiguratorService.KenmerkMogelijkhedenCombinatieVerwijderaar</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IngegevenKenmerken">
+<Type>APPS.PM.Maatwerk.dto.LBXKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ..KenmerkMogelijkheden = ##class(APPS.PM.Maatwerk.dto.KenmerkMogelijkheden).%New()
+	Set ..CombinatieVerwijderaar = ##class(APPS.EC.impl.ConfiguratorService.KenmerkMogelijkhedenCombinatieVerwijderaar).%New()
+	
+	Do ..VoegtToeMogelijkheden("LadeHoogte",##class(TECH.ListUtils).CreateListOfDataTypes(..LadeHoogte.C, ..LadeHoogte.F, ..LadeHoogte.K))
+	Do ..VoegtToeMogelijkheden("LadeDiepte",##class(TECH.ListUtils).CreateListOfDataTypes(..LadeDiepte.LadeDiepte270, ..LadeDiepte.LadeDiepte300, ..LadeDiepte.LadeDiepte350, ..LadeDiepte.LadeDiepte400))
+	Do ..VoegtToeMogelijkheden("LadeKleur",##class(TECH.ListUtils).CreateListOfDataTypes(..LadeKleur.Oriongrijs, ..LadeKleur.Terrazwart, ..LadeKleur.Zijdewit))
+	
+	Set ..IngegevenKenmerken = ##class(APPS.PM.Maatwerk.dto.LBXKenmerken).%New()
+	
+	Do ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="Test property naam komt 2 keer voor bij de combinaties, dit kan niet">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("De property (LadeHoogte) komt 2 keer voor in de combinaties")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
+
+	Do ..CombinatieVerwijderaar.Kenmerken(..IngegevenKenmerken, ..KenmerkMogelijkheden).InCombinatieVan("LadeHoogte", ..LadeHoogte.C).En("LadeHoogte", ..LadeHoogte.F)
+]]></Implementation>
+</Method>
+
+<Method name="Test InCombinatieVan opgeroepen zonder dat Kenmerken eerst opgeroepen is">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("InCombinatieVan opgroepen zonder dat Kenmerken opgeroepen is.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.IllegalUsageException).%ClassName(1),Substrings))
+
+	Do ..CombinatieVerwijderaar.InCombinatieVan("LadeHoogte", ..LadeHoogte.C)
+]]></Implementation>
+</Method>
+
+<Method name="Test En opgeroepen zonder dat InCombinatieVan eerst opgeroepen is">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("En opgeroepen zonder dat InCombinatieVan opgeroepen is.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.IllegalUsageException).%ClassName(1),Substrings))
+
+	Do ..CombinatieVerwijderaar.En("LadeHoogte", ..LadeHoogte.C)
+]]></Implementation>
+</Method>
+
+<Method name="Test verwijder opgeroepen zonder dat En opgeroepen is">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Verwijder opgeroepen zonder dat En opgeroepen is.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.IllegalUsageException).%ClassName(1),Substrings))
+
+	Do ..CombinatieVerwijderaar.Kenmerken(..IngegevenKenmerken, ..KenmerkMogelijkheden).Verwijder()
+]]></Implementation>
+</Method>
+
+<Method name="Test verwijder bij 2 combinaties, alle waarden zijn gedefinieerd in de ingegeven kenmerken op de combinatie waarde -&gt; exceptie want dat is niet mogelijk">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("De ingegeven kenmerken zijn ingevuld op een manier waarvoor de combinatieverwijderaar de mogelijke waarden net zou verwijderen.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.IllegalUsageException).%ClassName(1),Substrings))
+	
+	Set ..IngegevenKenmerken.LadeHoogte = ..LadeHoogte.C
+	Set ..IngegevenKenmerken.LadeDiepte = ..LadeDiepte.LadeDiepte270
+	
+	Do ..CombinatieVerwijderaar.Kenmerken(..IngegevenKenmerken, ..KenmerkMogelijkheden).InCombinatieVan("LadeHoogte", ..LadeHoogte.C).En("LadeDiepte", ..LadeDiepte.LadeDiepte270).Verwijder()
+]]></Implementation>
+</Method>
+
+<Method name="Test verwijder bij 2 combinaties, de waarde die niet gedefinieerd staat in de Ingegeven kenmerken zal uit de mogelijke waarden verwijderd worden.">
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerken.LadeHoogte = ..LadeHoogte.C
+	
+	Do ..CombinatieVerwijderaar.Kenmerken(..IngegevenKenmerken, ..KenmerkMogelijkheden).InCombinatieVan("LadeHoogte", ..LadeHoogte.C).En("LadeDiepte", ..LadeDiepte.LadeDiepte270).Verwijder()
+	Do $$$AssertTrue(..KenmerkMogelijkheden.MogelijkeWaarden.GetAt("LadeHoogte").Waarden.Find(..LadeHoogte.C))
+	Do $$$AssertFalse(..KenmerkMogelijkheden.MogelijkeWaarden.GetAt("LadeDiepte").Waarden.Find(..LadeDiepte.LadeDiepte270))
+]]></Implementation>
+</Method>
+
+<Method name="Test verwijder bij 2 combinaties, beide waarden zijn nog niet gedefinieerd in de ingegeven kenmerken -&gt; doe niets">
+<Implementation><![CDATA[
+	Do ..CombinatieVerwijderaar.Kenmerken(..IngegevenKenmerken, ..KenmerkMogelijkheden).InCombinatieVan("LadeHoogte", ..LadeHoogte.C).En("LadeDiepte", ..LadeDiepte.LadeDiepte270).Verwijder()
+	Do $$$AssertTrue(..KenmerkMogelijkheden.MogelijkeWaarden.GetAt("LadeHoogte").Waarden.Find(..LadeHoogte.C))
+	Do $$$AssertTrue(..KenmerkMogelijkheden.MogelijkeWaarden.GetAt("LadeDiepte").Waarden.Find(..LadeDiepte.LadeDiepte270))
+]]></Implementation>
+</Method>
+
+<Method name="Test verwijder bij 3 combinaties, waarvan 2 waarden niet gedefinieerd in de ingegeven kenmerken -&gt; doe niets">
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerken.LadeHoogte = ..LadeHoogte.C
+	
+	Do ..CombinatieVerwijderaar.Kenmerken(..IngegevenKenmerken, ..KenmerkMogelijkheden).InCombinatieVan("LadeHoogte", ..LadeHoogte.C).En("LadeDiepte", ..LadeDiepte.LadeDiepte270).En("LadeKleur", ..LadeKleur.Oriongrijs).Verwijder()
+	Do $$$AssertTrue(..KenmerkMogelijkheden.MogelijkeWaarden.GetAt("LadeHoogte").Waarden.Find(..LadeHoogte.C))
+	Do $$$AssertTrue(..KenmerkMogelijkheden.MogelijkeWaarden.GetAt("LadeDiepte").Waarden.Find(..LadeDiepte.LadeDiepte270))
+	Do $$$AssertTrue(..KenmerkMogelijkheden.MogelijkeWaarden.GetAt("LadeKleur").Waarden.Find(..LadeKleur.Oriongrijs))
+]]></Implementation>
+</Method>
+
+<Method name="Test verwijder bij 3 combinaties, waarvan 1 waarden niet gedefinieerd in de ingegeven kenmerken -&gt; Verwijder de mogelijke kenmerken voor die waarde">
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerken.LadeHoogte = ..LadeHoogte.C
+	Set ..IngegevenKenmerken.LadeKleur = ..LadeKleur.Oriongrijs
+	
+	Do ..CombinatieVerwijderaar.Kenmerken(..IngegevenKenmerken, ..KenmerkMogelijkheden).InCombinatieVan("LadeHoogte", ..LadeHoogte.C).En("LadeDiepte", ..LadeDiepte.LadeDiepte270).En("LadeKleur", ..LadeKleur.Oriongrijs).Verwijder()
+	Do $$$AssertTrue(..KenmerkMogelijkheden.MogelijkeWaarden.GetAt("LadeHoogte").Waarden.Find(..LadeHoogte.C))
+	Do $$$AssertFalse(..KenmerkMogelijkheden.MogelijkeWaarden.GetAt("LadeDiepte").Waarden.Find(..LadeDiepte.LadeDiepte270))
+	Do $$$AssertTrue(..KenmerkMogelijkheden.MogelijkeWaarden.GetAt("LadeKleur").Waarden.Find(..LadeKleur.Oriongrijs))
+]]></Implementation>
+</Method>
+
+<Method name="Test combinatie heeft een property met meerdere waarden, die waarden mogen niet beschikbaar zijn als deze property nog niet ingegeven is.">
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerken.LadeHoogte = ..LadeHoogte.C
+	
+	Do ..CombinatieVerwijderaar.Kenmerken(..IngegevenKenmerken, ..KenmerkMogelijkheden).InCombinatieVan("LadeHoogte", ..LadeHoogte.C).En("LadeKleur", ..LadeKleur.Oriongrijs, ..LadeKleur.Terrazwart).Verwijder()
+	Do $$$AssertTrue(..KenmerkMogelijkheden.MogelijkeWaarden.GetAt("LadeHoogte").Waarden.Find(..LadeHoogte.C))
+	Do $$$AssertFalse(..KenmerkMogelijkheden.MogelijkeWaarden.GetAt("LadeKleur").Waarden.Find(..LadeKleur.Oriongrijs))
+	Do $$$AssertFalse(..KenmerkMogelijkheden.MogelijkeWaarden.GetAt("LadeKleur").Waarden.Find(..LadeKleur.Terrazwart))
+	Do $$$AssertTrue(..KenmerkMogelijkheden.MogelijkeWaarden.GetAt("LadeKleur").Waarden.Find(..LadeKleur.Zijdewit))
+]]></Implementation>
+</Method>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerken.LadeKleur = ..LadeKleur.Oriongrijs
+	
+	Do ..CombinatieVerwijderaar.Kenmerken(..IngegevenKenmerken, ..KenmerkMogelijkheden).InCombinatieVan("LadeHoogte", ..LadeHoogte.C).En("LadeKleur", ..LadeKleur.Oriongrijs, ..LadeKleur.Terrazwart).Verwijder()
+	Do $$$AssertFalse(..KenmerkMogelijkheden.MogelijkeWaarden.GetAt("LadeHoogte").Waarden.Find(..LadeHoogte.C))
+	Do $$$AssertTrue(..KenmerkMogelijkheden.MogelijkeWaarden.GetAt("LadeKleur").Waarden.Find(..LadeKleur.Oriongrijs))
+]]></Implementation>
+</Method>
+
+<Method name="VoegtToeMogelijkheden">
+<FormalSpec>PropertyNaam:TECH.String,Waarden:%ListOfDataTypes</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set KenmerkWaardenLijst = ##class(APPS.PM.Maatwerk.dto.KenmerkWaardenLijst).%New(Waarden)
+	Do ..KenmerkMogelijkheden.MogelijkeWaarden.SetAt(KenmerkWaardenLijst, PropertyNaam)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EC/impl/ConfiguratorService/KenmerkMogelijkhedenCombinatieVerwijderaar.cls.xml
===================================================================
diff -u
--- APPS/EC/impl/ConfiguratorService/KenmerkMogelijkhedenCombinatieVerwijderaar.cls.xml	(revision 0)
+++ APPS/EC/impl/ConfiguratorService/KenmerkMogelijkhedenCombinatieVerwijderaar.cls.xml	(revision 31759)
@@ -0,0 +1,152 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.impl.ConfiguratorService.KenmerkMogelijkhedenCombinatieVerwijderaar">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Kenmerken">
+<Type>APPS.PM.Maatwerk.dto.IngegevenKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KenmerkMogelijkheden">
+<Type>APPS.PM.Maatwerk.dto.KenmerkMogelijkheden</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Combinatie">
+<Type>%ListOfDataTypes</Type>
+<Collection>array</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="OpgeroepenMethodes">
+<Type>%Boolean</Type>
+<Collection>array</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="TeVerwijderen">
+<Type>%ListOfDataTypes</Type>
+<Collection>array</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="KleurenIterator">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..OpgeroepenMethodes = ##class(%ArrayOfDataTypes).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Kenmerken">
+<FormalSpec><![CDATA[Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,&KenmerkMogelijkheden:APPS.PM.Maatwerk.dto.KenmerkMogelijkheden]]></FormalSpec>
+<ReturnType>APPS.EC.impl.ConfiguratorService.KenmerkMogelijkhedenCombinatieVerwijderaar</ReturnType>
+<Implementation><![CDATA[
+	Do ..OpgeroepenMethodes.Clear()
+	Do ..OpgeroepenMethodes.SetAt(1, "Kenmerken")
+	Set ..Kenmerken = Kenmerken
+	Set ..KenmerkMogelijkheden = KenmerkMogelijkheden
+	Quit $this
+]]></Implementation>
+</Method>
+
+<Method name="InCombinatieVan">
+<FormalSpec>PropertyNaam:TECH.String,PropertyWaarde:TECH.String</FormalSpec>
+<ReturnType>APPS.EC.impl.ConfiguratorService.KenmerkMogelijkhedenCombinatieVerwijderaar</ReturnType>
+<Implementation><![CDATA[
+	If $$$Not(..OpgeroepenMethodes.IsDefined("Kenmerken")) {
+		Do ##class(TECH.Exceptions.IllegalUsageException).Throw("InCombinatieVan opgroepen zonder dat Kenmerken opgeroepen is.")
+	}
+	Do ..OpgeroepenMethodes.SetAt(1, "InCombinatieVan")
+	Set ..Combinatie = ##class(%ArrayOfDataTypes).%New()
+	Do ..En(PropertyNaam, PropertyWaarde)
+	Quit $this
+]]></Implementation>
+</Method>
+
+<Method name="En">
+<FormalSpec>PropertyNaam:TECH.String,PropertyWaarde...:TECH.String</FormalSpec>
+<ReturnType>APPS.EC.impl.ConfiguratorService.KenmerkMogelijkhedenCombinatieVerwijderaar</ReturnType>
+<Implementation><![CDATA[
+	If $$$Not(..OpgeroepenMethodes.IsDefined("InCombinatieVan")) {
+		Do ##class(TECH.Exceptions.IllegalUsageException).Throw("En opgeroepen zonder dat InCombinatieVan opgeroepen is.")
+	}
+	If ..Combinatie.IsDefined(PropertyNaam) {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("De property ("_PropertyNaam_") komt 2 keer voor in de combinaties")
+	}
+	Do ..OpgeroepenMethodes.SetAt(1, "En")
+	Do ..Combinatie.SetAt(##class(TECH.ListUtils).MultiDimensionalToListOfDataTypes(.PropertyWaarde), PropertyNaam)
+	Quit $this
+]]></Implementation>
+</Method>
+
+<Method name="Verwijder">
+<Implementation><![CDATA[
+	If $$$Not(..OpgeroepenMethodes.IsDefined("En")) {
+		Do ##class(TECH.Exceptions.IllegalUsageException).Throw("Verwijder opgeroepen zonder dat En opgeroepen is.")
+	}
+	Set ..TeVerwijderen = ##class(%ArrayOfDataTypes).%New()
+	
+	Do ..ZoekTeVerwijderenMogelijkeWaarden()
+	
+	Do ..VerwijderMogelijkeWaarde()
+	
+	Do ..OpgeroepenMethodes.Clear()
+]]></Implementation>
+</Method>
+
+<Method name="ZoekTeVerwijderenMogelijkeWaarden">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set PropertyIterator = ##class(TECH.ListIterator).%New(..Combinatie)
+	While PropertyIterator.HasNext() {
+		#dim Waardes As %ListOfDataTypes = PropertyIterator.Next()
+		#dim Property As TECH.String = PropertyIterator.Key()
+		Set WaardesIterator = ##class(TECH.ListIterator).%New(Waardes)
+		While WaardesIterator.HasNext() {
+			#dim Waarde As TECH.String = WaardesIterator.Next()
+			If $Property(..Kenmerken, Property) '= Waarde {
+				If $$$Not(..TeVerwijderen.IsDefined(Property)) {
+					Do ..TeVerwijderen.SetAt(##class(%ListOfDataTypes).%New(), Property)	
+				}
+				Do ..TeVerwijderen.GetAt(Property).Insert(Waarde)
+			}
+		}
+	}
+	Set PropertyIterator = ##class(TECH.ListIterator).%New(..TeVerwijderen)
+	While PropertyIterator.HasNext() {
+		Set Waardes = PropertyIterator.Next()
+		Set Property = PropertyIterator.Key()
+		If ..Combinatie.GetAt(Property).Count() '= Waardes.Count() {
+			Do ..TeVerwijderen.RemoveAt(Property)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderMogelijkeWaarde">
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ..TeVerwijderen.Count() = 1 {
+		#dim Property As TECH.String = ..TeVerwijderen.Next()
+		#dim Waardes As %ListOfDataTypes = ..TeVerwijderen.GetAt(Property)
+		#dim MogelijkeWaardes As %ListOfDataTypes = ..KenmerkMogelijkheden.MogelijkeWaarden.GetAt(Property).Waarden
+		Set ..KenmerkMogelijkheden.MogelijkeWaarden.GetAt(Property).Waarden = ##class(TECH.ListUtils).Verschil(MogelijkeWaardes, Waardes)
+	} ElseIf ..TeVerwijderen.Count() < 1 {
+		Do ##class(TECH.Exceptions.IllegalUsageException).Throw("De ingegeven kenmerken zijn ingevuld op een manier waarvoor de combinatieverwijderaar de mogelijke waarden net zou verwijderen.")
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>