Index: DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml
===================================================================
diff -u -r66573 -r67071
--- DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml	(.../TbxKenmerken.cls.xml)	(revision 66573)
+++ DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml	(.../TbxKenmerken.cls.xml)	(revision 67071)
@@ -26,9 +26,9 @@
 	Set DotNetKenmerken.VersieNr				= TbxKenmerken.GeefVersieNr()
 	Set DotNetKenmerken.GekoppeldeIngegevenKenmerken	=  TbxKenmerken.GekoppeldeIngegevenKenmerken
 	
-	Set DotNetKenmerken.BodemKleur		 		= TbxKenmerken.BodemKleur
+	Set DotNetKenmerken.BodemKleur		 		= $Extract(TbxKenmerken.BodemKleur,0,2)
 	Set DotNetKenmerken.Draagkracht 			= TbxKenmerken.Draagkracht
-	Set DotNetKenmerken.DwarsverdelingAantal	= TbxKenmerken.DwarsverdelingAantal
+	Set DotNetKenmerken.DwarsverdelingAantal	= $Select(TbxKenmerken.DwarsverdelingAantal = "":0, 1:TbxKenmerken.DwarsverdelingAantal)
 	Set DotNetKenmerken.FrontBevestiging 		= TbxKenmerken.FrontBevestiging
 	Set DotNetKenmerken.FrontOndersteuningAantal= $Select(TbxKenmerken.FrontOndersteuningAantal = "":0, 1:TbxKenmerken.FrontOndersteuningAantal)
 	Set DotNetKenmerken.FrontOndersteuningType	= TbxKenmerken.FrontOndersteuningType
@@ -38,26 +38,26 @@
 	Set DotNetKenmerken.HeeftOpvullijstRechts 	= TbxKenmerken.HeeftOpvullijstRechts
 	Set DotNetKenmerken.HeeftZijstabilisering	= TbxKenmerken.HeeftZijstabilisering
 	Set DotNetKenmerken.IsBinnenlade 			= TbxKenmerken.IsBinnenlade
-	Set DotNetKenmerken.InterneBreedte			= TbxKenmerken.InterneBreedte
+	Set DotNetKenmerken.InterneBreedte			= $Select(TbxKenmerken.InterneBreedte = "":..GeefInterneBreedte(), TbxKenmerken.InterneBreedte = 0:..GeefInterneBreedte(), 1:TbxKenmerken.InterneBreedte) //TbxKenmerken.InterneBreedte
 	Set DotNetKenmerken.LadeDesignCode			= ..GeefLadeDesignCode()
 	//Set DotNetKenmerken.LadeDesign 				= ..GeefLadeDesign()
 	Set DotNetKenmerken.LadeDiepte		 		= TbxKenmerken.LadeDiepte
 	Set DotNetKenmerken.LadeHoogte 				= TbxKenmerken.LadeHoogte
 	Set DotNetKenmerken.LadeKleur		 		= TbxKenmerken.LadeKleur
 	Set DotNetKenmerken.MinTolerantieOpIB		= ..LegacyKenmerken.ItemMinTolerantieOpIB
 	Set DotNetKenmerken.OpvullijstKleur		 	= TbxKenmerken.OpvullijstKleur
-	Set DotNetKenmerken.Plaatmateriaal			= TbxKenmerken.PlaatMateriaal // Deze komt nog niet correct door in de kenmerken wanneer PlaatMateriaal <> 'HS'
+	Set DotNetKenmerken.Plaatmateriaal			= $Select(TbxKenmerken.PlaatMateriaal = "":"HS", 1:TbxKenmerken.PlaatMateriaal) //TbxKenmerken.PlaatMateriaal // Deze komt nog niet correct door in de kenmerken wanneer PlaatMateriaal <> 'HS'
 	Set DotNetKenmerken.ProductieWijze			= $Select(TbxKenmerken.ProductieWijze = "":"V",1:TbxKenmerken.ProductieWijze)
 	Set DotNetKenmerken.RugHoogte 				= TbxKenmerken.RugHoogte
