Index: APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml
===================================================================
diff -u -r39192 -r67097
--- APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml	(.../LegacyNaarEdi.cls.xml)	(revision 39192)
+++ APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml	(.../LegacyNaarEdi.cls.xml)	(revision 67097)
@@ -8,6 +8,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="TbxMatCodeConverter">
+<Type>APPS.EDI.common.impl.LegacyConverter.TbxMatCodeConverter</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="LadeType">
 <Type>%String</Type>
 <Private>1</Private>
@@ -35,6 +40,8 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..ObjectConverter = ##class(TECH.ObjectUtils.impl.ObjectConverter).%New()
+	Set ..TbxMatCodeConverter = ##class(APPS.EDI.common.impl.LegacyConverter.TbxMatCodeConverter).%New()
+
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -55,15 +62,38 @@
 	Do ..ConvertInschuifElement(Product,TBXProduct)
 	Do ..ConvertCorpusWandDikte(Product,TBXProduct)
 	Do ..ConvertLadeType(Product,TBXProduct)
-	Do ..ConvertMat(Product,TBXProduct)
+	Do ..TbxMatCodeConverter.ConverteerLegacyMatCodeNaarEdi(Product,TBXProduct)
 	Do ..ConvertGreepEnMeenemer(Product,TBXProduct)
 	Do ..ConvertVerlaagdeRug(Product,TBXProduct)
 	Do ..ConvertUitsparingen(Product,TBXProduct)
+	Do ..ConvertNietMeeleveren(Product,TBXProduct)
+	Do ..ConvertVerpakkingZonderOnderdelen(Product,TBXProduct)
+	Do ..ConvertDraagKracht(Product,TBXProduct)
+	Do ..ConverteerProductieWijze(Product,TBXProduct)
+
+	Set TBXProduct.RugwandMateriaal = Product.ItemRugwandMateriaal
+	Set TBXProduct.PlaatMateriaal = Product.ItemPlaatMateriaal
 	
 	Quit TBXProduct
 ]]></Implementation>
 </Method>
 
+<Method name="ConvertDraagKracht">
+<FormalSpec><![CDATA[Product:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy,&TBXProduct:APPS.EDI.common.dto.v001.LadeTBX]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ((Product.ItemDK="50") && (Product.ItemBM="I")) {
+		If (+Product.ItemLD >= +##class(DOM.PM.enu.TBXLadeDiepte).LadeDiepte450()) {
+			Set TBXProduct.Draagkracht = ##class(DOM.PM.enu.TBXDraagkracht).Draagkracht65()
+		} Else {
+			Set TBXProduct.Draagkracht = ##class(DOM.PM.enu.TBXDraagkracht).Draagkracht30()
+		}
+	} Else {
+		Set TBXProduct.Draagkracht = Product.ItemDK
+	}
+]]></Implementation>
+</Method>
+
 <Method name="ConvertDwarsverdelingen">
 <FormalSpec><![CDATA[Product:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy,&TBXProduct:APPS.EDI.common.dto.v001.LadeTBX]]></FormalSpec>
 <Private>1</Private>
@@ -84,60 +114,87 @@
 <Implementation><![CDATA[
 	If Product.ItemOPVL = "L" {
 		Set TBXProduct.HeeftOpvullijstLinks = $$$True
-	}
-	If Product.ItemOPVL = "R" {
+		Set TBXProduct.HeeftOpvullijstRechts = $$$False
+	} ElseIf Product.ItemOPVL = "R" {
+		Set TBXProduct.HeeftOpvullijstLinks = $$$False
 		Set TBXProduct.HeeftOpvullijstRechts = $$$True
-	}
-	If Product.ItemOPVL = "L+R" {
+	} ElseIf Product.ItemOPVL = "L+R" {
 		Set TBXProduct.HeeftOpvullijstLinks = $$$True
 		Set TBXProduct.HeeftOpvullijstRechts = $$$True
+	} ElseIf Product.ItemOPVL = "" {
+		Set TBXProduct.HeeftOpvullijstLinks = $$$False
+		Set TBXProduct.HeeftOpvullijstRechts = $$$False
 	}
 	Set TBXProduct.OpvullijstKleur = Product.ItemKLROPVL
 ]]></Implementation>
 </Method>
 
