Index: vhUnitTest/DOM/PM/TBX/impl/TOBSetEenheidBepaler/BepaalEenheidIdentificatie/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/TBX/impl/TOBSetEenheidBepaler/BepaalEenheidIdentificatie/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/TBX/impl/TOBSetEenheidBepaler/BepaalEenheidIdentificatie/Test.cls.xml	(revision 33909)
@@ -0,0 +1,83 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.TBX.impl.TOBSetEenheidBepaler.BepaalEenheidIdentificatie.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="TOBSetEenheidBepaler">
+<Type>DOM.PM.TBX.impl.TOBSetEenheidBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..TOBSetEenheidBepaler = ##class(DOM.PM.TBX.impl.TOBSetEenheidBepaler).%New()
+]]></Implementation>
+</Method>
+
+<Method name="TestCorrecteInput">
+<Implementation><![CDATA[
+	Do ..AssertTOBSetEenheid("A", "", "", "",65, "3560")
+
+	Do ..AssertTOBSetEenheid("A","N",270,567,30, "3030")
+	Do ..AssertTOBSetEenheid("A","N",270,568,30, "3130")
+	
+	Do ..AssertTOBSetEenheid("A","M",600,800,30, "3530")
+	Do ..AssertTOBSetEenheid("A","M",650, "",30, "3560")
+	
+	Do ..AssertTOBSetEenheid("A","K",600,800,30, "3530")
+	
+	Do ..AssertTOBSetEenheid("A","D",350,467,30, "3330")
+]]></Implementation>
+</Method>
+
+<Method name="TestOngeldigeDraagKrachtVerwachtExceptie">
+<Implementation><![CDATA[	Do ..AssertVerwachtExceptie("A","","","",50, "Draagkracht '50'")
+]]></Implementation>
+</Method>
+
+<Method name="TestOngeldigeLadeHoogteVerwachtExceptie">
+<Implementation><![CDATA[	Do ..AssertVerwachtExceptie("A","F","","",30, "LadeHoogte 'F'")
+]]></Implementation>
+</Method>
+
+<Method name="TestOngeldigeLadeDiepteVerwachtExceptie">
+<Implementation><![CDATA[	Do ..AssertVerwachtExceptie("A","M",520,"",30, "LadeDiepte '520'")
+]]></Implementation>
+</Method>
+
+<Method name="TestLegeInputVerwachtExceptie">
+<Implementation><![CDATA[	Do ..AssertVerwachtExceptie("","","","","", "DesignCode ''")
+]]></Implementation>
+</Method>
+
+<Method name="TestGeenAntaroVerwachtExceptie">
+<Implementation><![CDATA[	Do ..AssertVerwachtExceptie("I","","","","", "DesignCode 'I'")
+]]></Implementation>
+</Method>
+
+<Method name="AssertTOBSetEenheid">
+<FormalSpec>DesignCode:%String,LadeHoogte:%String,LadeDiepte:%Numeric,InternBreedte:%Numeric,DraagKracht:%Numeric,VerwachteIdentificatie:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim AssertOmschrijving As %String = "Var: "_DesignCode_" "_LadeHoogte_" "_LadeDiepte_" "_InternBreedte_" "_DraagKracht
+	Do $$$AssertEquals(..TOBSetEenheidBepaler.BepaalEenheidIdentificatie(DesignCode,LadeHoogte,LadeDiepte,InternBreedte,DraagKracht), VerwachteIdentificatie, AssertOmschrijving)
+]]></Implementation>
+</Method>
+
+<Method name="AssertVerwachtExceptie">
+<FormalSpec>DesignCode:%String,LadeHoogte:%String,LadeDiepte:%Numeric,InternBreedte:%Numeric,DraagKracht:%Numeric,VerwachteSubstring:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Error TBX-TOB EenheidIdentificatie: Ongeldige")
+	Do:($$$HasLength(VerwachteSubstring)) Substrings.Insert(VerwachteSubstring)
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
+	
+	Do ..TOBSetEenheidBepaler.BepaalEenheidIdentificatie(DesignCode,LadeHoogte,LadeDiepte,InternBreedte,DraagKracht)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/TBX/impl/TOBSetEenheidBepaler.cls.xml
===================================================================
diff -u
--- DOM/PM/TBX/impl/TOBSetEenheidBepaler.cls.xml	(revision 0)
+++ DOM/PM/TBX/impl/TOBSetEenheidBepaler.cls.xml	(revision 33909)
@@ -0,0 +1,113 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.TBX.impl.TOBSetEenheidBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="BepaalEenheidIdentificatie">
+<FormalSpec>DesignCode:%String,LadeHoogte:%String,LadeDiepte:%Numeric,InternBreedte:%Numeric,Draagkracht:%Numeric</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#define KB500mm   468
+	#define KB600mm   568
+	
+	If (DesignCode '= ##class(DOM.PM.enu.TBXDesigncode).Antaro()) {
+		Do ..GooiTOBEenheidExceptie("Ongeldige DesignCode '"_DesignCode_"'.")
+	}
+	
+	#dim TOBIdentificatie As %String = ""
+	
+	If (Draagkracht = ##class(DOM.PM.enu.TBXDraagkracht).Draagkracht65()) {
+		
+		Set TOBIdentificatie = "3560"
+		
+	}
+	ElseIf (Draagkracht = ##class(DOM.PM.enu.TBXDraagkracht).Draagkracht30()) {
+		
+		// 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" }
+																						Else 							{ Set TOBIdentificatie = "3130" }
+			}
+
+			ElseIf##class(TECH.StringUtils).Equals(LadeDiepte, 350, 400, 450, 500) {	Set TOBIdentificatie = "3330"
+			}
+			
+			ElseIf ##class(TECH.StringUtils).Equals(LadeDiepte, 550, 600) {				If InternBreedte < $$$KB500mm 	{ Set TOBIdentificatie = "3330" }
+																						Else 							{ Set TOBIdentificatie = "3530" }
+			}
+			
+			ElseIf ##class(TECH.StringUtils).Equals(LadeDiepte, 650) {					Set TOBIdentificatie = "3560"
+			}
+			
+			Else {
+				Do ..GooiTOBEenheidExceptie("Ongeldige LadeDiepte '"_LadeDiepte_"'.")
+			}
+			
+		}
+		// Hoogte K 
+		ElseIf ##class(TECH.StringUtils).Equals(LadeHoogte, "K") {
+			
+			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, 500, 550, 600) {		If InternBreedte < $$$KB500mm 	{ Set TOBIdentificatie = "3330" }
+																						Else 							{ Set TOBIdentificatie = "3530" }
+			}
+			
+			ElseIf ##class(TECH.StringUtils).Equals(LadeDiepte, 650) {					Set TOBIdentificatie = "3560"
+			}
+			
+			Else {
+				Do ..GooiTOBEenheidExceptie("Ongeldige LadeDiepte '"_LadeDiepte_"'.")
+			}
+			
+		}
+		// Hoogte C en D 
+		ElseIf ##class(TECH.StringUtils).Equals(LadeHoogte, "C", "D") {
+			
+			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" }
+																						Else 							{ Set TOBIdentificatie = "3530" }
+			}
+			
+			ElseIf##class(TECH.StringUtils).Equals(LadeDiepte, 500, 550) {				Set TOBIdentificatie = "3530"
+			}
+			
+			ElseIf ##class(TECH.StringUtils).Equals(LadeDiepte, 650) {					Set TOBIdentificatie = "3560"
+			}
+			
+			Else {
+				Do ..GooiTOBEenheidExceptie("Ongeldige LadeDiepte '"_LadeDiepte_"'.")
+			}
+			
+		}
+		Else {
+			Do ..GooiTOBEenheidExceptie("Ongeldige LadeHoogte '"_LadeHoogte_"'.")
+		}
+	}
+	Else {
+		Do ..GooiTOBEenheidExceptie("Ongeldige Draagkracht '"_Draagkracht_"'.")
+	}
+	
+	Quit TOBIdentificatie
+]]></Implementation>
+</Method>
+
+<Method name="GooiTOBEenheidExceptie">
+<FormalSpec>Omschrijving:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+ 
+	Do ##class(TECH.Exceptions.InvalidInputException).Throw("Error TBX-TOB EenheidIdentificatie: "_Omschrijving)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>