Index: EXTERN/PM/Maatwerk/MaatwerkService.cls.xml
===================================================================
diff -u -r67842 -r67880
--- EXTERN/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 67842)
+++ EXTERN/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 67880)
@@ -187,7 +187,9 @@
 	
 	#dim GekoppeldeIK As array Of DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = IngegevenKenmerken.GekoppeldeIngegevenKenmerken
 	#dim UitsparingData As DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData
-	If $$$Not(IngegevenKenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).TandemboxAntaro()) {
+	#dim IsTandembox As %Boolean = IngegevenKenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).TandemboxAntaro()
+	
+	If $$$Not(IsTandembox) {
 		Set UitsparingData = IngegevenKenmerken.UitsparingData
 	}
 	
@@ -234,14 +236,18 @@
 			Set $PROPERTY(UitsparingData, "RugDeelX") = KenmerkWaarde
 		} ElseIf ((KenmerkNaam = "UitsparingRugDeelY")) {		
 			Set $PROPERTY(UitsparingData, "RugDeelY") = KenmerkWaarde
-		}  ElseIf ((KenmerkNaam = "UitsparingRugDeelM")) {		
+		} ElseIf ((KenmerkNaam = "UitsparingRugDeelM")) {		
 			Set $PROPERTY(UitsparingData, "RugDeelM") = KenmerkWaarde
-		}  ElseIf ((KenmerkNaam = "UitsparingUitsparingZ1")) {		
+		} ElseIf ((KenmerkNaam = "UitsparingUitsparingZ1")) {		
 			Set $PROPERTY(UitsparingData, "UitsparingZ1") = KenmerkWaarde
-		}  ElseIf ((KenmerkNaam = "UitsparingUitsparingZ2")) {		
+		} ElseIf ((KenmerkNaam = "UitsparingUitsparingZ2")) {		
 			Set $PROPERTY(UitsparingData, "UitsparingZ2") = KenmerkWaarde
-		}  ElseIf ((KenmerkNaam = "UitsparingAantalUitsparingen")) {		
+		} ElseIf ((KenmerkNaam = "UitsparingAantalUitsparingen")) {		
 			Set $PROPERTY(UitsparingData, "AantalUitsparingen") = KenmerkWaarde
+		} ElseIf ((KenmerkNaam = "ZijwandVerhogingInschuifElementKleur") && IsTandembox) {		
+			Set $PROPERTY(IngegevenKenmerken.LegacyKenmerken, "ItemKV") = KenmerkWaarde
+		} ElseIf ((KenmerkNaam = "ZijwandVerhogingRelingKleur") && IsTandembox) {		
+			Set $PROPERTY(IngegevenKenmerken.LegacyKenmerken, "ItemRK") = KenmerkWaarde
 		} Else {		
 			Set $PROPERTY(IngegevenKenmerken, KenmerkNaam) = KenmerkWaarde
 		}
@@ -316,6 +322,7 @@
 	Set PropertiesIterator = ##class(TECH.ListIterator).%New(CompiledClass.Properties)
 	Set IngegevenKenmerkenAPI = ##class(DOM.PM.impl.IngegevenKenmerkenAPIimpl).%New()
 	Set IngegevenKenmerkenTypeAPI = ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New()
+	#dim IsTandembox As %Boolean = IngegevenKenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).TandemboxAntaro()
 	
 	#dim Namen As %String = ""
 	#dim Waarden As %String = ""
@@ -392,9 +399,29 @@
 				Set Waarden = Waarden _ Delimiter _ IngegevenKenmerken.UitsparingData.AantalUitsparingen
 			}
 		}
+		
 		If (PropertyNaam = "NietMeeleveren") {
 			Set Result.NietMeeleveren = ##class(TECH.ListUtils).ListToPieces(PropertyWaarde,"\")
 		}
+		
+		If ((PropertyNaam = "ZijwandVerhogingKleur") && IsTandembox) {
+			If (IngegevenKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).InschuifElement()) {
+				Set Namen = Namen _ Delimiter _ "ZijwandVerhogingRelingKleur"
+				Set Waarden = Waarden _ Delimiter _ ""
+				Set Namen = Namen _ Delimiter _ "ZijwandVerhogingInschuifElementKleur"
+				Set Waarden = Waarden _ Delimiter _ ..GeefTbxZijwandVerhogingKleur(IngegevenKenmerken.LegacyKenmerken.ItemKV)
+			} ElseIf (IngegevenKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Reling())  {
+				Set Namen = Namen _ Delimiter _ "ZijwandVerhogingRelingKleur"
+				Set Waarden = Waarden _ Delimiter _ ..GeefTbxZijwandVerhogingKleur(IngegevenKenmerken.LegacyKenmerken.ItemRK)
+				Set Namen = Namen _ Delimiter _ "ZijwandVerhogingInschuifElementKleur"
+				Set Waarden = Waarden _ Delimiter _ ""
+			} Else {
+				Set Namen = Namen _ Delimiter _ "ZijwandVerhogingRelingKleur"
+				Set Waarden = Waarden _ Delimiter _ ""
+				Set Namen = Namen _ Delimiter _ "ZijwandVerhogingInschuifElementKleur"
+				Set Waarden = Waarden _ Delimiter _ ""
+			}
+		}
 	}
 	Set:($E(Namen,1)=Delimiter) $E(Namen,1)=""
 	Set:($E(Waarden,1)=Delimiter) $E(Waarden,1)=""