+<Method name="ConverteerProductieWijze">
+<FormalSpec><![CDATA[Product:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy,&TBXProduct:APPS.EDI.common.dto.v001.LadeTBX]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set TBXProduct.ProductieWijze = $Case(Product.ItemOnderdelenSpeciaal,
+		##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="ConvertFrontOndersteuningAantal">
 <FormalSpec><![CDATA[Product:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy,&TBXProduct:APPS.EDI.common.dto.v001.LadeTBX]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If Product.ItemFS = "A" {
+	If (..LadeType = "B") {
+		// Voor de veiligheid (bvb. indien Product.ItemFS onterecht op "1" staat 
 		Set TBXProduct.FrontOndersteuningAantal = ""
+		Set TBXProduct.FrontOndersteuningType = ##class(DOM.PM.enu.TBXFrontOndersteuningType).Auto()
+	} Else {
+		If ##class(TECH.StringUtils).Equals(Product.ItemFS,"A","") {
+			Set TBXProduct.FrontOndersteuningAantal = ""
+			Set TBXProduct.FrontOndersteuningType = ##class(DOM.PM.enu.TBXFrontOndersteuningType).Auto()
+		} ElseIf Product.ItemFS = "HS" {
+			Set TBXProduct.FrontOndersteuningAantal = ""
+			Set TBXProduct.FrontOndersteuningType = ##class(DOM.PM.enu.TBXFrontOndersteuningType).FrontSteunMetSchroeven()
+		} ElseIf ##class(TECH.StringUtils).Equals(Product.ItemFS, 1,2,3){
+			Set TBXProduct.FrontOndersteuningAantal = Product.ItemFS
+			Set TBXProduct.FrontOndersteuningType = ##class(DOM.PM.enu.TBXFrontOndersteuningType).FrontStabilisator()
+		}
 	}
-	If ##class(TECH.StringUtils).Equals(Product.ItemFS, 1,2,3){
-		Set TBXProduct.FrontOndersteuningAantal = Product.ItemFS
-	}
 ]]></Implementation>
 </Method>
 
 <Method name="ConvertInschuifElement">
 <FormalSpec><![CDATA[Product:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy,&TBXProduct:APPS.EDI.common.dto.v001.LadeTBX]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If Product.ItemKV = "FG8"{
-		Set TBXProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas()
-		Set TBXProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatHelder8mm()
+	If Product.ItemBX = "INSCHF" {
 		Set TBXProduct.ZijwandVerhogingType = "DesignElement"
+		If Product.ItemKV = "FG8"{
+			Set TBXProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas()
+			Set TBXProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatHelder8mm()
+		} ElseIf Product.ItemKV = "FZ8"{
+			Set TBXProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas()
+			Set TBXProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatGezuurd8mm()
+		} ElseIf Product.ItemKV = "ALU.MG"{
+			Set TBXProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium()
+			Set TBXProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).MetallicGrijs()
+		} ElseIf Product.ItemKV = "ALU.BZ"{
+			Set TBXProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium()
+			Set TBXProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).TerraZwart()
+		} ElseIf Product.ItemKV = "ALU.SW"{
+			Set TBXProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium()
+			Set TBXProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).ZijdeWit()
+		} Else {
+			Set TBXProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Geen()
+		}
 	}
-	If Product.ItemKV = "FZ8"{
-		Set TBXProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas()
-		Set TBXProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatGezuurd8mm()
-		Set TBXProduct.ZijwandVerhogingType = "DesignElement"
-	}
-	If Product.ItemKV = "ALU.MG"{
-		Set TBXProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium()
-		Set TBXProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).MetallicGrijs()
-		Set TBXProduct.ZijwandVerhogingType = "DesignElement"
-	}
-	If Product.ItemKV = "ALU.BZ"{
-		Set TBXProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium()
-		Set TBXProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).TerraZwart()
-		Set TBXProduct.ZijwandVerhogingType = "DesignElement"
-	}
-	If Product.ItemKV = "ALU.SW"{
-		Set TBXProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium()
-		Set TBXProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).ZijdeWit()
-		Set TBXProduct.ZijwandVerhogingType = "DesignElement"
-	}
+	
+	Set TBXProduct.ZijwandVerhogingType = $Case(Product.ItemBX, "ZR":"NoGallery",  "ER":"SimpleGallery", "INSCHF":"DesignElement", :"NoGallery")
 ]]></Implementation>
 </Method>
 
@@ -148,11 +205,15 @@
 	If Product.ItemWD = "B" {
 		Set TBXProduct.IsBinnenbreedte = $$$True
 	} Else {
-		If ##class(TECH.StringUtils).Equals(Product.ItemWD, 16,18,19) {
-			Set TBXProduct.CorpusWandDikte = Product.ItemWD
-			Set TBXProduct.IsBinnenbreedte = $$$False
-		}
+		Set TBXProduct.CorpusWandDikte = Product.ItemWD
+		Set TBXProduct.IsBinnenbreedte = $$$False
 	}
