Index: DOM/VKP/impl/VerkoopAPI.cls.xml
===================================================================
diff -u -r67709 -r67925
--- DOM/VKP/impl/VerkoopAPI.cls.xml	(.../VerkoopAPI.cls.xml)	(revision 67709)
+++ DOM/VKP/impl/VerkoopAPI.cls.xml	(.../VerkoopAPI.cls.xml)	(revision 67925)
@@ -3,6 +3,23 @@
 <Class name="DOM.VKP.impl.VerkoopAPI">
 <Super>%RegisteredObject,DOM.VKP.VerkoopAPI</Super>
 
+<Property name="GeefLegacyPartijAPI">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..GeefLegacyPartijAPI = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlant">
 <FormalSpec>PartijID:DOM.common.PartijID</FormalSpec>
 <ReturnType>DOM.VKP.VanHoeckeKlant</ReturnType>
@@ -37,7 +54,7 @@
 <Implementation><![CDATA[
 	#dim BestaatKlant As %Boolean = 0
 
-	#dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(KlantID)
+	#dim KlantNr As %String = ..GeefLegacyPartijAPI.GeefKlantNummerVoorPartijID(KlantID)
 	If $length(KlantNr) {
 		Set BestaatKlant=($data(^DKL("K","KL.A",KlantNr))>0)
 	}
@@ -68,13 +85,13 @@
 <Implementation><![CDATA[
 	#dim KlantPartijID As %String = KlantID
 	if '..BestaatKlant(KlantPartijID) {
-		Set KlantPartijID =  ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KlantID)
+		Set KlantPartijID =  ..GeefLegacyPartijAPI.GeefKlantPartijID(KlantID)
 		If '..BestaatKlant(KlantPartijID) {
 			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Er is geen klant met KlantID "_KlantID))
 		}
 	}
 
-	#dim KlantNummer As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(KlantPartijID)
+	#dim KlantNummer As %String = ..GeefLegacyPartijAPI.GeefKlantNummerVoorPartijID(KlantPartijID)
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ..GeefGeimplementeerdeKlant(KlantNummer,IsNative)
 	
 	If ('$IsObject(Klant)) || ($Piece(KlantPartijID,"||",1) '= "K") {
@@ -162,7 +179,7 @@
 	;#dim KlantNummer As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(PartijID)
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(PartijID)
 	#dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(PartijID)
-	#dim KlantNummer As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Klant.GeefID())
+	#dim KlantNummer As %String = ..GeefLegacyPartijAPI.GeefKlantNummerVoorPartijID(Klant.GeefID())
 	Set KlantIndex = Klant.GeefKlantIndexKKL()
 	
 	Do Klant.VerwijderIndexen()
Index: EXTERN/PM/Maatwerk/MaatwerkService.cls.xml
===================================================================
diff -u -r67889 -r67925
--- EXTERN/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 67889)
+++ EXTERN/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 67925)
@@ -485,7 +485,7 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Property:%String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <Implementation><![CDATA[
-	Quit ('(IngegevenKenmerken.%ClassName(1) = "DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken") 
+	Quit ('(IngegevenKenmerken.%Extends(##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%ClassName(1))) 
 			|| '(##class(TECH.StringUtils).Equals(Property,"LegacyKenmerken","Antislipmat","Blumotion","CorpusBinnenbreedte","FrontHouderKleur","RugHouderKleur","TipOn","TussenrugMateriaal","ZijwandVerhogingAantal",
 			"ZijwandVerhogingAantal","UitsparingBreedte1","UitsparingBreedte2","UitsparingDiepte","UitsparingPositie1","UitsparingPositie2","UitsparingZijkantKleur","ZijwandVerhogingKleur","HangmapBoringAantal","RugKleur",
 			"SpoelbakBinnenzijwandHoogte","VoorwandMetGreep","VoorwandMetMeenemer","VoorwandVerhogingKleur","ZijkantDesign")))
Index: DOM/PM/Maatwerk/GenerischProductBepaler.cls.xml
===================================================================
diff -u -r67880 -r67925
--- DOM/PM/Maatwerk/GenerischProductBepaler.cls.xml	(.../GenerischProductBepaler.cls.xml)	(revision 67880)
+++ DOM/PM/Maatwerk/GenerischProductBepaler.cls.xml	(.../GenerischProductBepaler.cls.xml)	(revision 67925)
@@ -37,13 +37,13 @@
 <Implementation><![CDATA[
 	Set ..GenerischProductID = ##class(DOM.PM.Maatwerk.enu.GenerischProductID).TBXV1()
 	
-	If (TBXKenmerken.VerpakkingType = "S") {
+	If (TBXKenmerken.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakking).StukMetOnderdelen()) {
 		Set ..GenerischProductID = ##class(DOM.PM.Maatwerk.enu.GenerischProductID).TBXV1()
-	} ElseIf (TBXKenmerken.VerpakkingType = "X") {
+	} ElseIf (TBXKenmerken.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakking).ProboxMetOnderdelen()) {
 		Set ..GenerischProductID = ##class(DOM.PM.Maatwerk.enu.GenerischProductID).TBXProbox()
-	} ElseIf (TBXKenmerken.VerpakkingType = "B") {
+	} ElseIf (TBXKenmerken.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakking).KastMetOnderdelen()) {
 		Set ..GenerischProductID = ##class(DOM.PM.Maatwerk.enu.GenerischProductID).TBXVHoss()
-	} ElseIf (TBXKenmerken.VerpakkingType = "P") {
+	} ElseIf (TBXKenmerken.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakking).Pallet()) {
 		Set ..GenerischProductID = ##class(DOM.PM.Maatwerk.enu.GenerischProductID).TBXPallet()
 	} Else {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kan geen generisch product id bepalen voor TBX verpakking "_ TBXKenmerken.VerpakkingType))