Index: APPS/EDI/common/impl/LegacyConverter/EdiNaarLegacy.cls.xml
===================================================================
diff -u -r39077 -r67117
--- APPS/EDI/common/impl/LegacyConverter/EdiNaarLegacy.cls.xml	(.../EdiNaarLegacy.cls.xml)	(revision 39077)
+++ APPS/EDI/common/impl/LegacyConverter/EdiNaarLegacy.cls.xml	(.../EdiNaarLegacy.cls.xml)	(revision 67117)
@@ -13,6 +13,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="TbxMatCodeConverter">
+<Type>APPS.EDI.common.impl.LegacyConverter.TbxMatCodeConverter</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>TBXLadeCodeBepaler:APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler</FormalSpec>
 <Private>1</Private>
@@ -22,6 +27,8 @@
 <Implementation><![CDATA[
 	Set ..TBXLadeCodeBepaler  = $$$Inject(TBXLadeCodeBepaler,##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New())
 	Set ..ObjectConverter = ##class(TECH.ObjectUtils.impl.ObjectConverter).%New()
+	Set ..TbxMatCodeConverter = ##class(APPS.EDI.common.impl.LegacyConverter.TbxMatCodeConverter).%New()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -34,40 +41,54 @@
 	
 	Do ..ObjectConverter.Convert(Product,TBXProduct,..GeefConvertDataTBX())
 	
-	Do ..ConvertDesignEnKleuren(Product,TBXProduct)
+	Do ..BepaalDesignID(TBXProduct)
 
 	Do ..ConvertCorpusWandDikte(Product,TBXProduct)
 	Do ..ConvertOpvullijst(Product,TBXProduct)
 	Do ..ConvertFrontOndersteuningAantal(Product,TBXProduct)
 	Do ..ConvertGreepEnMeenemer(Product,TBXProduct)
 	Do ..ConvertInschuifElement(Product,TBXProduct)
-	Do ..ConvertMat(Product,TBXProduct)
+	Do ..TbxMatCodeConverter.ConverteerEdiNaarLegacyMatCode(Product,TBXProduct)
 	Do ..ConvertLadeCodeKenmerken(Product,TBXProduct)
 	Do ..ConvertDwarsverdelingen(Product,TBXProduct)
 	Do ..ConvertFrontBevestiging(Product,TBXProduct)
 	Do ..ConvertUitsparingen(Product,TBXProduct)
 	Do ..ConvertVerlaagdeRug(Product,TBXProduct)
+	Do ..ConvertNietMeeleveren(Product,TBXProduct)
+	Do ..ConvertVerpakkingZonderOnderdelen(Product,TBXProduct)
+	Do ..ConverteerProductieWijze(Product,TBXProduct)
+
+	Set TBXProduct.ItemRugwandMateriaal = Product.RugwandMateriaal
+	Set TBXProduct.ItemPlaatMateriaal = Product.PlaatMateriaal
+	Do ..ConvertBodemKleurVoorStalenRug(Product,TBXProduct)
 	
 	Quit TBXProduct
 ]]></Implementation>
 </Method>
 
-<Method name="ConvertDesignEnKleuren">
-<FormalSpec><![CDATA[Product:APPS.EDI.common.dto.v001.LadeTBX,&TBXProduct:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy]]></FormalSpec>
+<Method name="BepaalDesignID">
+<FormalSpec><![CDATA[&TBXProduct:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy]]></FormalSpec>
 <Private>1</Private>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set TBXProduct.ItemDC = ##class(DOM.PM.enu.TBXDesigncode).Antaro()
-	Set TBXProduct.ItemDS = ..BepaalDesignID(TBXProduct.ItemKL, ##class(DOM.PM.enu.TBXDesigncode).Antaro())
+	#dim LadeKleur As Prod.GAMeta.BT.TBLadeKleur = ##class(Prod.GAMeta.BT.TBLadeKleur).OpenViaItemCode(TBXProduct.ItemKL,TBXProduct.ItemDC,1)
+	If $$$Not($IsObject(LadeKleur)) {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Fout bij opvragen LadeKleur. Kon geen object openen voor Ladekleur='"_TBXProduct.ItemKL_"' en DesignCode='"_TBXProduct.ItemDC_"'.")
+	}
+	Set TBXProduct.ItemDS = LadeKleur.BepaalDesignID(TBXProduct.ItemDC)
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalDesignID">
-<FormalSpec>LadeKleurID:%String,DesignCodeID:%String</FormalSpec>
+<Method name="ConvertBodemKleurVoorStalenRug">
+<FormalSpec><![CDATA[Product:APPS.EDI.common.dto.v001.LadeTBX,&TBXProduct:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy]]></FormalSpec>
 <Private>1</Private>
-<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim LadeKleur As Prod.GAMeta.BT.TBLadeKleur = ##class(Prod.GAMeta.BT.TBLadeKleur).OpenViaItemCode(LadeKleurID,DesignCodeID,1)
-	Quit LadeKleur.BepaalDesignID(DesignCodeID)
+	If Product.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal() {
+		#dim PasAanVoorStalenRug As %Boolean = ##class(TECH.StringUtils).Equals(Product.BodemKleur, "LG", "WI") && (Product.PlaatMateriaal '= "HS")
+		If PasAanVoorStalenRug {
+			Set TBXProduct.ItemKB = TBXProduct.ItemKB _ "S"
+		}
+	}
 ]]></Implementation>
 </Method>
 
