Index: DOM/EC/Winkelkar/Visitors/MaatwerkLijnBepaler.cls.xml
===================================================================
diff -u
--- DOM/EC/Winkelkar/Visitors/MaatwerkLijnBepaler.cls.xml	(revision 0)
+++ DOM/EC/Winkelkar/Visitors/MaatwerkLijnBepaler.cls.xml	(revision 35617)
@@ -0,0 +1,82 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.EC.Winkelkar.Visitors.MaatwerkLijnBepaler">
+<Super>DOM.EC.Winkelkar.WinkelkarVisitor</Super>
+
+<Property name="Familie">
+<Type>DOM.PM.enu.Familie</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Variant">
+<Type>DOM.PM.enu.Variant</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="MaatwerkLijnen">
+<Type>%ArrayOfObjects</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Categorie">
+<Type>DOM.EC.Winkelkar.enu.MaatwerkLijnCategorie.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Familie:DOM.PM.enu.Familie,Variant:DOM.PM.enu.Variant</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Familie = Familie
+	Set ..Variant = Variant
+	Set ..MaatwerkLijnen = ##class(%ArrayOfObjects).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkMaatwerkLijn">
+<FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = MaatwerkLijn.GeefIngegevenKenmerken()
+	#dim Categorie As DOM.EC.Winkelkar.enu.MaatwerkLijnCategorie = ..GeefCategorie(IngegevenKenmerken)
+	
+	If ((IngegevenKenmerken.GeefFamilie() = ..Familie) && (IngegevenKenmerken.GeefVariant() = ..Variant)) {
+		Do ..MaatwerkLijnen.SetAt(MaatwerkLijn, Categorie)
+	}
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefLaatsteMaatwerkLijn">
+<ReturnType>DOM.EC.Winkelkar.MaatwerkLijn</ReturnType>
+<Implementation><![CDATA[	Quit ..MaatwerkLijnen.GetPrevious()
+]]></Implementation>
+</Method>
+
+<Method name="GeefLaatsteMaatwerkLijnVoorCategorie">
+<FormalSpec>Categorie:DOM.EC.Winkelkar.enu.MaatwerkLijnCategorie</FormalSpec>
+<ReturnType>DOM.EC.Winkelkar.MaatwerkLijn</ReturnType>
+<Implementation><![CDATA[	Quit ..MaatwerkLijnen.GetAt(Categorie)
+]]></Implementation>
+</Method>
+
+<Method name="GeefCategorie">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>DOM.EC.Winkelkar.enu.MaatwerkLijnCategorie</ReturnType>
+<Implementation><![CDATA[
+	#dim Categorie As DOM.EC.Winkelkar.enu.MaatwerkLijnCategorie = ..Categorie.StandaardLade
+	
+	If (IngegevenKenmerken.IsBinnenlade) {
+		Set Categorie = ..Categorie.BinnenLade	
+	}
+	
+	Quit Categorie
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/EC/Winkelkar/enu/MaatwerkLijnCategorie/AutoComplete.cls.xml
===================================================================
diff -u
--- DOM/EC/Winkelkar/enu/MaatwerkLijnCategorie/AutoComplete.cls.xml	(revision 0)
+++ DOM/EC/Winkelkar/enu/MaatwerkLijnCategorie/AutoComplete.cls.xml	(revision 35617)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.EC.Winkelkar.enu.MaatwerkLijnCategorie.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="BinnenLade">
+<Type>%String</Type>
+<InitialExpression>"BinnenLade"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="StandaardLade">
+<Type>%String</Type>
+<InitialExpression>"StandaardLade"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: DOM/EC/Winkelkar/impl/WinkelkarService.cls.xml
===================================================================
diff -u -r29059 -r35617
--- DOM/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 29059)
+++ DOM/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 35617)
@@ -3,6 +3,11 @@
 <Class name="DOM.EC.Winkelkar.impl.WinkelkarService">
 <Super>TECH.RegisteredObject,DOM.EC.Winkelkar.WinkelkarService</Super>
 
+<Property name="Categorie">
+<Type>DOM.EC.Winkelkar.enu.MaatwerkLijnCategorie.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="GeefLaatstGewijzigdeMaatwerkLijn">
 <Description>
 De laatst gewijzigde MaatwerkLijn (van het type "Kenmerken-Familie-Variant") ophalen </Description>