-	Set DotNetKenmerken.RugwandMateriaal		= TbxKenmerken.RugwandMateriaal
+	Set DotNetKenmerken.RugwandMateriaal		= $Select(TbxKenmerken.RugwandMateriaal = "":"Hout",1:TbxKenmerken.RugwandMateriaal) //TbxKenmerken.RugwandMateriaal
 	Set DotNetKenmerken.SpoelbakBinnenzijwandHoogte = ..GeefSpoelbakBinnenzijwandHoogte()
 	Set DotNetKenmerken.Toepassing 				= TbxKenmerken.Toepassing
 	Set DotNetKenmerken.VerpakkingType			= ..GeefVerpakkingType()
-	Set DotNetKenmerken.VoorwandVerhogingType 	= TbxKenmerken.VoorwandVerhogingType
+	Set DotNetKenmerken.VoorwandVerhogingType 	= ..GeefVoorwandVerhogingType() //TbxKenmerken.VoorwandVerhogingType 
 	Set DotNetKenmerken.ZijkantHoogte 			= TbxKenmerken.ZijkantHoogte
 	Set DotNetKenmerken.ZijwandVerhogingInschuifElementKleur 	= ..GeefZijwandVerhogingInschuifElementKleur()
 	Set DotNetKenmerken.ZijwandVerhogingMateriaal 				= TbxKenmerken.ZijwandVerhogingMateriaal
-	Set DotNetKenmerken.ZijwandVerhogingRelingKleur 			= ..LegacyKenmerken.ItemRK
+	Set DotNetKenmerken.ZijwandVerhogingRelingKleur 			= $Select(..LegacyKenmerken.ItemRK = "": TbxKenmerken.LadeKleur, 1:..LegacyKenmerken.ItemRK) //..LegacyKenmerken.ItemRK
 	Set DotNetKenmerken.ZijwandVerhogingType			 		= TbxKenmerken.ZijwandVerhogingType
 	
 	Set DotNetKenmerken.UitsparingData 			= ..GeefUitsparingData()	
