Index: APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml
===================================================================
diff -u -r39219 -r39402
--- APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml	(.../LegacyNaarEdi.cls.xml)	(revision 39219)
+++ APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml	(.../LegacyNaarEdi.cls.xml)	(revision 39402)
@@ -85,13 +85,16 @@
 <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>
@@ -101,11 +104,15 @@
 <FormalSpec><![CDATA[Product:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy,&TBXProduct:APPS.EDI.common.dto.v001.LadeTBX]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If Product.ItemFS = "A" {
+	If ##class(TECH.StringUtils).Equals(Product.ItemFS,"A","") {
 		Set TBXProduct.FrontOndersteuningAantal = ""
-	}
-	If ##class(TECH.StringUtils).Equals(Product.ItemFS, 1,2,3){
+		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>
@@ -118,23 +125,19 @@
 		Set TBXProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas()
 		Set TBXProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatHelder8mm()
 		Set TBXProduct.ZijwandVerhogingType = "DesignElement"
-	}
-	If Product.ItemKV = "FZ8"{
+	} ElseIf 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"{
+	} ElseIf 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"{
+	} ElseIf 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"{
+	} ElseIf 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"
@@ -177,23 +180,19 @@
 		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" {
+	} 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	
-	}
-	If Product.ItemASM = "WI.AF" {
+	} 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	
-	}
-	If Product.ItemASM = "G" {
+	} 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	
-	}
-	If Product.ItemASM = "" {
+	} ElseIf Product.ItemASM = "" {
 		Set TBXProduct.MatKleur = ""
 		Set TBXProduct.MatMateriaal = ""
 		Set TBXProduct.HeeftMat = $$$False	
@@ -207,11 +206,9 @@
 <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>