@@ -18,6 +23,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLaatstGewijzigdeRelevanteMaatwerkLijn">
+<FormalSpec>WinkelkarID:%String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>DOM.EC.Winkelkar.MaatwerkLijn</ReturnType>
+<Implementation><![CDATA[
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..GeefWinkelkar(WinkelkarID)
+	#dim MaatwerkLijnBepaler As DOM.EC.Winkelkar.Visitors.MaatwerkLijnBepaler = ##class(DOM.EC.Winkelkar.Visitors.MaatwerkLijnBepaler).%New(IngegevenKenmerken.GeefFamilie(), IngegevenKenmerken.GeefVariant())
+	#dim Categorie As DOM.EC.Winkelkar.enu.MaatwerkLijnCategorie = MaatwerkLijnBepaler.GeefCategorie(IngegevenKenmerken)
+	
+	Do Winkelkar.Accept(MaatwerkLijnBepaler)
+	
+	Quit MaatwerkLijnBepaler.GeefLaatsteMaatwerkLijnVoorCategorie(Categorie)
+]]></Implementation>
+</Method>
+
 <Method name="GeefWinkelkar">
 <FormalSpec>WinkelkarID:%String</FormalSpec>
 <ReturnType>DOM.EC.Winkelkar.Winkelkar</ReturnType>