@@ -78,9 +99,7 @@
 	If Product.IsBinnenbreedte {
 		Set TBXProduct.ItemWD = "B"
 	} Else 	{
-		If ##class(TECH.StringUtils).Equals(Product.CorpusWandDikte, 16,18,19) {
-			Set TBXProduct.ItemWD = Product.CorpusWandDikte
-		}
+		Set TBXProduct.ItemWD = Product.CorpusWandDikte
 	}
 ]]></Implementation>
 </Method>
@@ -109,7 +128,11 @@
 	If ##class(TECH.StringUtils).Equals(Product.FrontOndersteuningAantal, 1,2,3) {
 		Set TBXProduct.ItemFS = Product.FrontOndersteuningAantal
 	} ElseIf (Product.FrontOndersteuningAantal="") {
-		Set TBXProduct.ItemFS = "A"
+		If Product.FrontOndersteuningType = ##class(DOM.PM.enu.TBXFrontOndersteuningType).Auto(){
+			Set TBXProduct.ItemFS = "A"
+		} Else {
+			Set TBXProduct.ItemFS = "HS"
+		}
 	}
 ]]></Implementation>
 </Method>
@@ -119,7 +142,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	If Product.IsBinnenlade {		
-		If ##class(TECH.StringUtils).Equals(Product.RugHoogte,"C","D") && ##class(TECH.StringUtils).Equals(Product.ZijkantHoogte,"M","K"){
+		If ##class(TECH.StringUtils).Equals(Product.LadeHoogte,"C","D") && ##class(TECH.StringUtils).Equals(Product.ZijkantHoogte,"M","K"){
 			Set TBXProduct.ItemBGRP = "R"
 		} Else {
 			Set TBXProduct.ItemBGRP = $CASE(Product.GreepEnMeenemer, "HandleAndLatch":"M", "Handle":"G", :"Z")
@@ -136,38 +159,21 @@
 <Implementation><![CDATA[
 	If ((Product.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas()) && (Product.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatHelder8mm()) && (Product.ZijwandVerhogingType = "DesignElement")) {
 		Set TBXProduct.ItemKV = "FG8"
-	}
-	ElseIf ((Product.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas()) && (Product.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatGezuurd8mm()) && (Product.ZijwandVerhogingType = "DesignElement")) {
+	} ElseIf ((Product.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas()) && (Product.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatGezuurd8mm()) && (Product.ZijwandVerhogingType = "DesignElement")) {
 		Set TBXProduct.ItemKV = "FZ8"
-	}
-	ElseIf ((Product.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium()) && (Product.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).MetallicGrijs()) && (Product.ZijwandVerhogingType = "DesignElement")) {
+	} ElseIf ((Product.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium()) && (Product.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).MetallicGrijs()) && (Product.ZijwandVerhogingType = "DesignElement")) {
 		Set TBXProduct.ItemKV = "ALU.MG"
-	}
-	ElseIf ((Product.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium()) && (Product.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).TerraZwart()) && (Product.ZijwandVerhogingType = "DesignElement")) {
+	} ElseIf ((Product.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium()) && (Product.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).TerraZwart()) && (Product.ZijwandVerhogingType = "DesignElement")) {
 		Set TBXProduct.ItemKV = "ALU.BZ"
-	}
-	ElseIf ((Product.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium()) && (Product.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).ZijdeWit()) && (Product.ZijwandVerhogingType = "DesignElement")) {
+	} ElseIf ((Product.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium()) && (Product.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).ZijdeWit()) && (Product.ZijwandVerhogingType = "DesignElement")) {
 		Set TBXProduct.ItemKV = "ALU.SW"
+	} ElseIf( Product.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Geen()) {
+		Set TBXProduct.ItemKV = "ZV"
 	}
