Index: DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml
===================================================================
diff -u -r65473 -r65751
--- DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml	(.../TbxKenmerken.cls.xml)	(revision 65473)
+++ DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml	(.../TbxKenmerken.cls.xml)	(revision 65751)
@@ -51,7 +51,7 @@
 	Set DotNetKenmerken.RugwandMateriaal		= TbxKenmerken.RugwandMateriaal
 	Set DotNetKenmerken.SpoelbakBinnenzijwandHoogte = ..GeefSpoelbakBinnenzijwandHoogte()
 	Set DotNetKenmerken.Toepassing 				= TbxKenmerken.Toepassing
-	Set DotNetKenmerken.VerpakkingType			= TbxKenmerken.VerpakkingType
+	Set DotNetKenmerken.VerpakkingType			= ..GeefVerpakkingType()
 	Set DotNetKenmerken.VoorwandVerhogingType 	= TbxKenmerken.VoorwandVerhogingType
 	Set DotNetKenmerken.ZijkantHoogte 			= TbxKenmerken.ZijkantHoogte
 	Set DotNetKenmerken.ZijwandVerhogingInschuifElementKleur 	= ..GeefZijwandVerhogingInschuifElementKleur()
@@ -94,7 +94,7 @@
 	#dim SpoelbakBinnenzijwandHoogte As %String = ""
 	
 	If ..TbxKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).SifonType3() {
-		Set SpoelbakBinnenzijwandHoogte = "M"
+		Set SpoelbakBinnenzijwandHoogte = ""											//Deze property zou voor SY3 niet mogen gebruikt worden, er moet gekeken worden naar de RugHoogte
 	} 
 	
 	If ..TbxKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).Spoelbak() {
@@ -124,12 +124,12 @@
 	Set UitsparingDataObject.AantalUitsparingen = ""
 				
 	If $$$Not(..TbxKenmerken.LegacyKenmerken.ItemSPZK = "") {
-		#dim UitsparingData As %List = $ListFromString(..LegacyKenmerken.ItemSPZK, ";")
+		#dim UitsparingData As %List = $ListFromString(..TbxKenmerken.LegacyKenmerken.ItemSPZK, ";")
 		
-		Set UitsparingDataObject.AantalUitsparingen = $$$If($ListLength(UitsparingData)= 6, 2, 1)
+		Set UitsparingDataObject.AantalUitsparingen = $$$If($ListLength(UitsparingData)= 6, ##class(DOM.PM.enu.AantalUitsparingen).Dubbel(), ##class(DOM.PM.enu.AantalUitsparingen).Enkel())
 		
 		If ..TbxKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).SifonType3() {
-			If (UitsparingDataObject.AantalUitsparingen = 1) {
+			If (UitsparingDataObject.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Enkel()) {
 				Set UitsparingDataObject.RugDeelX = $ListGet(UitsparingData,2)
 				Set UitsparingDataObject.RugDeelY = $ListGet(UitsparingData,3)
 				Set UitsparingDataObject.UitsparingZ1 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..TbxKenmerken.RugHoogte, "240", $ListGet(UitsparingData,4), "SY3")
@@ -141,6 +141,8 @@
 				Set UitsparingDataObject.UitsparingZ2 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..TbxKenmerken.RugHoogte, "240", $ListGet(UitsparingData,6), "SY3")
 			}
 		} ElseIf ..TbxKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).Spoelbak() {
+			Set UitsparingDataObject.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Enkel()
+			
 			If $Piece(..LegacyKenmerken.ItemSPZK,";",1)="S2" { 											//Smal
 				Set UitsparingDataObject.RugDeelX = 147
 				Set UitsparingDataObject.RugDeelY = 147
@@ -167,6 +169,8 @@
 <Implementation><![CDATA[
 	#dim LadeDesignCode As %String = ""
 	
+	//Gma = "ma"
+	//ladedesigncode F en MA moeten hier ook nog ergens in worden verwerkt
 	If ..GeefLadeDesign() = "OMT" {
 		Set LadeDesignCode = "MT"
 	} Else {
@@ -194,6 +198,29 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVerpakkingType">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim VerpakkingType As %String = ""
+	
+	If (..TbxKenmerken.VerpakkingType = "P") {
+	 	Set VerpakkingType = "Pallet"
+	} ElseIf (..TbxKenmerken.VerpakkingType = "X") {
+		Set VerpakkingType = "Probox"
+	} ElseIf (..TbxKenmerken.VerpakkingType = "C") {
+		Set VerpakkingType = "Procom"
+	} ElseIf (..TbxKenmerken.VerpakkingType = "S") {
+		Set VerpakkingType = "V1"
+	} ElseIf (..TbxKenmerken.VerpakkingType = "A") {
+		Set VerpakkingType = "VHoss"
+	} Else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("VerpakkingType '"_..TbxKenmerken.VerpakkingType_"' is niet gekend in de DomNaarDotNetconvertor."))
+	}
+	
+	Quit VerpakkingType
+]]></Implementation>
+</Method>
+
 <Method name="GeefZijwandVerhogingInschuifElementKleur">
 <Private>1</Private>
 <Implementation><![CDATA[