Index: DOM/EC/Winkelkar/enu/MaatwerkLijnCategorie/Verwerker.cls.xml
===================================================================
diff -u
--- DOM/EC/Winkelkar/enu/MaatwerkLijnCategorie/Verwerker.cls.xml	(revision 0)
+++ DOM/EC/Winkelkar/enu/MaatwerkLijnCategorie/Verwerker.cls.xml	(revision 35617)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.EC.Winkelkar.enu.MaatwerkLijnCategorie.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>MaatwerkLijnCategorie:DOM.EC.Winkelkar.enu.MaatwerkLijnCategorie</FormalSpec>
+<Implementation><![CDATA[
+	If MaatwerkLijnCategorie = "BinnenLade" {
+		Do ..VerwerkBinnenLade()
+	} ElseIf MaatwerkLijnCategorie = "StandaardLade" {
+		Do ..VerwerkStandaardLade()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(MaatwerkLijnCategorie,"DOM.EC.Winkelkar.enu.MaatwerkLijnCategorie",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkBinnenLade">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkStandaardLade">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/enu/Familie.cls.xml
===================================================================
diff -u -r29059 -r35617
--- DOM/PM/enu/Familie.cls.xml	(.../Familie.cls.xml)	(revision 29059)
+++ DOM/PM/enu/Familie.cls.xml	(.../Familie.cls.xml)	(revision 35617)
@@ -3,7 +3,7 @@
 <Class name="DOM.PM.enu.Familie">
 <ClassType>datatype</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%String</Super>
+<Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
 <Default>,Lade,AluKader,Orgalux,Mat</Default>
Index: DOM/PM/enu/Familie/AutoComplete.cls.xml
===================================================================
diff -u
--- DOM/PM/enu/Familie/AutoComplete.cls.xml	(revision 0)
+++ DOM/PM/enu/Familie/AutoComplete.cls.xml	(revision 35617)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.enu.Familie.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="AluKader">
+<Type>%String</Type>
+<InitialExpression>"AluKader"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Lade">
+<Type>%String</Type>
+<InitialExpression>"Lade"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Mat">
+<Type>%String</Type>
+<InitialExpression>"Mat"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Orgalux">
+<Type>%String</Type>
+<InitialExpression>"Orgalux"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: DOM/PM/enu/Familie/Verwerker.cls.xml
===================================================================
diff -u
--- DOM/PM/enu/Familie/Verwerker.cls.xml	(revision 0)
+++ DOM/PM/enu/Familie/Verwerker.cls.xml	(revision 35617)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.enu.Familie.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>Familie:DOM.PM.enu.Familie</FormalSpec>
+<Implementation><![CDATA[
+	If Familie = "AluKader" {
+		Do ..VerwerkAluKader()
+	} ElseIf Familie = "Lade" {
+		Do ..VerwerkLade()
+	} ElseIf Familie = "Mat" {
+		Do ..VerwerkMat()
+	} ElseIf Familie = "Orgalux" {
+		Do ..VerwerkOrgalux()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(Familie,"DOM.PM.enu.Familie",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkAluKader">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkLade">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkMat">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkOrgalux">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/DOM/EC/Winkelkar/WinkelkarService.cls.xml
===================================================================
diff -u -r29059 -r35617
--- vhTest/Mock/DOM/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 29059)
+++ vhTest/Mock/DOM/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 35617)
@@ -16,6 +16,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLaatstGewijzigdeRelevanteMaatwerkLijn">
+<FormalSpec>WinkelkarID:%String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>DOM.EC.Winkelkar.MaatwerkLijn</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefLaatstGewijzigdeRelevanteMaatwerkLijn",WinkelkarID,IngegevenKenmerken)
+]]></Implementation>
+</Method>
+
 <Method name="GeefWinkelkar">
 <FormalSpec>WinkelkarID:%String</FormalSpec>
 <ReturnType>DOM.EC.Winkelkar.Winkelkar</ReturnType>
Index: DOM/EC/Winkelkar/enu/MaatwerkLijnCategorie.cls.xml
===================================================================
diff -u
--- DOM/EC/Winkelkar/enu/MaatwerkLijnCategorie.cls.xml	(revision 0)
+++ DOM/EC/Winkelkar/enu/MaatwerkLijnCategorie.cls.xml	(revision 35617)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.EC.Winkelkar.enu.MaatwerkLijnCategorie">
+<Super>TECH.Enumeration</Super>
+
+<Parameter name="VALUELIST">
+<Default>;BinnenLade;StandaardLade</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Default>;BinnenLade;StandaardLade</Default>
+</Parameter>
+
+<Method name="BinnenLade">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.EC.Winkelkar.enu.MaatwerkLijnCategorie</ReturnType>
+<Implementation><![CDATA[	Quit "BinnenLade"
+]]></Implementation>
+</Method>
+
+<Method name="StandaardLade">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.EC.Winkelkar.enu.MaatwerkLijnCategorie</ReturnType>
+<Implementation><![CDATA[	Quit "StandaardLade"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/enu/Variant/AutoComplete.cls.xml
===================================================================
diff -u
--- DOM/PM/enu/Variant/AutoComplete.cls.xml	(revision 0)
+++ DOM/PM/enu/Variant/AutoComplete.cls.xml	(revision 35617)
@@ -0,0 +1,91 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.enu.Variant.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="Basis">
+<Type>%String</Type>
+<InitialExpression>"Basis"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="LegraboxPure">
+<Type>%String</Type>
+<InitialExpression>"LBX_Pure"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="MDS">
+<Type>%String</Type>
+<InitialExpression>"MDS"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="MatStandaard">
+<Type>%String</Type>
+<InitialExpression>"MAT_Standaard"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="OrgaluxOpMaat">
+<Type>%String</Type>
+<InitialExpression>"OLM"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="TandemboxAntaro">
+<Type>%String</Type>
+<InitialExpression>"TBX_Antaro"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="TandemboxBaliko">
+<Type>%String</Type>
+<InitialExpression>"TBX_Baliko"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="TandemboxIntivo">
+<Type>%String</Type>
+<InitialExpression>"TBX_Intivo"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="TandemboxMengvorm">
+<Type>%String</Type>
+<InitialExpression>"TBX_Mengvorm"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="TandemboxPlus">
+<Type>%String</Type>
+<InitialExpression>"TBX_Plus"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Taorbox">
+<Type>%String</Type>
+<InitialExpression>"TAOR"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: DOM/PM/enu/Variant/Verwerker.cls.xml
===================================================================
diff -u -r29415 -r35617
--- DOM/PM/enu/Variant/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 29415)
+++ DOM/PM/enu/Variant/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 35617)
@@ -36,7 +36,7 @@
 	} ElseIf Variant = "TAOR" {
 		Do ..VerwerkTaorbox()
 	} Else {
-		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(Variant,"DOM.PM.enu.Variant")
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(Variant,"DOM.PM.enu.Variant",$classname())
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
 	}
 ]]></Implementation>
Index: DOM/EC/Winkelkar/WinkelkarService.cls.xml
===================================================================
diff -u -r29059 -r35617
--- DOM/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 29059)
+++ DOM/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 35617)
@@ -13,6 +13,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="GeefLaatstGewijzigdeRelevanteMaatwerkLijn">
+<Abstract>1</Abstract>
+<FormalSpec>WinkelkarID:%String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>DOM.EC.Winkelkar.MaatwerkLijn</ReturnType>
+</Method>
+
 <Method name="GeefWinkelkar">
 <Abstract>1</Abstract>
 <FormalSpec>WinkelkarID:%String</FormalSpec>
