Index: DOM/PM/TBX/impl/TOBSetEenheidBepaler.cls.xml
===================================================================
diff -u -r34201 -r38952
--- DOM/PM/TBX/impl/TOBSetEenheidBepaler.cls.xml	(.../TOBSetEenheidBepaler.cls.xml)	(revision 34201)
+++ DOM/PM/TBX/impl/TOBSetEenheidBepaler.cls.xml	(.../TOBSetEenheidBepaler.cls.xml)	(revision 38952)
@@ -8,8 +8,11 @@
 <FormalSpec>DesignCode:%String,LadeHoogte:%String,LadeDiepte:%Numeric,InternBreedte:%Numeric,Draagkracht:%Numeric</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	#define KB400mm   368
+	#define KB450mm   418
 	#define KB500mm   468
-	#define KB600mm   568
+	#define KB550mm   518
+	#define KB800mm   768
 	
 	If (DesignCode '= ##class(DOM.PM.enu.TBXDesigncode).Antaro()) {
 		Do ..GooiTOBEenheidExceptie("Ongeldige DesignCode '"_DesignCode_"'.")
@@ -27,17 +30,33 @@
 		// Hoogte M en N 
 		If ##class(TECH.StringUtils).Equals(LadeHoogte, "M", "N") {
 			
-			If ##class(TECH.StringUtils).Equals(LadeDiepte, 270, 300) {					If InternBreedte < $$$KB600mm 	{ Set TOBIdentificatie = "3030" }
+			If ##class(TECH.StringUtils).Equals(LadeDiepte, 270, 300) {					If InternBreedte < $$$KB500mm 	{ Set TOBIdentificatie = "3030" }
 																						Else 							{ Set TOBIdentificatie = "3130" }
 			}
 
-			ElseIf##class(TECH.StringUtils).Equals(LadeDiepte, 350, 400, 450, 500) {	Set TOBIdentificatie = "3330"
+			ElseIf ##class(TECH.StringUtils).Equals(LadeDiepte, 350) {					Set TOBIdentificatie = "3330"
 			}
 			
-			ElseIf ##class(TECH.StringUtils).Equals(LadeDiepte, 550, 600) {				If InternBreedte < $$$KB500mm 	{ Set TOBIdentificatie = "3330" }
+			ElseIf ##class(TECH.StringUtils).Equals(LadeDiepte, 400) {					If InternBreedte < $$$KB800mm 	{ Set TOBIdentificatie = "3330" }
 																						Else 							{ Set TOBIdentificatie = "3530" }
 			}
 			
+			ElseIf ##class(TECH.StringUtils).Equals(LadeDiepte, 450) {					If InternBreedte < $$$KB450mm 	{ Set TOBIdentificatie = "3330" }
+																						Else 							{ Set TOBIdentificatie = "3530" }
+			}
+			
+			ElseIf ##class(TECH.StringUtils).Equals(LadeDiepte, 500) {					If InternBreedte < $$$KB400mm 	{ Set TOBIdentificatie = "3330" }
+																						Else 							{ Set TOBIdentificatie = "3530" }
+			}
+			
+			ElseIf ##class(TECH.StringUtils).Equals(LadeDiepte, 550) {					If InternBreedte < $$$KB800mm 	{ Set TOBIdentificatie = "3530" }
+																						Else 							{ Set TOBIdentificatie = "3560" }
+			}
+			
+			ElseIf ##class(TECH.StringUtils).Equals(LadeDiepte, 600) {					If InternBreedte < $$$KB550mm 	{ Set TOBIdentificatie = "3530" }
+																						Else 							{ Set TOBIdentificatie = "3560" }
+			}
+			
 			ElseIf ##class(TECH.StringUtils).Equals(LadeDiepte, 650) {					Set TOBIdentificatie = "3560"
 			}
 			
@@ -52,13 +71,28 @@
 			If ##class(TECH.StringUtils).Equals(LadeDiepte, 270, 300) {					Set TOBIdentificatie = "3130"
 			}
 			
