Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/BodemPlaatBewerktHalffabItemPostProcessor.cls.xml
===================================================================
diff -u -r31602 -r31603
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/BodemPlaatBewerktHalffabItemPostProcessor.cls.xml	(.../BodemPlaatBewerktHalffabItemPostProcessor.cls.xml)	(revision 31602)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/BodemPlaatBewerktHalffabItemPostProcessor.cls.xml	(.../BodemPlaatBewerktHalffabItemPostProcessor.cls.xml)	(revision 31603)
@@ -49,7 +49,7 @@
 		Do OvermaatPerBewerkteDimensie.SetAt(..SlicedBodemInfo.Overmaat, TeBewerkenDimensie)
 	}
 	Else {
-		;Set ..SlicedBodemInfo = ..GeefSlicedBodemInfoVoorNietGesliceteBodem(NettoAfgewerkteBodemBreedte)
+		Set ..SlicedBodemInfo = ..GeefSlicedBodemInfoVoorNietGesliceteBodem(NettoAfgewerkteBodemBreedte)
 		;Do OvermaatPerBewerkteDimensie.SetAt(..SlicedBodemInfo.Overmaat, TeBewerkenDimensie)
 	}
 	
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HalffabItem/BodemPlaat.cls.xml
===================================================================
diff -u -r29472 -r31603
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HalffabItem/BodemPlaat.cls.xml	(.../BodemPlaat.cls.xml)	(revision 29472)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HalffabItem/BodemPlaat.cls.xml	(.../BodemPlaat.cls.xml)	(revision 31603)
@@ -7,6 +7,15 @@
 <Type>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.BodemPlaat.SlicedBodemInfo</Type>
 </Property>
 
+<Method name="SlicedBodemInfoGet">
+<Implementation><![CDATA[
+	If $$$Not($IsObject(r%SlicedBodemInfo)) {
+		Set r%SlicedBodemInfo = ..MaakSlicedBodemInfoIndienGeenVerwerking()
+	}
+	Quit r%SlicedBodemInfo
+]]></Implementation>
+</Method>
+
 <Method name="GeefAantalSlices">
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
@@ -19,6 +28,48 @@
 <Implementation><![CDATA[	Quit ..GeefAantalSlices() - 1
 ]]></Implementation>
 </Method>
+
+<Method name="GeefBreedteOnbewerkteBodemPlaat">
+<Description>
+Stemas C machine : veldnaam = BasePanelWidth </Description>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[	Quit ..SlicedBodemInfo.TotaalNodigeBreedte
+]]></Implementation>
+</Method>
+
+<Method name="GeefNettoBreedteZichtkantSlice">
+<Description>
+Stemas C machine : veldnaam = SliceWidth 
+Deze mag ook opgevraagd worden voor niet-geslicete bodems </Description>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[	Quit ..SlicedBodemInfo.NettoBreedteZichtkantSlice
+]]></Implementation>
+</Method>
+
+<Method name="GeefNettoBreedteAfgewerkteBodemPlaat">
+<Private>1</Private>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[
+	#dim TeBewerkenDimensie = ##class(DOM.PM.enu.BewerkingDimensie).Breedte()
+	Quit ..GeefBewerkteDimensie(TeBewerkenDimensie)
+]]></Implementation>
+</Method>
+
+<Method name="MaakSlicedBodemInfoIndienGeenVerwerking">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.BodemPlaat.SlicedBodemInfo</ReturnType>
+<Implementation><![CDATA[
+	#dim NettoBreedteAfgewerkteBodemPlaat As %Numeric = ..GeefNettoBreedteAfgewerkteBodemPlaat()
+
+	Set SlicedBodemInfo = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.BodemPlaat.SlicedBodemInfo).%New()
+	Set SlicedBodemInfo.AantalSlices = 1
+	Set SlicedBodemInfo.Overmaat = 0
+	Set SlicedBodemInfo.TotaalNodigeBreedte = NettoBreedteAfgewerkteBodemPlaat   ; + Overmaat (0) 
+	Set SlicedBodemInfo.NettoBreedteZichtkantSlice = NettoBreedteAfgewerkteBodemPlaat
+	Set SlicedBodemInfo.DraagPlaat = ""
+	Quit SlicedBodemInfo
+]]></Implementation>
+</Method>
 </Class>