Index: vhUnitTest/APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaWinkelkarToepasser/TAOR/Test.cls.xml
===================================================================
diff -u -r34940 -r35617
--- vhUnitTest/APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaWinkelkarToepasser/TAOR/Test.cls.xml	(.../Test.cls.xml)	(revision 34940)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaWinkelkarToepasser/TAOR/Test.cls.xml	(.../Test.cls.xml)	(revision 35617)
@@ -40,7 +40,8 @@
 	#dim WinkelkarServiceMock As vhTest.Mock.DOM.EC.Winkelkar.WinkelkarService = ##class(vhTest.Mock.DOM.EC.Winkelkar.WinkelkarService).%New()
 	#dim MaatwerkDefaultsViaWinkelkarToepasser As APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaWinkelkarToepasser = ##class(APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaWinkelkarToepasser).%New(..Winkelkar, WinkelkarServiceMock)
 	
-	Do WinkelkarServiceMock.VerwachtMethodCall("GeefLaatstGewijzigdeMaatwerkLijn", ..#WinkelkarID, "Lade", "TAOR")
+	;Do WinkelkarServiceMock.VerwachtMethodCall("GeefLaatstGewijzigdeMaatwerkLijn", ..#WinkelkarID, "Lade", "TAOR")
+	Do WinkelkarServiceMock.VerwachtMethodCall("GeefLaatstGewijzigdeRelevanteMaatwerkLijn", ..#WinkelkarID, ..TAORKenmerken)
 	Do ..TAORKenmerken.Accept(MaatwerkDefaultsViaWinkelkarToepasser)
 	Do WinkelkarServiceMock.Verifieer()
 ]]></Implementation>
@@ -51,7 +52,8 @@
 	#dim WinkelkarServiceStub As vhTest.Mock.DOM.EC.Winkelkar.WinkelkarService = ##class(vhTest.Mock.DOM.EC.Winkelkar.WinkelkarService).%New()
 	#dim MaatwerkDefaultsViaWinkelkarToepasser As APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaWinkelkarToepasser = ##class(APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaWinkelkarToepasser).%New(..Winkelkar, WinkelkarServiceStub)
 
-	Do WinkelkarServiceStub.IndienMethodCall("GeefLaatstGewijzigdeMaatwerkLijn", ..#WinkelkarID, "Lade", "TAOR").DanDoeNiks()
+	;Do WinkelkarServiceStub.IndienMethodCall("GeefLaatstGewijzigdeMaatwerkLijn", ..#WinkelkarID, "Lade", "TAOR").DanDoeNiks()
+	Do WinkelkarServiceStub.IndienMethodCall("GeefLaatstGewijzigdeRelevanteMaatwerkLijn", ..#WinkelkarID, ..TAORKenmerken)
 	Do ..TAORKenmerken.Accept(MaatwerkDefaultsViaWinkelkarToepasser)
 	
 	Do $$$AssertEquals(..TAORKenmerken.AfdekkapBovenKleur, "")
@@ -211,7 +213,8 @@
 	
 	Do VorigeWinkelkarLijn.ZetIngegevenKenmerken(VorigeKenmerken)
 	
-	Do WinkelkarServiceStub.IndienMethodCall("GeefLaatstGewijzigdeMaatwerkLijn", ..#WinkelkarID, "Lade", "TAOR").DanReturn(VorigeWinkelkarLijn)
+	;Do WinkelkarServiceStub.IndienMethodCall("GeefLaatstGewijzigdeMaatwerkLijn", ..#WinkelkarID, "Lade", "TAOR").DanReturn(VorigeWinkelkarLijn)
+	Do WinkelkarServiceStub.IndienMethodCall("GeefLaatstGewijzigdeRelevanteMaatwerkLijn", ..#WinkelkarID, NieuweKenmerken).DanReturn(VorigeWinkelkarLijn)
 	Do NieuweKenmerken.Accept(MaatwerkDefaultsViaWinkelkarToepasser)
 	
 	Quit NieuweKenmerken
Index: vhUnitTest/DOM/EC/Winkelkar/Visitors/MaatwerkLijnBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/EC/Winkelkar/Visitors/MaatwerkLijnBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/EC/Winkelkar/Visitors/MaatwerkLijnBepaler/Test.cls.xml	(revision 35617)
@@ -0,0 +1,87 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.EC.Winkelkar.Visitors.MaatwerkLijnBepaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="MaatwerkLijnBepaler">
+<Type>DOM.EC.Winkelkar.Visitors.MaatwerkLijnBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Familie">
+<Type>DOM.PM.enu.Familie.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Variant">
+<Type>DOM.PM.enu.Variant.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Categorie">
+<Type>DOM.EC.Winkelkar.enu.MaatwerkLijnCategorie.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..MaatwerkLijnBepaler = ##class(DOM.EC.Winkelkar.Visitors.MaatwerkLijnBepaler).%New(..Familie.Lade, ..Variant.Taorbox)
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefLaatsteMaatwerkLijnVoorCategorie geeft laatste MaatwerkLijn met Categorie terug uit Winkelkar ">
+<Implementation><![CDATA[
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New($$$DummyInteger)
+	
+	Do Winkelkar.VoegToe(..MaakMaatwerkLijn(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade(), 1))
+	Do Winkelkar.VoegToe(..MaakMaatwerkLijn(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardBinnenlade(), 2))
+	Do Winkelkar.VoegToe(..MaakMaatwerkLijn(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardBinnenlade(), 3))
+	Do Winkelkar.VoegToe(..MaakMaatwerkLijn(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade(), 4))
+	Do Winkelkar.VoegToe(..MaakMaatwerkLijn(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade(), 5))
+	
+	Do Winkelkar.Accept(..MaatwerkLijnBepaler)
+
+	#dim LaatsteMaatwerkLijnMetBinnenLade As DOM.EC.Winkelkar.MaatwerkLijn = ..MaatwerkLijnBepaler.GeefLaatsteMaatwerkLijnVoorCategorie(..Categorie.BinnenLade)
+	#dim LaatsteMaatwerkLijnMetStandaardLade As DOM.EC.Winkelkar.MaatwerkLijn = ..MaatwerkLijnBepaler.GeefLaatsteMaatwerkLijnVoorCategorie(..Categorie.StandaardLade)
+	
+	Do $$$AssertEquals(LaatsteMaatwerkLijnMetBinnenLade.GeefAantal(), 3)
+	Do $$$AssertEquals(LaatsteMaatwerkLijnMetStandaardLade.GeefAantal(), 5)
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefLaatsteMaatwerkLijn geeft laatste MaatwerkLijn terug uit Winkelkar ">
+<Implementation><![CDATA[
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New($$$DummyInteger)
+	
+	Do Winkelkar.VoegToe(..MaakMaatwerkLijn(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade(), 1))
+	Do Winkelkar.VoegToe(..MaakMaatwerkLijn(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade(), 2))
+	Do Winkelkar.VoegToe(..MaakMaatwerkLijn(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade(), 3))
+	
+	Do Winkelkar.Accept(..MaatwerkLijnBepaler)
+
+	#dim LaatsteMaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = ..MaatwerkLijnBepaler.GeefLaatsteMaatwerkLijn()
+	
+	Do $$$AssertEquals(LaatsteMaatwerkLijn.GeefAantal(), 3)
+]]></Implementation>
+</Method>
+
+<Method name="MaakMaatwerkLijn">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,Aantal:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.EC.Winkelkar.MaatwerkLijn</ReturnType>
+<Implementation><![CDATA[
+	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
+	
+	Do MaatwerkLijn.ZetIngegevenKenmerken(IngegevenKenmerken)
+	Do MaatwerkLijn.ZetAantal(Aantal)
+	
+	Quit MaatwerkLijn
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaWinkelkarToepasser.cls.xml
===================================================================
diff -u -r34593 -r35617
--- APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaWinkelkarToepasser.cls.xml	(.../MaatwerkDefaultsViaWinkelkarToepasser.cls.xml)	(revision 34593)
+++ APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaWinkelkarToepasser.cls.xml	(.../MaatwerkDefaultsViaWinkelkarToepasser.cls.xml)	(revision 35617)
@@ -95,8 +95,8 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
 <Implementation><![CDATA[
-	#Dim LaatstGewijzigdeKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ""
-	#Dim WinkelkarLijn As DOM.EC.Winkelkar.MaatwerkLijn = ..WinkelkarService.GeefLaatstGewijzigdeMaatwerkLijn(..Winkelkar.WinkelkarID, Kenmerken.GeefFamilie(), Kenmerken.GeefVariant())
+	#dim LaatstGewijzigdeKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ""
+	#dim WinkelkarLijn As DOM.EC.Winkelkar.MaatwerkLijn = ..WinkelkarService.GeefLaatstGewijzigdeRelevanteMaatwerkLijn(..Winkelkar.WinkelkarID, Kenmerken)
 	
 	If ($isObject(WinkelkarLijn)) {
 		Set LaatstGewijzigdeKenmerken = WinkelkarLijn.GeefIngegevenKenmerken()