Index: DOM/PM/Maatwerk/Lade/LadeUtils/impl/TBXLadeUtils.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Lade/LadeUtils/impl/TBXLadeUtils.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Lade/LadeUtils/impl/TBXLadeUtils.cls.xml	(revision 72693)
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Lade.LadeUtils.impl.TBXLadeUtils">
+<Super>TECH.RegisteredObject,DOM.PM.Maatwerk.Lade.LadeUtils</Super>
+
+<Method name="GeefNettoZijkantHoogte">
+<FormalSpec>LadeHoogte:DOM.PM.enu.LBXLadeHoogte</FormalSpec>
+<ReturnType>%Double</ReturnType>
+<Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Nog niet geïmplementeerd."))
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeHoogteInMM">
+<FormalSpec>RugHoogte:%String</FormalSpec>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+	#dim Hoogte As %Decimal
+	
+	Set Hoogte = $CASE(RugHoogte, 
+		##class(DOM.PM.enu.TBXLadehoogte).X38():38,
+		##class(DOM.PM.enu.TBXLadehoogte).N():69,
+		##class(DOM.PM.enu.TBXLadehoogte).M():84,
+		##class(DOM.PM.enu.TBXLadehoogte).K():116,
+		##class(DOM.PM.enu.TBXLadehoogte).B():135,
+		##class(DOM.PM.enu.TBXLadehoogte).C():167,
+		##class(DOM.PM.enu.TBXLadehoogte).D():199,
+		:0
+	)
+		
+	Quit Hoogte
+]]></Implementation>
+</Method>
+
+<Method name="GeefFysiekeLadeHoogteMM">
+<FormalSpec>LadeHoogte:%String,IsBinnenlade:%Boolean</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	
+	#dim Hoogte as %Integer
+	If (IsBinnenlade) {
+		Set Hoogte = $Case(LadeHoogte,
+			##class(DOM.PM.enu.TBXLadehoogte).M():110,
+			##class(DOM.PM.enu.TBXLadehoogte).B():155,
+			##class(DOM.PM.enu.TBXLadehoogte).K():127,
+			##class(DOM.PM.enu.TBXLadehoogte).C():187,
+			##class(DOM.PM.enu.TBXLadehoogte).D():220,
+			:0)
+	} Else {
+		Set Hoogte = $Case(LadeHoogte,
+			##class(DOM.PM.enu.TBXLadehoogte).X38():38,
+			##class(DOM.PM.enu.TBXLadehoogte).N():70,
+			##class(DOM.PM.enu.TBXLadehoogte).M():87,
+			##class(DOM.PM.enu.TBXLadehoogte).B():140,
+			##class(DOM.PM.enu.TBXLadehoogte).K():117,
+			##class(DOM.PM.enu.TBXLadehoogte).C():167,
+			##class(DOM.PM.enu.TBXLadehoogte).D():205,
+			:0)
+	}
+		
+	Quit Hoogte
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>