Index: APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml
===================================================================
diff -u -r39950 -r67097
--- APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml	(.../LegacyNaarEdi.cls.xml)	(revision 39950)
+++ 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,13 +62,17 @@
 	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>
@@ -118,19 +129,41 @@
 ]]></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 ##class(TECH.StringUtils).Equals(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()
-	} 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()
+	} 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()
+		}
 	}
 ]]></Implementation>
 </Method>
@@ -175,6 +208,12 @@
 		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>
 
@@ -190,38 +229,6 @@
 ]]></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	
-	} ElseIf 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	
-	} ElseIf 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	
-	} ElseIf Product.ItemASM = "AN.AF" {
-		Set TBXProduct.MatKleur = ##class(DOM.PM.enu.MATKleur).AntiSlipFiberAntraciet() 
-		Set TBXProduct.MatMateriaal = ##class(DOM.PM.enu.MATMateriaal).AntislipFiber()
-		Set TBXProduct.HeeftMat = $$$True	
-	} ElseIf 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	
-	} ElseIf 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>
@@ -258,7 +265,22 @@
 	
 	Set TBXProduct.UitsparingDataAantalUitsparingen = $$$If($ListLength(UitsparingData)=6,2,1)
 	
-	If ..Klasse = ##class(DOM.PM.enu.TBXToepassing).SifonTypeBlum() {
+	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)
@@ -267,6 +289,7 @@
 			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)
@@ -276,24 +299,25 @@
 			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.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
+		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.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
+			//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.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
+			//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.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
+			//Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
 		} Else {
 			Set TBXProduct.UitsparingDataBreedteX = $ListGet(UitsparingData,2)
 			Set TBXProduct.UitsparingDataBreedteY = $ListGet(UitsparingData,3)
@@ -308,10 +332,14 @@
 <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)
+	Quit Product.ItemCB-(2*Product.ItemWD)-(AantalOpvullijsten*25)-DFLMinTolerantie
 ]]></Implementation>
 </Method>
 
@@ -327,7 +355,8 @@
 	Do ConvertData.Add("ItemFB","FrontBevestiging")
 	Do ConvertData.Add("ItemBM","GeleiderTechnologie", "Set Output = $Select(Input = ""I"" : ""B"", 1:Input)")
 	Do ConvertData.Add("ItemKL","LadeKleur")
-	Do ConvertData.Add("ItemVPK","VerpakkingType", "Set Output = $Case(Input, ""P"":""Pallet"",  ""X"":""Probox"", ""S"":""V1"",""O"":""Procom"",""C"":""Procom"",""A"":""VHoss"",""B"":""VHoss"", :""V1"")")
+	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>
@@ -348,7 +377,8 @@
 		Do TBXProduct.NietMeeleveren.InsertOrdered("NMBDS")
 		Do TBXProduct.NietMeeleveren.InsertOrdered("NMOVL")
 		Do TBXProduct.NietMeeleveren.InsertOrdered("NMBS")
-		Do TBXProduct.NietMeeleveren.InsertOrdered("NMASM")		
+		;Do TBXProduct.NietMeeleveren.InsertOrdered("NMASM")   ; Matten WEL meeleveren, zelfs bij "Verpak Zonder Onderdelen"  
+		Do TBXProduct.NietMeeleveren.InsertOrdered("NMSPDL")
 	}
 ]]></Implementation>
 </Method>