-]]></Implementation>
-</Method>
-
-<Method name="ConvertMat">
-<FormalSpec><![CDATA[Product:APPS.EDI.common.dto.v001.LadeTBX,&TBXProduct:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy]]></FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	If Product.HeeftMat {
-		If Product.MatKleur = ##class(DOM.PM.enu.MATKleur).ZwartAntislip() {		
-			Set TBXProduct.ItemASM = "Z"
-		} ElseIf Product.MatKleur = ##class(DOM.PM.enu.MATKleur).AntiSlipFiberZwart() {
-			Set TBXProduct.ItemASM = "ZW.AF"
-		} ElseIf Product.MatKleur = ##class(DOM.PM.enu.MATKleur).AntiSlipFiberWit() {
-			Set TBXProduct.ItemASM = "WI.AF"
-		} Else {
-			Set TBXProduct.ItemASM = "G"
-		}
-	} Else {
-		Set TBXProduct.ItemASM = ""
+	
+	Set TBXProduct.ItemRK = Product.LadeKleur //quick and dirty, niet juist voor inox, ook hieronder
+	If ($$$HasLength(Product.ZijwandVerhogingKleur) && $$$Not(Product.ZijwandVerhogingType = "DesignElement")){
+		Set TBXProduct.ItemRK = Product.ZijwandVerhogingKleur
 	}
 ]]></Implementation>
 </Method>
@@ -177,19 +183,17 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim Uittrekbaarheid As %String = ##class(DOM.PM.enu.TBXUittrekbaarheid).Volledig()
-	#dim LadeDesign As %String = ..GeefLadeDesign(Product.LadeKleur)
+	#dim LadeDesign As %String = ..GeefLadeDesign(Product.LadeKleur, Product.DesignCode)
 	
 	Set TBXProduct.ItemLT = ..TBXLadeCodeBepaler.BepaalLadeCode(Product.Klasse, Product.ZijkantHoogte, Product.LadeHoogte, Product.IsBinnenlade, Uittrekbaarheid, LadeDesign)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefLadeDesign">
-<FormalSpec>LadeKleur:%String</FormalSpec>
+<FormalSpec>LadeKleur:%String,DesignCodeId:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim DesignCode As %String = ##class(DOM.PM.enu.TBXDesigncode).Antaro()
-	Quit $Case(LadeKleur, "TS":"ZA", "SW":"WA", "MG":"GA", "IN":"IA", :"")
+<Implementation><![CDATA[	Quit $Case(LadeKleur, "BZ":"ZA", "SW":"WA", "MG":$$$If(DesignCodeId="MA","GMA","GA"), "IN":"IA", "OG":"OMT", :"")
 ]]></Implementation>
 </Method>
 