-			ElseIf##class(TECH.StringUtils).Equals(LadeDiepte, 350, 400, 450) {			Set TOBIdentificatie = "3330"
+			ElseIf ##class(TECH.StringUtils).Equals(LadeDiepte, 350) {					Set TOBIdentificatie = "3330"
 			}
 			
-			ElseIf ##class(TECH.StringUtils).Equals(LadeDiepte, 500, 550, 600) {		If InternBreedte < $$$KB500mm 	{ Set TOBIdentificatie = "3330" }
+			ElseIf ##class(TECH.StringUtils).Equals(LadeDiepte, 400) {					If InternBreedte < $$$KB800mm 	{ Set TOBIdentificatie = "3330" }
 																						Else 							{ Set TOBIdentificatie = "3530" }
 			}
 			
+			ElseIf ##class(TECH.StringUtils).Equals(LadeDiepte, 450) {					If InternBreedte < $$$KB450mm 	{ Set TOBIdentificatie = "3330" }
+																						Else 							{ Set TOBIdentificatie = "3530" }
+			}
+			
+			ElseIf ##class(TECH.StringUtils).Equals(LadeDiepte, 500) {					Set TOBIdentificatie = "3530"
+			}
+			
+			ElseIf ##class(TECH.StringUtils).Equals(LadeDiepte, 550) {					If InternBreedte < $$$KB800mm 	{ Set TOBIdentificatie = "3530" }
+																						Else 							{ Set TOBIdentificatie = "3560" }
+			}
+			
+			ElseIf ##class(TECH.StringUtils).Equals(LadeDiepte, 600) {					If InternBreedte < $$$KB550mm 	{ Set TOBIdentificatie = "3530" }
+																						Else 							{ Set TOBIdentificatie = "3560" }
+			}
+			
 			ElseIf ##class(TECH.StringUtils).Equals(LadeDiepte, 650) {					Set TOBIdentificatie = "3560"
 			}
 			
@@ -73,16 +107,24 @@
 			If ##class(TECH.StringUtils).Equals(LadeDiepte, 270, 300) {					Set TOBIdentificatie = "3130"
 			}
 			
-			ElseIf ##class(TECH.StringUtils).Equals(LadeDiepte, 350, 400, 450, 500) {	If InternBreedte < $$$KB500mm 	{ Set TOBIdentificatie = "3330" }
+			ElseIf ##class(TECH.StringUtils).Equals(LadeDiepte, 350) {					If InternBreedte < $$$KB450mm 	{ Set TOBIdentificatie = "3330" }
 																						Else 							{ Set TOBIdentificatie = "3530" }
 			}
 			
-			ElseIf##class(TECH.StringUtils).Equals(LadeDiepte, 500, 550) {				Set TOBIdentificatie = "3530"
+			ElseIf ##class(TECH.StringUtils).Equals(LadeDiepte, 400) {					If InternBreedte < $$$KB400mm 	{ Set TOBIdentificatie = "3330" }
+																						Else 							{ Set TOBIdentificatie = "3530" }
 			}
 			
-			ElseIf ##class(TECH.StringUtils).Equals(LadeDiepte, 650) {					Set TOBIdentificatie = "3560"
+			ElseIf ##class(TECH.StringUtils).Equals(LadeDiepte, 450, 500) {				Set TOBIdentificatie = "3530"
 			}
 			
+			ElseIf ##class(TECH.StringUtils).Equals(LadeDiepte, 550) {					If InternBreedte < $$$KB550mm 	{ Set TOBIdentificatie = "3530" }
+																						Else 							{ Set TOBIdentificatie = "3560" }
+			}
+			
+			ElseIf ##class(TECH.StringUtils).Equals(LadeDiepte, 600, 650) {				Set TOBIdentificatie = "3560"
+			}
+			
 			Else {
 				Do ..GooiTOBEenheidExceptie("Ongeldige LadeDiepte '"_LadeDiepte_"'.")
 			}