Index: APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler/PlaatDimensieStringBepaler.cls.xml
===================================================================
diff -u -r30625 -r34446
--- APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler/PlaatDimensieStringBepaler.cls.xml	(.../PlaatDimensieStringBepaler.cls.xml)	(revision 30625)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler/PlaatDimensieStringBepaler.cls.xml	(.../PlaatDimensieStringBepaler.cls.xml)	(revision 34446)
@@ -1,13 +1,23 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.common.EtiketInfoBepaler.PlaatDimensieStringBepaler">
-<Super>TECH.RegisteredObject</Super>
+<Super>DOM.PM.Maatwerk.TAX.impl.Base,DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel.Verwerker</Super>
 
 <Property name="OpdeelzaagDimensieBepaler">
 <Type>APPS.Halux.Machine.OpdeelZaag.impl.DimensieBepaler</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="DimensieString">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BalkDimensies">
+<Type>DOM.PM.Maatwerk.LadeInfo.dto.BalkDimensies</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -23,10 +33,38 @@
 <FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
 <Implementation><![CDATA[
 	#dim Plaat As DOM.PM.Maatwerk.LadeInfo.Plaat = LadeOnderdeel.GeefPlaten().GetAt(1)
-	#dim Dimensie As DOM.PM.Maatwerk.LadeInfo.dto.BalkDimensies = ..OpdeelzaagDimensieBepaler.GeefDimensie(Plaat)
-	Quit Dimensie.Breedte_"x"_Dimensie.Lengte
+	
+	Set ..BalkDimensies = ..OpdeelzaagDimensieBepaler.GeefDimensie(Plaat)
+	
+	Do ..Verwerk(LadeOnderdeel.GeefRol())
+	
+	Quit ..DimensieString
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkBodem">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..DimensieString = ..BalkDimensies.Breedte _ "x" _ ..BalkDimensies.Lengte
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkFront">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..DimensieString = ..BalkDimensies.Breedte _ "x" _ ..BalkDimensies.Lengte
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkRug">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..DimensieString = ..BalkDimensies.Breedte _ "x" _ ..BalkDimensies.Lengte
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkZijkant">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..DimensieString = ..BalkDimensies.Breedte _ "x" _ ..BalkDimensies.Lengte
+]]></Implementation>
+</Method>
 </Class>