+	
+	// MinTolerantieOpIB : op de Legacy-laag bestaat de property "ItemMTIB" nog niet, dus voorlopig alleen default waarde (geen afwijkend gedrag) 
+	Set TBXProduct.MinTolerantieOpIB = Product.ItemMinTolerantieOpIB
+	If Product.ItemMinTolerantieOpIB = "" {
+		Set TBXProduct.MinTolerantieOpIB = $$$If(Product.ItemWD > 0, 1, 0)
+	}
 ]]></Implementation>
 </Method>
 
@@ -168,49 +229,15 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ConvertMat">
-<FormalSpec><![CDATA[Product:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy,&TBXProduct:APPS.EDI.common.dto.v001.LadeTBX]]></FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	If Product.ItemASM = "Z" {
-		Set TBXProduct.MatKleur = ##class(DOM.PM.enu.MATKleur).ZwartAntislip() 
-		Set TBXProduct.MatMateriaal = ##class(DOM.PM.enu.MATMateriaal).Antislip()
-		Set TBXProduct.HeeftMat = $$$True	
-	}
-	If Product.ItemASM = "ZW.AF" {
-		Set TBXProduct.MatKleur = ##class(DOM.PM.enu.MATKleur).AntiSlipFiberZwart() 
-		Set TBXProduct.MatMateriaal = ##class(DOM.PM.enu.MATMateriaal).AntislipFiber()
-		Set TBXProduct.HeeftMat = $$$True	
-	}
-	If Product.ItemASM = "WI.AF" {
-		Set TBXProduct.MatKleur = ##class(DOM.PM.enu.MATKleur).AntiSlipFiberWit() 
-		Set TBXProduct.MatMateriaal = ##class(DOM.PM.enu.MATMateriaal).AntislipFiber()
-		Set TBXProduct.HeeftMat = $$$True	
-	}
-	If Product.ItemASM = "G" {
-		Set TBXProduct.MatKleur = ##class(DOM.PM.enu.MATKleur).Antraciet() 
-		Set TBXProduct.MatMateriaal = ##class(DOM.PM.enu.MATMateriaal).Antislip()
-		Set TBXProduct.HeeftMat = $$$True	
-	}
-	If Product.ItemASM = "" {
-		Set TBXProduct.MatKleur = ""
-		Set TBXProduct.MatMateriaal = ""
-		Set TBXProduct.HeeftMat = $$$False	
-	}
-]]></Implementation>
-</Method>
-
 <Method name="ConvertGreepEnMeenemer">
 <FormalSpec><![CDATA[Product:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy,&TBXProduct:APPS.EDI.common.dto.v001.LadeTBX]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	If ##class(TECH.StringUtils).Equals(Product.ItemBGRP,"Z","R","X") {
 		Set TBXProduct.GreepEnMeenemer = "No"
-	}
-	If Product.ItemBGRP = "G" {
+	} ElseIf Product.ItemBGRP = "G" {
 		Set TBXProduct.GreepEnMeenemer = "Handle"
-	}
-	If Product.ItemBGRP = "M" {
+	} ElseIf Product.ItemBGRP = "M" {
 		Set TBXProduct.GreepEnMeenemer = "HandleAndLatch"
 	}
 ]]></Implementation>
@@ -238,40 +265,139 @@
 	
 	Set TBXProduct.UitsparingDataAantalUitsparingen = $$$If($ListLength(UitsparingData)=6,2,1)
 	