@@ -404,14 +431,39 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefTbxZijwandVerhogingKleur">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>TbxZijwandVerhogingKleur:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim ZijwandVerhogingInschuifElementKleur As %String = ""
+	
+	If $$$HasLength(TbxZijwandVerhogingKleur) {
+		If ##class(TECH.StringUtils).Equals(TbxZijwandVerhogingKleur, "FG8","FZ8","ZV") {
+		 	Set ZijwandVerhogingInschuifElementKleur = TbxZijwandVerhogingKleur
+		} ElseIf TbxZijwandVerhogingKleur = "AluMG" {
+			Set ZijwandVerhogingInschuifElementKleur = "ALU.MG"
+		} ElseIf TbxZijwandVerhogingKleur = "AluSW" {
+			Set ZijwandVerhogingInschuifElementKleur = "ALU.SW"
+		} ElseIf TbxZijwandVerhogingKleur = "AluBZ" {
+			Set ZijwandVerhogingInschuifElementKleur = "ALU.BZ"
+		} Else {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("ZijwandVerhogingKleur '" _ TbxZijwandVerhogingKleur _ "' is niet gekend in de multicalc voor TBX."))
+		}
+	}
+	
+	Quit ZijwandVerhogingInschuifElementKleur
+]]></Implementation>
+</Method>
+
 <Method name="MagTbxSpecifiekKenmerkWordenWeergegeven">
 <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") 
 			|| '(##class(TECH.StringUtils).Equals(Property,"LegacyKenmerken","Antislipmat","Blumotion","CorpusBinnenbreedte","FrontHouderKleur","RugHouderKleur","TipOn","TussenrugMateriaal","ZijwandVerhogingAantal",
-			"ZijwandVerhogingAantal","UitsparingBreedte1","UitsparingBreedte2","UitsparingDiepte","UitsparingPositie1","UitsparingPositie2","UitsparingZijkantKleur","HangmapBoringAantal","RugKleur",
-			"SpoelbakBinnenzijwandHoogte","VoorwandMetGreep","VoorwandMetMeenemer","VoorwandVerhogingKleur","ZijwandVerhogingKleur","ZijkantDesign")))
+			"ZijwandVerhogingAantal","UitsparingBreedte1","UitsparingBreedte2","UitsparingDiepte","UitsparingPositie1","UitsparingPositie2","UitsparingZijkantKleur","ZijwandVerhogingKleur","HangmapBoringAantal","RugKleur",
+			"SpoelbakBinnenzijwandHoogte","VoorwandMetGreep","VoorwandMetMeenemer","VoorwandVerhogingKleur","ZijkantDesign","ZijwandVerhogingMateriaal")))
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/Maatwerk/enu/GenerischProductID/AutoComplete.cls.xml
===================================================================
diff -u -r64562 -r67880
--- DOM/PM/Maatwerk/enu/GenerischProductID/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 64562)
+++ DOM/PM/Maatwerk/enu/GenerischProductID/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 67880)
@@ -247,12 +247,40 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="TBXPallet">
+<Type>%String</Type>
+<InitialExpression>"89325"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="TBXProbox">
+<Type>%String</Type>
+<InitialExpression>"675436"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="TBXSSTV1">
 <Type>%String</Type>
 <InitialExpression>"2672985"</InitialExpression>
 <Transient>1</Transient>
 <ReadOnly>1</ReadOnly>
 </Property>
+
+<Property name="TBXV1">
+<Type>%String</Type>
+<InitialExpression>"89322"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="TBXVHoss">
+<Type>%String</Type>
+<InitialExpression>"435287"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
 </Class>
 
 