@@ -67,6 +67,60 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVoorwandVerhogingType">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim VoorwandVerhogingType As %String = ""
+	
+	If (..TbxKenmerken.IsBinnenlade) {
+		If (##class(TECH.StringUtils).Equals(..TbxKenmerken.ZijwandVerhogingType, ##class(DOM.PM.enu.TBXZijwandVerhogingType).Zonder(), ##class(DOM.PM.enu.TBXZijwandVerhogingType).Laag(), "")) {
+			Set VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Vulling()	
+		} Else {
+			Set VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Reling()	
+		}
+	} Else {
+		Set VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Geen()	
+	}
+	
+	Quit VoorwandVerhogingType
+]]></Implementation>
+</Method>
+
+<Method name="GeefInterneBreedte">
+<Private>1</Private>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+	#dim InterneBreedte As %Decimal = 0
+	Set AantalOpvullijsten = 0
+	
+	Set:..TbxKenmerken.HeeftOpvullijstLinks AantalOpvullijsten = AantalOpvullijsten + 1
+	Set:..TbxKenmerken.HeeftOpvullijstRechts AantalOpvullijsten = AantalOpvullijsten + 1
+	
+	Set InterneBreedte = ..TbxKenmerken.GUIKenmerken.CorpusBreedte - (2 * ..TbxKenmerken.GUIKenmerken.CorpusWandDikte) - (AantalOpvullijsten * 25) - ..GeefMinTolerantieTBX()
+	
+	If (InterneBreedte < 1) {
+		Set InterneBreedte = ..TbxKenmerken.CorpusBinnenbreedte
+	}
+	
+	Quit InterneBreedte
+]]></Implementation>
+</Method>
+
+<Method name="GeefMinTolerantieTBX">
+<Private>1</Private>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[
+	/*
+	#dim MinTolerantieOpIB As %String = ..TbxKenmerken.GUIKenmerken.MinTolerantieOpIB
+	If ($$$Trim(..TbxKenmerken.GUIKenmerken.MinTolerantieOpIB) = "") {
+		Set MinTolerantieOpIB = $$$If( $$$Not(..TbxKenmerken.GUIKenmerken.IsBinnenbreedte) && (..TbxKenmerken.GUIKenmerken.CorpusWandDikte>0), 1, 0)
+	}
+	*/
+	Quit $$$If( $$$Not(..TbxKenmerken.GUIKenmerken.IsBinnenbreedte) && (..TbxKenmerken.GUIKenmerken.CorpusWandDikte>0), 1, 0)
+]]></Implementation>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 /*
@@ -133,39 +187,66 @@
 	Set UitsparingDataObject.UitsparingZ1 = ""
 	Set UitsparingDataObject.UitsparingZ2 = ""
 	Set UitsparingDataObject.AantalUitsparingen = ""
+
+	If ((..TbxKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).Spoelbak()) || (..TbxKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).SifonType3())) {				
+		If $$$Not(..TbxKenmerken.LegacyKenmerken.ItemSPZK = "") {
+			#dim UitsparingData As %List = $ListFromString(..TbxKenmerken.LegacyKenmerken.ItemSPZK, ";")
+			
+			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 = ##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")
+				} Else {
+					Set UitsparingDataObject.RugDeelX = $ListGet(UitsparingData,2)
+					Set UitsparingDataObject.RugDeelY = $ListGet(UitsparingData,3)
+					Set UitsparingDataObject.RugDeelM = $ListGet(UitsparingData,4)
+					Set UitsparingDataObject.UitsparingZ1 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..TbxKenmerken.RugHoogte, "240", $ListGet(UitsparingData,5), "SY3")
+					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
+					Set UitsparingDataObject.UitsparingZ1 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..TbxKenmerken.RugHoogte, "150", ..TbxKenmerken.InterneBreedte - 147 - 147, "SP2")
+				} ElseIf $Piece(..LegacyKenmerken.ItemSPZK,";",1)="B2" {									//Breed
+					Set UitsparingDataObject.RugDeelX = 197
+					Set UitsparingDataObject.RugDeelY = 197
+					Set UitsparingDataObject.UitsparingZ1 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..TbxKenmerken.RugHoogte, "150", ..TbxKenmerken.InterneBreedte - 197 - 197, "SP2")
+				} Else {																					//OpMaat
+					Set UitsparingDataObject.RugDeelX = $ListGet(UitsparingData,2)
+					Set UitsparingDataObject.RugDeelY = $ListGet(UitsparingData,3)
+					Set UitsparingDataObject.UitsparingZ1 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..TbxKenmerken.RugHoogte, "150", ..TbxKenmerken.InterneBreedte - $ListGet(UitsparingData,2) - $ListGet(UitsparingData,3), "SP2")
+				}
+			}
+		} Else {
+			Set UitsparingDataObject.RugDeelX = ..GeefRugX()
+			Set UitsparingDataObject.RugDeelY = ..GeefRugY()
+			
+			If (..TbxKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).Spoelbak()) {
+				Set UitsparingDataObject.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Enkel()
 				
-	If $$$Not(..TbxKenmerken.LegacyKenmerken.ItemSPZK = "") {
-		#dim UitsparingData As %List = $ListFromString(..TbxKenmerken.LegacyKenmerken.ItemSPZK, ";")
-		
-		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 = ##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")
-			} Else {
-				Set UitsparingDataObject.RugDeelX = $ListGet(UitsparingData,2)
-				Set UitsparingDataObject.RugDeelY = $ListGet(UitsparingData,3)
-				Set UitsparingDataObject.RugDeelM = $ListGet(UitsparingData,4)
-				Set UitsparingDataObject.UitsparingZ1 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..TbxKenmerken.RugHoogte, "240", $ListGet(UitsparingData,5), "SY3")
-				Set UitsparingDataObject.UitsparingZ2 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..TbxKenmerken.RugHoogte, "240", $ListGet(UitsparingData,6), "SY3")
+				If (UitsparingDataObject.RugDeelX = 147) {
+					Set UitsparingDataObject.UitsparingZ1 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..TbxKenmerken.RugHoogte, "150", ..TbxKenmerken.InterneBreedte - 147 - 147, "SP2")
+				} ElseIf (UitsparingDataObject.RugDeelX = 197) {
+					Set UitsparingDataObject.UitsparingZ1 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..TbxKenmerken.RugHoogte, "150", ..TbxKenmerken.InterneBreedte - 197 - 197, "SP2")
+				} Else {
+					Set UitsparingDataObject.UitsparingZ1 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..TbxKenmerken.RugHoogte, "150", ..TbxKenmerken.InterneBreedte - $ListGet(UitsparingData,2) - $ListGet(UitsparingData,3), "SP2")
+				}
+				
 			}
-		} 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
-				Set UitsparingDataObject.UitsparingZ1 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..TbxKenmerken.RugHoogte, "150", ..TbxKenmerken.InterneBreedte - 147 - 147, "SP2")
-			} ElseIf $Piece(..LegacyKenmerken.ItemSPZK,";",1)="B2" {									//Breed
-				Set UitsparingDataObject.RugDeelX = 197
-				Set UitsparingDataObject.RugDeelY = 197
-				Set UitsparingDataObject.UitsparingZ1 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..TbxKenmerken.RugHoogte, "150", ..TbxKenmerken.InterneBreedte - 197 - 197, "SP2")
-			} Else {																					//OpMaat
-				Set UitsparingDataObject.RugDeelX = $ListGet(UitsparingData,2)
-				Set UitsparingDataObject.RugDeelY = $ListGet(UitsparingData,3)
-				Set UitsparingDataObject.UitsparingZ1 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..TbxKenmerken.RugHoogte, "150", ..TbxKenmerken.InterneBreedte - $ListGet(UitsparingData,2) - $ListGet(UitsparingData,3), "SP2")
+			If (..TbxKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).SifonType3()) {
+				Set UitsparingDataObject.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Enkel()
+				
+				If (..HeeftDubbeleUitsparing()) {
+					Set UitsparingDataObject.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel()
+					Set UitsparingDataObject.RugDeelM = ..GeefRugM()
+					Set UitsparingDataObject.UitsparingZ2 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..TbxKenmerken.RugHoogte, "240", $ListGet(UitsparingData,6), "SY3")
+				}
 			}
 		}
 	}
@@ -174,16 +255,103 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefRugY">
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+	#dim RugY As %Decimal
+	
+	If ..HeeftDubbeleUitsparing(..TbxKenmerken) {
+		Set RugY = ..TbxKenmerken.InterneBreedte - ..TbxKenmerken.UitsparingPositie2 - ..TbxKenmerken.UitsparingBreedte2
+	}
+	Else {
+		Set RugY = ..TbxKenmerken.InterneBreedte - ..TbxKenmerken.UitsparingPositie1 - ..TbxKenmerken.UitsparingBreedte1
+	}
+	
+	Quit RugY
+]]></Implementation>
+</Method>
+
+<Method name="GeefRugM">
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[	Quit (..TbxKenmerken.InterneBreedte - ..GeefZ1() - ..GeefZ2() - ..GeefRugY() - ..GeefRugX())
+]]></Implementation>
+</Method>
+
+<Method name="GeefZ2">
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+	Quit:($$$Not(..HeeftDubbeleUitsparing())) 0
+	Quit (..GeefRugY() + ..TbxKenmerken.UitsparingBreedte2)
+]]></Implementation>
+</Method>
+
+<Method name="GeefZ1">
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+	Quit:($$$Not(..HeeftDubbeleUitsparing())) (..TbxKenmerken.InterneBreedte - ..GeefRugY() - ..GeefRugX())
+	Quit ..GeefZ2() + (..TbxKenmerken.UitsparingPositie2 - ..TbxKenmerken.UitsparingPositie1 - ..TbxKenmerken.UitsparingBreedte1)
+]]></Implementation>
+</Method>
+
+<Method name="GeefRugX">
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+	#dim RugX As %Decimal 
+	
+	If $$$Not(..HeeftDubbeleUitsparing())  {
+		Set RugX = ..GeefRugY() + ..TbxKenmerken.UitsparingBreedte1
+	} Else {
+		Set RugX =  ..GeefZ1() + ..TbxKenmerken.UitsparingBreedte1
+	}
+	
+	Quit RugX
+]]></Implementation>
+</Method>
+
+<Method name="HeeftDubbeleUitsparing">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..TbxKenmerken.UitsparingPositie2 > 0
+]]></Implementation>
+</Method>
+
 <Method name="GeefLadeDesignCode">
 <Private>1</Private>
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[
+	/*
     ; Deze voorlopig nog in comment laten staan (WV 24/11/2021) 
 	#dim DesignCodeId As %String = ..TbxKenmerken.ZijkantDesign
 	If (DesignCodeId = "") && ($IsObject(..TbxKenmerken.LegacyKenmerken)) {
 		Set DesignCodeId = ..TbxKenmerken.LegacyKenmerken.ItemDC
 	}
 	Quit DesignCodeId
+	*/
+	
+	/*
+	#dim DesignCodeId As %String = ""
+	If ($IsObject(..TbxKenmerken.LegacyKenmerken)) {
+		Set DesignCodeId = ..TbxKenmerken.LegacyKenmerken.ItemDC
+	} 
+	
+	If (DesignCodeId = "") {
+		Set DesignCodeId = ..TbxKenmerken.ZijkantDesign
+	}
+	
+	*/
+	
+	#dim DesignCodeId As %String = ""
+	If (..TbxKenmerken.LadeVariant = ##class(DOM.PM.enu.Variant).TandemboxMengvorm()) {
+		If (..TbxKenmerken.LadeKleur = "OG") {
+			Set DesignCodeId = "MT"
+		} Else {
+			Set DesignCodeId = "MA"
+		}	
+	} Else {
+		Set DesignCodeId = "A"
+	}
+	
+	Quit DesignCodeId
 ]]></Implementation>
 </Method>
 
@@ -213,14 +381,14 @@
 	 	Set VerpakkingType = "Pallet"
 	} ElseIf (##class(TECH.StringUtils).Equals(..TbxKenmerken.VerpakkingType, "X", "Y")) {
 		Set VerpakkingType = "Probox"
-	} ElseIf (..TbxKenmerken.VerpakkingType = "C") {
-		Set VerpakkingType = "Procom"
+	/*} ElseIf (..TbxKenmerken.VerpakkingType = "C") {
+		Set VerpakkingType = "Procom"*/
 	} ElseIf (..TbxKenmerken.VerpakkingType = "S") {
 		Set VerpakkingType = "V1"
 	} ElseIf (##class(TECH.StringUtils).Equals(..TbxKenmerken.VerpakkingType, "A", "B")) {
 		Set VerpakkingType = "VHoss"
 	} Else {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("VerpakkingType '"_..TbxKenmerken.VerpakkingType_"' is niet gekend in de DomNaarDotNetconvertor."))
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("VerpakkingType '"_..TbxKenmerken.VerpakkingType_"' is niet gekend in de DomNaarDotNetConvertor."))
 	}
 	
 	Quit VerpakkingType