@@ -217,16 +221,73 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ConverteerProductieWijze">
+<FormalSpec><![CDATA[Product:APPS.EDI.common.dto.v001.LadeTBX,&TBXProduct:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set TBXProduct.ItemOnderdelenSpeciaal = $Case(Product.ProductieWijze,
+		##class(DOM.PM.enu.TBXProductieWijze).Bodem():##class(DOM.PM.enu.TBXProductieWijze).Bodem(),
+		##class(DOM.PM.enu.TBXProductieWijze).BodemEnRug():##class(DOM.PM.enu.TBXProductieWijze).BodemEnRug(),
+		##class(DOM.PM.enu.TBXProductieWijze).Front():##class(DOM.PM.enu.TBXProductieWijze).Front(),
+		##class(DOM.PM.enu.TBXProductieWijze).Rug():##class(DOM.PM.enu.TBXProductieWijze).Rug(),
+		##class(DOM.PM.enu.TBXProductieWijze).RugMetHouders():##class(DOM.PM.enu.TBXProductieWijze).RugMetHouders(),
+		##class(DOM.PM.enu.TBXProductieWijze).BodemRugEnFront():##class(DOM.PM.enu.TBXProductieWijze).BodemRugEnFront(),
+		##class(DOM.PM.enu.TBXProductieWijze).AndereOnderdelen():##class(DOM.PM.enu.TBXProductieWijze).AndereOnderdelen(),
+		:##class(DOM.PM.enu.TBXProductieWijze).Volledig())
+]]></Implementation>
+</Method>
+
 <Method name="ConvertUitsparingen">
 <FormalSpec><![CDATA[Product:APPS.EDI.common.dto.v001.LadeTBX,&TBXProduct:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If Product.UitsparingDataAantalUitsparingen = 1 {
-		Set TBXProduct.ItemSPZK = $Select(Product.UitsparingDataBreedteZ1="150":"S",Product.UitsparingDataBreedteZ1="250":"B",1:"M.")_";"_Product.UitsparingDataBreedteX_";"_Product.UitsparingDataBreedteY_";"_Product.UitsparingDataBreedteZ1
+	If Product.Klasse = ##class(DOM.PM.enu.TBXToepassing).SifonType3(){
+		If Product.UitsparingDataAantalUitsparingen = 1 {
+			Set TBXProduct.ItemSPZK = "SI31;"_Product.UitsparingDataBreedteX_";"_Product.UitsparingDataBreedteY_";"_Product.UitsparingDataBreedteZ1
+		} ElseIf Product.UitsparingDataAantalUitsparingen = 2 {
+			Set TBXProduct.ItemSPZK = "SI31.x2;"_Product.UitsparingDataBreedteX_";"_Product.UitsparingDataBreedteY_";"_Product.UitsparingDataBreedteM_";"_Product.UitsparingDataBreedteZ1_";"_Product.UitsparingDataBreedteZ2
+		}
+	} ElseIf Product.Klasse = ##class(DOM.PM.enu.TBXToepassing).SifonType2(){
+		#dim UitsparingCode As %String = ""
+		If Product.UitsparingDataAantalUitsparingen = 1 {
+			If Product.TussenrugMateriaal=##class(DOM.PM.enu.TBXRugwandMateriaal).Hout(){
+				Set UitsparingCode = "M."
+			} ElseIf Product.TussenrugMateriaal=##class(DOM.PM.enu.TBXRugwandMateriaal).Staal(){
+				If Product.UitsparingDataBreedteZ1="150"{
+					Set UitsparingCode = "S"
+				} ElseIf Product.UitsparingDataBreedteZ1="250"{
+					Set UitsparingCode = "B"
+				}
+			}
+			
+			Set TBXProduct.ItemSPZK = UitsparingCode_";"_Product.UitsparingDataBreedteX_";"_Product.UitsparingDataBreedteY_";"_Product.UitsparingDataBreedteZ1
+		}
+		If Product.UitsparingDataAantalUitsparingen = 2 {
+			If Product.TussenrugMateriaal=##class(DOM.PM.enu.TBXRugwandMateriaal).Hout(){
+				Set UitsparingCode = "MM"
+			} ElseIf Product.TussenrugMateriaal=##class(DOM.PM.enu.TBXRugwandMateriaal).Staal(){
+				Set UitsparingCode = $Select(Product.UitsparingDataBreedteZ1="150":"S",Product.UitsparingDataBreedteZ1="250":"B")_$Select(Product.UitsparingDataBreedteZ2="150":"S",Product.UitsparingDataBreedteZ2="250":"B")
+			}
+			
+			Set TBXProduct.ItemSPZK = UitsparingCode_";"_Product.UitsparingDataBreedteX_";"_Product.UitsparingDataBreedteY_";"_Product.UitsparingDataBreedteM_";"_Product.UitsparingDataBreedteZ1_";"_Product.UitsparingDataBreedteZ2
+		}
+	} ElseIf Product.Klasse = ##class(DOM.PM.enu.TBXToepassing).Spoelbak(){
+		If Product.RugHoogte = "D" {
+			If ((Product.UitsparingDataBreedteX=143) && (Product.UitsparingDataBreedteY=143)) {
+				Set TBXProduct.ItemSPZK = "SA"
+			} Else {
+				Set TBXProduct.ItemSPZK = "M"_";"_Product.UitsparingDataBreedteX_";"_Product.UitsparingDataBreedteY
+			}
+		} Else {
+			If ((Product.UitsparingDataBreedteX=147) && (Product.UitsparingDataBreedteY=147)) {
+				Set TBXProduct.ItemSPZK = "S2"
+			} ElseIf ((Product.UitsparingDataBreedteX=197) && (Product.UitsparingDataBreedteY=197)) {
+				Set TBXProduct.ItemSPZK = "B2"
+			} Else {
+				Set TBXProduct.ItemSPZK = "M"_";"_Product.UitsparingDataBreedteX_";"_Product.UitsparingDataBreedteY
+			}
+		}
 	}