Index: DOM/PM/Maatwerk/enu/GenerischProductID.cls.xml
===================================================================
diff -u -r64562 -r67880
--- DOM/PM/Maatwerk/enu/GenerischProductID.cls.xml	(.../GenerischProductID.cls.xml)	(revision 64562)
+++ DOM/PM/Maatwerk/enu/GenerischProductID.cls.xml	(.../GenerischProductID.cls.xml)	(revision 67880)
@@ -5,7 +5,7 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>;868317;865733;2450465;896366;896358;896361;896354;675435;896398;1526406;858490;1174139;1226125;1253212;1253213;1253214;1869915;1869829;1868035;1869917;1869831;1868037;1869916;1869830;2673009;1868036;896399;2672985;2658411;2658414;2658413</Default>
+<Default>;868317;865733;2450465;896366;896358;896361;896354;675435;896398;1526406;858490;1174139;1226125;1253212;1253213;1253214;1869915;1869829;1868035;1869917;1869831;1868037;1869916;1869830;2673009;1868036;896399;2672985;2658411;2658414;2658413;89322;675436;435287;89325</Default>
 </Parameter>
 
 <Method name="MatBasis">
@@ -254,6 +254,34 @@
 <Implementation><![CDATA[	Quit "2658413"
 ]]></Implementation>
 </Method>
+
+<Method name="TBXV1">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.enu.GenerischProductID</ReturnType>
+<Implementation><![CDATA[	Quit "89322"
+]]></Implementation>
+</Method>
+
+<Method name="TBXProbox">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.enu.GenerischProductID</ReturnType>
+<Implementation><![CDATA[	Quit "675436"
+]]></Implementation>
+</Method>
+
+<Method name="TBXVHoss">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.enu.GenerischProductID</ReturnType>
+<Implementation><![CDATA[	Quit "435287"
+]]></Implementation>
+</Method>
+
+<Method name="TBXPallet">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.enu.GenerischProductID</ReturnType>
+<Implementation><![CDATA[	Quit "89325"
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PM/Maatwerk/GenerischProductBepaler.cls.xml
===================================================================
diff -u -r65687 -r67880
--- DOM/PM/Maatwerk/GenerischProductBepaler.cls.xml	(.../GenerischProductBepaler.cls.xml)	(revision 65687)
+++ DOM/PM/Maatwerk/GenerischProductBepaler.cls.xml	(.../GenerischProductBepaler.cls.xml)	(revision 67880)
@@ -35,8 +35,20 @@
 <FormalSpec>TBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	// Er zijn meerdere gevallen te dekken, zie de method GenerischPRNr() in Prod.GAData.Product
-	Set ..GenerischProductID = 89322
+	Set ..GenerischProductID = ##class(DOM.PM.Maatwerk.enu.GenerischProductID).TBXV1()
+	
+	If (TBXKenmerken.VerpakkingType = "S") {
+		Set ..GenerischProductID = ##class(DOM.PM.Maatwerk.enu.GenerischProductID).TBXV1()
+	} ElseIf (TBXKenmerken.VerpakkingType = "X") {
+		Set ..GenerischProductID = ##class(DOM.PM.Maatwerk.enu.GenerischProductID).TBXProbox()
+	} ElseIf (TBXKenmerken.VerpakkingType = "B") {
+		Set ..GenerischProductID = ##class(DOM.PM.Maatwerk.enu.GenerischProductID).TBXVHoss()
+	} ElseIf (TBXKenmerken.VerpakkingType = "P") {
+		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))
+	}
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: DOM/PM/Maatwerk/enu/GenerischProductID/Verwerker.cls.xml
===================================================================
diff -u -r64562 -r67880
--- DOM/PM/Maatwerk/enu/GenerischProductID/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 64562)
+++ DOM/PM/Maatwerk/enu/GenerischProductID/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 67880)
@@ -80,8 +80,16 @@
 		Do ..VerwerkTAORSSTV1()
 	} ElseIf GenerischProductID = "675435" {
 		Do ..VerwerkTAORV1()
+	} ElseIf GenerischProductID = "89325" {
+		Do ..VerwerkTBXPallet()
+	} ElseIf GenerischProductID = "675436" {
+		Do ..VerwerkTBXProbox()
 	} ElseIf GenerischProductID = "2672985" {
 		Do ..VerwerkTBXSSTV1()
+	} ElseIf GenerischProductID = "89322" {
+		Do ..VerwerkTBXV1()
+	} ElseIf GenerischProductID = "435287" {
+		Do ..VerwerkTBXVHoss()
 	} Else {
 		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(GenerischProductID,"DOM.PM.Maatwerk.enu.GenerischProductID",$classname())
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
@@ -293,11 +301,35 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkTBXPallet">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkTBXProbox">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkTBXSSTV1">
 <Abstract>1</Abstract>
 <Private>1</Private>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
+
+<Method name="VerwerkTBXV1">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkTBXVHoss">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
 </Class>