-	If (TBXProduct.UitsparingDataAantalUitsparingen = 1) {
-		Set TBXProduct.UitsparingDataBreedteX = $ListGet(UitsparingData,2)
-		Set TBXProduct.UitsparingDataBreedteY = $ListGet(UitsparingData,3)
-		Set TBXProduct.UitsparingDataBreedteZ1 = $ListGet(UitsparingData,4)
-	} Else {
-		Set TBXProduct.UitsparingDataBreedteX = $ListGet(UitsparingData,2)
-		Set TBXProduct.UitsparingDataBreedteY = $ListGet(UitsparingData,3)
-		Set TBXProduct.UitsparingDataBreedteM = $ListGet(UitsparingData,4)
-		Set TBXProduct.UitsparingDataBreedteZ1 = $ListGet(UitsparingData,5)
-		Set TBXProduct.UitsparingDataBreedteZ2 = $ListGet(UitsparingData,6)
+	If ..Klasse = ##class(DOM.PM.enu.TBXToepassing).SifonType3() {
+		Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
+		Set TBXProduct.TussenrugMateriaal = ""
+		
+		If (TBXProduct.UitsparingDataAantalUitsparingen = 1) {
+			Set TBXProduct.UitsparingDataBreedteX = $ListGet(UitsparingData,2)
+			Set TBXProduct.UitsparingDataBreedteY = $ListGet(UitsparingData,3)
+			Set TBXProduct.UitsparingDataBreedteZ1 = $ListGet(UitsparingData,4)
+		} Else {
+			Set TBXProduct.UitsparingDataBreedteX = $ListGet(UitsparingData,2)
+			Set TBXProduct.UitsparingDataBreedteY = $ListGet(UitsparingData,3)
+			Set TBXProduct.UitsparingDataBreedteM = $ListGet(UitsparingData,4)
+			Set TBXProduct.UitsparingDataBreedteZ1 = $ListGet(UitsparingData,5)
+			Set TBXProduct.UitsparingDataBreedteZ2 = $ListGet(UitsparingData,6)
+		}
+	} ElseIf ..Klasse = ##class(DOM.PM.enu.TBXToepassing).SifonType2() {
+		Set TBXProduct.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
+		If (TBXProduct.UitsparingDataAantalUitsparingen = 1) {
+			Set TBXProduct.UitsparingDataBreedteX = $ListGet(UitsparingData,2)
+			Set TBXProduct.UitsparingDataBreedteY = $ListGet(UitsparingData,3)
+			Set TBXProduct.UitsparingDataBreedteZ1 = $ListGet(UitsparingData,4)
+			If ##class(TECH.StringUtils).Equals(TBXProduct.UitsparingDataBreedteZ1,"150","250") && $$$Not($$$StartsWith($ListGet(UitsparingData,1),"M")){
+				Set TBXProduct.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
+			}
+			Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
+		} Else {
+			Set TBXProduct.UitsparingDataBreedteX = $ListGet(UitsparingData,2)
+			Set TBXProduct.UitsparingDataBreedteY = $ListGet(UitsparingData,3)
+			Set TBXProduct.UitsparingDataBreedteM = $ListGet(UitsparingData,4)
+			Set TBXProduct.UitsparingDataBreedteZ1 = $ListGet(UitsparingData,5)
+			Set TBXProduct.UitsparingDataBreedteZ2 = $ListGet(UitsparingData,6)
+			If (##class(TECH.StringUtils).Equals(TBXProduct.UitsparingDataBreedteZ1,"150","250") && ##class(TECH.StringUtils).Equals(TBXProduct.UitsparingDataBreedteZ2,"150","250")) && $$$Not($$$StartsWith($ListGet(UitsparingData,1),"M")){
+				Set TBXProduct.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
+			}
+			Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
+		}
+	} ElseIf ..Klasse = ##class(DOM.PM.enu.TBXToepassing).Spoelbak() {
+		Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
+		If $Piece(Product.ItemSPZK,";",1)="SA" {
+			Set TBXProduct.UitsparingDataBreedteX = 143
+			Set TBXProduct.UitsparingDataBreedteY = 143
+			Set TBXProduct.UitsparingDataBreedteZ1 = ..GeefInterneBreedte(Product) - 143 - 143
+			//Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
+		} ElseIf $Piece(Product.ItemSPZK,";",1)="S2" {
+			Set TBXProduct.UitsparingDataBreedteX = 147
+			Set TBXProduct.UitsparingDataBreedteY = 147
+			Set TBXProduct.UitsparingDataBreedteZ1 = ..GeefInterneBreedte(Product) - 147 - 147
+			//Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
+		} ElseIf $Piece(Product.ItemSPZK,";",1)="B2" {
+			Set TBXProduct.UitsparingDataBreedteX = 197
+			Set TBXProduct.UitsparingDataBreedteY = 197
+			Set TBXProduct.UitsparingDataBreedteZ1 = ..GeefInterneBreedte(Product) - 197 - 197
+			//Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
+		} Else {
+			Set TBXProduct.UitsparingDataBreedteX = $ListGet(UitsparingData,2)
+			Set TBXProduct.UitsparingDataBreedteY = $ListGet(UitsparingData,3)
+			Set TBXProduct.UitsparingDataBreedteZ1 = ..GeefInterneBreedte(Product) - $ListGet(UitsparingData,2) - $ListGet(UitsparingData,3)
+		}
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="GeefInterneBreedte">
+<FormalSpec>Product:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim DFLMinTolerantie As %Integer = Product.ItemMinTolerantieOpIB   ; TODO: variabele renamen, want niet meer DFL :-P 
+	If DFLMinTolerantie = "" {
+		Set DFLMinTolerantie = ##class(BL.PR.GA.TandemBox).DFLMinTolerantie(Product.ItemWD)
+	}
+	#dim AantalOpvullijsten As %Integer = 0
+	Set:Product.ItemOPVL="L+R" AantalOpvullijsten = 2
+	Set:##class(TECH.StringUtils).Equals(Product.ItemOPVL,"L","R") AantalOpvullijsten = 1
+	Quit Product.ItemCB-(2*Product.ItemWD)-(AantalOpvullijsten*25)-DFLMinTolerantie
+]]></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("ItemLD","LadeDiepte")
-	Do ConvertData.Add("ItemKB","BodemKleur","Set Output = $Select(Input = ""BZ"" : ""TS"", 1:Input)")
+	Do ConvertData.Add("ItemKB","BodemKleur")
 	Do ConvertData.Add("ItemCB","CorpusBreedte")
