Index: vhUnitTest/APPS/EDI/common/impl/LegacyConverter/ConverteerLegacyNaarEdi/Test.cls.xml
===================================================================
diff -u -r39497 -r39696
--- vhUnitTest/APPS/EDI/common/impl/LegacyConverter/ConverteerLegacyNaarEdi/Test.cls.xml	(.../Test.cls.xml)	(revision 39497)
+++ vhUnitTest/APPS/EDI/common/impl/LegacyConverter/ConverteerLegacyNaarEdi/Test.cls.xml	(.../Test.cls.xml)	(revision 39696)
@@ -33,7 +33,7 @@
 	Set TeConverterenProduct.ItemSB = "0"
 	Set TeConverterenProduct.ItemCB = "800"
 	Set TeConverterenProduct.ItemFB = "D"
-	Set TeConverterenProduct.ItemBX = "800"
+	Set TeConverterenProduct.ItemBX = "INSCHF"
 	Set TeConverterenProduct.ItemBM = "TOB"
 	Set TeConverterenProduct.ItemWD = "16"
 	Set TeConverterenProduct.ItemASM = "G"
@@ -46,7 +46,7 @@
 	Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New()
 	#dim GeconverteerdProduct As APPS.EDI.common.dto.v001.LadeTBX = ProductConverter.ConverteerLegacyNaarEdi(TeConverterenProduct)
 	