-	If Product.UitsparingDataAantalUitsparingen = 2 {
-		Set TBXProduct.ItemSPZK = $Select(Product.UitsparingDataBreedteZ1="150":"S",Product.UitsparingDataBreedteZ1="250":"B",1:"M")_$Select(Product.UitsparingDataBreedteZ2="150":"S",Product.UitsparingDataBreedteZ2="250":"B",1:"M")_";"_Product.UitsparingDataBreedteX_";"_Product.UitsparingDataBreedteY_";"_Product.UitsparingDataBreedteM_";"_Product.UitsparingDataBreedteZ1_";"_Product.UitsparingDataBreedteZ2
-	}
 ]]></Implementation>
 </Method>
 
@@ -240,23 +301,72 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ConvertNietMeeleveren">
+<FormalSpec><![CDATA[Product:APPS.EDI.common.dto.v001.LadeTBX,&TBXProduct:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim NietMeeleveren As %String = ""
+	
+	Set NietMeeleverenIterator = ##class(TECH.ListIterator).%New(Product.NietMeeleveren)
+	
+	While NietMeeleverenIterator.HasNext() {
+		Set NietMeeleveren = NietMeeleveren _ NietMeeleverenIterator.Next() _ ";"
+	}
+	
+	Set TBXProduct.NietMeeleveren = ##class(TECH.StringUtils).RightTrim(NietMeeleveren,";")
+]]></Implementation>
+</Method>
+
+<Method name="ConvertVerpakkingZonderOnderdelen">
+<FormalSpec><![CDATA[Product:APPS.EDI.common.dto.v001.LadeTBX,&TBXProduct:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Quit:($$$Not(##class(TECH.StringUtils).Equals(TBXProduct.ItemVPK, "B", "O", "X")))
+	
+	#dim IsVerpakkingZonderOnderdelen As %Boolean = ..BepaalVerpakkingZonderOnderdelen(##class(TECH.ListUtils).PiecesToList(TBXProduct.NietMeeleveren,";"))
+	If IsVerpakkingZonderOnderdelen  {
+		Set:(TBXProduct.ItemVPK = "B") TBXProduct.ItemVPK = "A"   ; VHoss zonder onderdelen
+		Set:(TBXProduct.ItemVPK = "O") TBXProduct.ItemVPK = "C"   ; Commissie zonder onderdelen
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BepaalVerpakkingZonderOnderdelen">
+<FormalSpec>NietMeeleverenItems:%ListOfDataTypes</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim IsVerpakkingZonderOnderdelen As %Boolean = $$$True
+	
+	Set NietMeeleverenKenmerkIterator=##class(TECH.ListIterator).%New(##class(BL.PR.GA.TandemBox).GeefNietMeeleverenOnderdelenKenmerkNamen())
+	While (NietMeeleverenKenmerkIterator.HasNext()) && (IsVerpakkingZonderOnderdelen) {
+		#dim KenmerkNaam As %String = NietMeeleverenKenmerkIterator.Next()
+		Continue:(KenmerkNaam="NMSPDL")
+		If $$$Not(##class(TECH.ListUtils).Contains(NietMeeleverenItems, KenmerkNaam)) {
+			Set IsVerpakkingZonderOnderdelen = $$$False
+		}
+	}
+	
+	Quit IsVerpakkingZonderOnderdelen
+]]></Implementation>
+</Method>
+
 <Method name="GeefConvertDataTBX">
 <Private>1</Private>
 <ReturnType>TECH.ObjectUtils.ObjectConvertData</ReturnType>
 <Implementation><![CDATA[
 	Set ConvertData = ##class(TECH.ObjectUtils.ObjectConvertData).%New()
 	Do ConvertData.Add("LadeDiepte","ItemLD")
-	Do ConvertData.Add("BodemKleur","ItemKB", "Set Output = $Select(Input = ""TS"" : ""BZ"", 1:Input)")
+	Do ConvertData.Add("BodemKleur","ItemKB")
 	Do ConvertData.Add("CorpusBreedte","ItemCB")
-	Do ConvertData.Add("ZijwandVerhogingType","ItemBX", "Set Output = $Case(Input, ""NoGallery"":""ZR"",  ""SimpleGallery"":""ER"", ""DesignElement"":""INSCHF"", :Input)")
+	Do ConvertData.Add("MinTolerantieOpIB","ItemMinTolerantieOpIB")
+	Do ConvertData.Add("ZijwandVerhogingType","ItemBX", "Set Output = $Case(Input, ""NoGallery"":""ZR"",  ""SimpleGallery"":""ER"", ""DesignElement"":""INSCHF"")")
 	Do ConvertData.Add("Draagkracht","ItemDK")
 	Do ConvertData.Add("HeeftZijstabilisering","ItemSB")
-	Do ConvertData.Add("VerpakkingType","ItemVPK", "Set Output = $Case(Input, ""Pallet"":""P"", ""Procom"":""O"", ""Probox"":""X"", ""V1"":""S"", :""S"")")
+	Do ConvertData.Add("VerpakkingType","ItemVPK", "Set Output = $Case(Input, ""Pallet"":""P"", ""VHoss"":""B"",""Procom"":""O"", ""Probox"":""X"", ""V1"":""S"")")
 	Do ConvertData.Add("GeleiderTechnologie","ItemBM", "Set Output = $Select(Input = ""B"" : ""I"", 1:Input)")
-	Do ConvertData.Add("LadeKleur","ItemKL", "Set Output = $Select(Input = ""TS"" : ""BZ"", 1:Input)")
-	Do ConvertData.Add("LadeKleur","ItemRK", "Set Output = $Select(Input = ""TS"" : ""BZ"", 1:Input)")
+	Do ConvertData.Add("LadeKleur","ItemKL")
+	Do ConvertData.Add("DesignCode","ItemDC")
 	
-	
 	Quit ConvertData
 ]]></Implementation>
 </Method>