Index: APPS/Halux/Machine/BodemSlicing.cls.xml
===================================================================
diff -u -r31661 -r31664
--- APPS/Halux/Machine/BodemSlicing.cls.xml	(.../BodemSlicing.cls.xml)	(revision 31661)
+++ APPS/Halux/Machine/BodemSlicing.cls.xml	(.../BodemSlicing.cls.xml)	(revision 31664)
@@ -7,9 +7,43 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>BalkDimensies:DOM.PM.Maatwerk.LadeInfo.dto.BalkDimensies</FormalSpec>
 <ReturnType>APPS.Halux.Machine.BodemSlicing.enu.Uitlijning</ReturnType>
-<Implementation><![CDATA[	quit $select(BalkDimensies.Lengte>BalkDimensies.Breedte:"S",1:"P")
+<Implementation><![CDATA[	quit $select(BalkDimensies.Breedte<BalkDimensies.Lengte:##class(APPS.Halux.Machine.BodemSlicing.enu.Uitlijning).Parallel(),1:##class(APPS.Halux.Machine.BodemSlicing.enu.Uitlijning).Square())
 ]]></Implementation>
 </Method>
+
+<Method name="GeefSliceType">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BalkDimensies:DOM.PM.Maatwerk.LadeInfo.dto.BalkDimensies</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit "E"
+]]></Implementation>
+</Method>
+
+<Method name="GeefBreedteZaagsnede">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[	quit 3.2
+]]></Implementation>
+</Method>
+
+<Method name="GeefProfileringVerlies">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[	quit 12.6
+]]></Implementation>
+</Method>
+
+<Method name="GeefKalibratieVerlies">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+	#define Front	1
+	#define Rug 	1 
+	#define KalibratieBreedte 2.5
+	
+	quit ( $$$Front + $$$Rug ) * $$$KalibratieBreedte
+]]></Implementation>
+</Method>
 </Class>