-	Do $$$AssertEquals(GeconverteerdProduct.BodemKleur,"TS")
+	Do $$$AssertEquals(GeconverteerdProduct.BodemKleur,##class(DOM.PM.enu.TBXBodemKleur).Terrazwart())
 	Do $$$AssertEquals(GeconverteerdProduct.LadeDiepte,"300")
 	Do $$$AssertEquals(GeconverteerdProduct.HeeftDwarsverdeling,$$$True)
 	Do $$$AssertEquals(GeconverteerdProduct.AantalDwarsverdelingen,##class(DOM.PM.enu.TBXDwarsverdeling).Een())
@@ -62,7 +62,7 @@
 	Do $$$AssertEquals(GeconverteerdProduct.GeleiderTechnologie,##class(DOM.PM.enu.TBXGeleiderTechnologie).TiponBlumotion())
 	Do $$$AssertEquals(GeconverteerdProduct.HeeftMat,$$$True)
 	Do $$$AssertEquals(GeconverteerdProduct.MatKleur,##class(DOM.PM.enu.MATKleur).Antraciet())
-	Do $$$AssertEquals(GeconverteerdProduct.LadeKleur,"TS")
+	Do $$$AssertEquals(GeconverteerdProduct.LadeKleur,##class(DOM.PM.enu.TBXLadeKleur).BZ())
 	Do $$$AssertEquals(GeconverteerdProduct.LadeHoogte,##class(DOM.PM.enu.TBXLadehoogte).M())
 ]]></Implementation>
 </Method>
@@ -200,6 +200,7 @@
 <Method name="Test: ProductFeatures: Zijwandverhoging: FG8 -&gt; Glas">
 <Implementation><![CDATA[
 	#dim TeConverterenProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).StandaardLade()
+	Set TeConverterenProduct.ItemBX = "INSCHF"
 	Set TeConverterenProduct.ItemKV = "FG8"
 	
 	Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New()
@@ -214,6 +215,7 @@
 <Method name="Test: ProductFeatures: Zijwandverhoging: FZ8 -&gt; Glas verzuurd">
 <Implementation><![CDATA[
 	#dim TeConverterenProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).StandaardLade()
+	Set TeConverterenProduct.ItemBX = "INSCHF"
 	Set TeConverterenProduct.ItemKV = "FZ8"
 	
 	Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New()
@@ -228,6 +230,7 @@
 <Method name="Test: ProductFeatures: Zijwandverhoging: ALU_punt_MG -&gt; Alu Grijs Metallic">
 <Implementation><![CDATA[
 	#dim TeConverterenProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).StandaardLade()
+	Set TeConverterenProduct.ItemBX = "INSCHF"
 	Set TeConverterenProduct.ItemKV = "ALU.MG"
 	
 	Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New()
@@ -242,6 +245,7 @@
 <Method name="Test: ProductFeatures: Zijwandverhoging: ALU_punt_SW -&gt; Alu Zijdewit">
 <Implementation><![CDATA[
 	#dim TeConverterenProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).StandaardLade()
+	Set TeConverterenProduct.ItemBX = "INSCHF"
 	Set TeConverterenProduct.ItemKV = "ALU.SW"
 	
 	Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New()
@@ -256,6 +260,7 @@
 <Method name="Test: ProductFeatures: Zijwandverhoging: ALU_punt_BZ -&gt; Alu Terrazwart">
 <Implementation><![CDATA[
 	#dim TeConverterenProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).StandaardLade()
+	Set TeConverterenProduct.ItemBX = "INSCHF"
 	Set TeConverterenProduct.ItemKV = "ALU.BZ"
 	
 	Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New()
@@ -367,6 +372,40 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Spoelbaklade SA">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).StandaardLade()
+	Set TeConverterenProduct.ItemSPZK = "SA"
+	Set TeConverterenProduct.ItemLT = "MS2"
+	
+	Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New()
+	#dim GeconverteerdProduct As APPS.EDI.common.dto.v001.LadeTBX = ProductConverter.ConverteerLegacyNaarEdi(TeConverterenProduct)
+	
+	Do $$$AssertEquals(GeconverteerdProduct.Klasse,"SP2")
+	Do $$$AssertEquals(GeconverteerdProduct.UitsparingDataAantalUitsparingen,1)
+	Do $$$AssertEquals(GeconverteerdProduct.UitsparingDataBreedteX,143)
+	Do $$$AssertEquals(GeconverteerdProduct.UitsparingDataBreedteZ1,314)
+	Do $$$AssertEquals(GeconverteerdProduct.UitsparingDataBreedteY,143)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Spoelbaklade M">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).StandaardLade()
+	Set TeConverterenProduct.ItemSPZK = "M;170;170"
+	Set TeConverterenProduct.ItemLT = "MS2"
+	
+	Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New()
+	#dim GeconverteerdProduct As APPS.EDI.common.dto.v001.LadeTBX = ProductConverter.ConverteerLegacyNaarEdi(TeConverterenProduct)
+	
+	Do $$$AssertEquals(GeconverteerdProduct.Klasse,"SP2")
+	Do $$$AssertEquals(GeconverteerdProduct.UitsparingDataAantalUitsparingen,1)
+	Do $$$AssertEquals(GeconverteerdProduct.UitsparingDataBreedteX,170)
+	Do $$$AssertEquals(GeconverteerdProduct.UitsparingDataBreedteZ1,260)
+	Do $$$AssertEquals(GeconverteerdProduct.UitsparingDataBreedteY,170)
+]]></Implementation>
+</Method>
+
 <Method name="Test: Sifonlade 1 smalle uitsparing 150">
 <Implementation><![CDATA[
 	#dim TeConverterenProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).StandaardLade()
Index: APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml
===================================================================
diff -u -r39682 -r39696
--- APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml	(.../LegacyNaarEdi.cls.xml)	(revision 39682)
+++ APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml	(.../LegacyNaarEdi.cls.xml)	(revision 39696)
@@ -242,25 +242,62 @@
 	
 	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 $$$Not($Piece(Product.ItemSPZK,";",1)["M"){
-		Set TBXProduct.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
-	} Else {
+	If ..Klasse = ##class(DOM.PM.enu.TBXToepassing).SifonTypeBlum() {
+		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 $$$Not($Piece(Product.ItemSPZK,";",1)["M"){
+			Set TBXProduct.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
+		} Else {
+			Set TBXProduct.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
+		}
+	} ElseIf ..Klasse = ##class(DOM.PM.enu.TBXToepassing).Spoelbak() {
 		Set TBXProduct.TussenrugMateriaal = ##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()
+		} 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()
+		} 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()
+		} 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 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)
+]]></Implementation>
+</Method>
+
 <Method name="GeefConvertDataTBX">
 <Private>1</Private>
 <ReturnType>TECH.ObjectUtils.ObjectConvertData</ReturnType>
Index: ECONimpl/PM/Maatwerk/EdiConverter/EdiNaarEcon.cls.xml
===================================================================
diff -u -r39669 -r39696
--- ECONimpl/PM/Maatwerk/EdiConverter/EdiNaarEcon.cls.xml	(.../EdiNaarEcon.cls.xml)	(revision 39669)
+++ ECONimpl/PM/Maatwerk/EdiConverter/EdiNaarEcon.cls.xml	(.../EdiNaarEcon.cls.xml)	(revision 39696)
@@ -178,13 +178,15 @@
 		Set Eigenschappen.ZijwandVerhogingMateriaal = $Case(Product.ZijwandVerhogingMateriaal,
 															##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas():##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementMateriaal).Glas(),
 															##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium():##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementMateriaal).Aluminium(),
-															##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Geen():##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementMateriaal).ZonderVerhoging())
+															##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Geen():##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementMateriaal).ZonderVerhoging(),
+															:##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementMateriaal).ZonderVerhoging())
 		Set Eigenschappen.ZijwandVerhogingInschuifelementKleur = $Case(Product.ZijwandVerhogingKleur,
 														##class(DOM.PM.enu.TBXZijwandVerhogingKleur).MetallicGrijs():##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementKleur).AluMetallicGrijs(),
 														##class(DOM.PM.enu.TBXZijwandVerhogingKleur).ZijdeWit():##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementKleur).AluZijdeWit(),
 														##class(DOM.PM.enu.TBXZijwandVerhogingKleur).TerraZwart():##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementKleur).AluTerraZwart(),
 														##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatHelder8mm():##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementKleur).FloatHelder8mm(),
-														##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatGezuurd8mm():##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementKleur).FloatGezuurd8mm())
+														##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatGezuurd8mm():##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementKleur).FloatGezuurd8mm(),
+														:"")
 		
 	}
 ]]></Implementation>