-	Do ConvertData.Add("ItemDK","Draagkracht")
 	Do ConvertData.Add("ItemSB","HeeftZijstabilisering")
 	Do ConvertData.Add("ItemFB","FrontBevestiging")
-	Do ConvertData.Add("ItemBX","ZijwandVerhogingType", "Set Output = $Case(Input, ""ZR"":""NoGallery"",  ""ER"":""SimpleGallery"", ""INSCHF"":""DesignElement"", :""NoGallery"")")
 	Do ConvertData.Add("ItemBM","GeleiderTechnologie", "Set Output = $Select(Input = ""I"" : ""B"", 1:Input)")
-	Do ConvertData.Add("ItemKL","LadeKleur", "Set Output = $Select(Input = ""BZ"" : ""TS"", 1:Input)")
-	Do ConvertData.Add("ItemVPK","VerpakkingType", "Set Output = $Case(Input, ""P"":""Pallet"",  ""X"":""Probox"", ""S"":""V1"", :""V1"")")
+	Do ConvertData.Add("ItemKL","LadeKleur")
+	Do ConvertData.Add("ItemVPK","VerpakkingType", "Set Output = $Case(Input, ""P"":""Pallet"",  ""X"":""Probox"", ""Y"":""Probox"", ""S"":""V1"",""O"":""Procom"",""C"":""Procom"",""A"":""VHoss"",""B"":""VHoss"", :""V1"")")
+	Do ConvertData.Add("ItemDC","DesignCode")
 	
 	Quit ConvertData
 ]]></Implementation>
 </Method>
 
+<Method name="ConvertVerpakkingZonderOnderdelen">
+<FormalSpec><![CDATA[Product:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy,&TBXProduct:APPS.EDI.common.dto.v001.LadeTBX]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ##class(TECH.StringUtils).Equals(Product.ItemVPK,"A","C","Y","Z"){
+		Do TBXProduct.NietMeeleveren.InsertOrdered("NMFB")
+		Do TBXProduct.NietMeeleveren.InsertOrdered("NMCP")
+		Do TBXProduct.NietMeeleveren.InsertOrdered("NMAK")
+		Do TBXProduct.NietMeeleveren.InsertOrdered("NMRL")
+		Do TBXProduct.NietMeeleveren.InsertOrdered("NMTOBSET")
+		Do TBXProduct.NietMeeleveren.InsertOrdered("NMTOBTOEB")
+		Do TBXProduct.NietMeeleveren.InsertOrdered("NMTOBSTG")
+		Do TBXProduct.NietMeeleveren.InsertOrdered("NMBDS")
+		Do TBXProduct.NietMeeleveren.InsertOrdered("NMOVL")
+		Do TBXProduct.NietMeeleveren.InsertOrdered("NMBS")
+		;Do TBXProduct.NietMeeleveren.InsertOrdered("NMASM")   ; Matten WEL meeleveren, zelfs bij "Verpak Zonder Onderdelen"  
+		Do TBXProduct.NietMeeleveren.InsertOrdered("NMSPDL")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ConvertNietMeeleveren">
+<FormalSpec><![CDATA[Product:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy,&TBXProduct:APPS.EDI.common.dto.v001.LadeTBX]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set NietMeeleverenIterator = ##class(TECH.ListIterator).%New(##class(TECH.ListUtils).PiecesToList(##class(TECH.StringUtils).Sort(Product.NietMeeleveren),";"))
+
+	#dim NietMeeleveren As list of %String = ##class(%ListOfDataTypes).%New()	
+	While NietMeeleverenIterator.HasNext() {
+		Do NietMeeleveren.Insert(NietMeeleverenIterator.Next())
+	}
+	
+	Set TBXProduct.NietMeeleveren = NietMeeleveren
+]]></Implementation>
+</Method>
+
 <Method name="PeuterLadeCodeOpen">
 <FormalSpec>LCodeID:%String</FormalSpec>
 <Implementation><![CDATA[