Index: vhUnitTest/zTryout/WV/FPV1/DOM/impl/FlatpackV1Service/Demo.cls.xml
===================================================================
diff -u -r29821 -r29999
--- vhUnitTest/zTryout/WV/FPV1/DOM/impl/FlatpackV1Service/Demo.cls.xml	(.../Demo.cls.xml)	(revision 29821)
+++ vhUnitTest/zTryout/WV/FPV1/DOM/impl/FlatpackV1Service/Demo.cls.xml	(.../Demo.cls.xml)	(revision 29999)
@@ -71,7 +71,7 @@
 	#dim SlicedBodemInfo As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.BodemPlaat.SlicedBodemInfo = SlicedBodemBepaler.GeefSlicedBodemInfo(NettoAfgewerkteBodemBreedte,StapelbareBreedte,DraagPlaat)
 
 		Do $$$AssertEquals(NettoAfgewerkteBodemBreedte, 480)
-		Do $$$AssertEquals(SlicedBodemBepaler.MaxBreedteZichtkantSlice, 182)
+		Do $$$AssertEquals(SlicedBodemBepaler.GeefMaxBreedteZichtkantSlice(), 182)
 	
 	// De uiteindelijke uitkomst 
 	Do $$$AssertEquals(SlicedBodemInfo.NettoBreedteZichtkantSlice, 160)
Index: zTryout/WV/FPV1/DOM/impl/SlicedBodemBepaler.cls.xml
===================================================================
diff -u -r29817 -r29999
--- zTryout/WV/FPV1/DOM/impl/SlicedBodemBepaler.cls.xml	(.../SlicedBodemBepaler.cls.xml)	(revision 29817)
+++ zTryout/WV/FPV1/DOM/impl/SlicedBodemBepaler.cls.xml	(.../SlicedBodemBepaler.cls.xml)	(revision 29999)
@@ -39,32 +39,37 @@
 
 <Property name="MaxBreedteZichtkantSlice">
 <Description><![CDATA[
-Max breedte voor zichtkant van sliced bodemstuk --> deze moet private worden want niet relevant als output! ]]></Description>
+Max breedte voor zichtkant van sliced bodemstuk --> kan opgevraagd worden, maar behoort niet tot de SlicedBodemInfo ]]></Description>
 <Type>%Numeric</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="AantalSlices">
 <Description>
 Aantal slices = aantal stukken bodem (dus aantal clickverbindingen + 1) </Description>
 <Type>%Integer</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="Overmaat">
-<Description><![CDATA[
-Overmaat : totaal extra nodig voor zaagsnedes en click-verbindingen etc.  --> deze kan private worden want wellicht niet relevant als output! ]]></Description>
+<Description>
+Overmaat : totaal extra nodig voor zaagsnedes en click-verbindingen etc.</Description>
 <Type>%Numeric</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="NettoBreedteZichtkantSlice">
 <Description>
 Netto breedte voor zichtkant van sliced bodemstuk </Description>
 <Type>%Numeric</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="TotaalNodigeBreedte">
 <Description>
 Totaal nodige breedte om te kunnen slicen (of indien geen click-verbinding, dus 1 slice, dan toch een groefje trekken langs de zijkanten van de bodemplaat) </Description>
 <Type>%Numeric</Type>
+<Private>1</Private>
 </Property>
 
 <UDLText name="T">
@@ -109,6 +114,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefMaxBreedteZichtkantSlice">
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[	Quit ..MaxBreedteZichtkantSlice
+]]></Implementation>
+</Method>
+
 <Method name="BepaalMaxBreedteZichtkantSlice">
 <Private>1</Private>
 <Implementation><![CDATA[	Set ..MaxBreedteZichtkantSlice = ..MaxToegelatenSliceBreedte - ##class(TECH.Math).Ceil(..#AfmetingClickVerbinding)
Index: vhUnitTest/zTryout/WV/FPV1/DOM/impl/SlicedBodemBepaler/GeefSlicedBodemInfo/Test.cls.xml
===================================================================
diff -u -r29818 -r29999
--- vhUnitTest/zTryout/WV/FPV1/DOM/impl/SlicedBodemBepaler/GeefSlicedBodemInfo/Test.cls.xml	(.../Test.cls.xml)	(revision 29818)
+++ vhUnitTest/zTryout/WV/FPV1/DOM/impl/SlicedBodemBepaler/GeefSlicedBodemInfo/Test.cls.xml	(.../Test.cls.xml)	(revision 29999)
@@ -14,21 +14,21 @@
 	#dim MaxToegelatenBreedte As %Numeric = 190
 	
 	Set ..SlicedBodemBepaler = ##class(zTryout.WV.FPV1.DOM.impl.SlicedBodemBepaler).%New()
-	Do ..SlicedBodemBepaler.GeefSlicedBodemInfo(TotaleNettoBreedteSlices,MaxToegelatenBreedte)   ; voorlopig nog geen resultaat teruggeven, de properties zijn momenteel nog Public  :-P 
+	#dim SlicedBodemInfo As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.BodemPlaat.SlicedBodemInfo = ..SlicedBodemBepaler.GeefSlicedBodemInfo(TotaleNettoBreedteSlices,MaxToegelatenBreedte)
 	
-	#dim MaxBreedteZichtkantSlice As %Numeric = ..SlicedBodemBepaler.MaxBreedteZichtkantSlice
+	#dim MaxBreedteZichtkantSlice As %Numeric = ..SlicedBodemBepaler.GeefMaxBreedteZichtkantSlice()
 	Do $$$AssertEquals(MaxBreedteZichtkantSlice, 182)
 	
-	#dim AantalSlices As %Numeric = ..SlicedBodemBepaler.AantalSlices
+	#dim AantalSlices As %Numeric = SlicedBodemInfo.AantalSlices
 	Do $$$AssertEquals(AantalSlices, 3)
 
-	#dim Overmaat As %Numeric = ..SlicedBodemBepaler.Overmaat
+	#dim Overmaat As %Numeric = SlicedBodemInfo.Overmaat
 	Do $$$AssertEquals(Overmaat, 31)
 
-	#dim NettoBreedteZichtkantSlice As %Numeric = ..SlicedBodemBepaler.NettoBreedteZichtkantSlice
+	#dim NettoBreedteZichtkantSlice As %Numeric = SlicedBodemInfo.NettoBreedteZichtkantSlice
 	Do $$$AssertEquals(+$J(NettoBreedteZichtkantSlice,0,4), 173.3333)
 
-	#dim TotaalNodigeBreedte As %Numeric = ..SlicedBodemBepaler.TotaalNodigeBreedte
+	#dim TotaalNodigeBreedte As %Numeric = SlicedBodemInfo.TotaalNodigeBreedte
 	Do $$$AssertEquals(TotaalNodigeBreedte, 551)
 ]]></Implementation>
 </Method>
@@ -41,21 +41,21 @@
 	#dim MaxToegelatenBreedte As %Numeric = 600
 	
 	Set ..SlicedBodemBepaler = ##class(zTryout.WV.FPV1.DOM.impl.SlicedBodemBepaler).%New()
-	Do ..SlicedBodemBepaler.GeefSlicedBodemInfo(TotaleNettoBreedteSlices,MaxToegelatenBreedte)   ; voorlopig nog geen resultaat teruggeven, de properties zijn momenteel nog Public  :-P 
+	#dim SlicedBodemInfo As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.BodemPlaat.SlicedBodemInfo = ..SlicedBodemBepaler.GeefSlicedBodemInfo(TotaleNettoBreedteSlices,MaxToegelatenBreedte)
 	
-	#dim MaxBreedteZichtkantSlice As %Numeric = ..SlicedBodemBepaler.MaxBreedteZichtkantSlice
+	#dim MaxBreedteZichtkantSlice As %Numeric = ..SlicedBodemBepaler.GeefMaxBreedteZichtkantSlice()
 	Do $$$AssertEquals(MaxBreedteZichtkantSlice, 592)
 	
-	#dim AantalSlices As %Numeric = ..SlicedBodemBepaler.AantalSlices
+	#dim AantalSlices As %Numeric = SlicedBodemInfo.AantalSlices
 	Do $$$AssertEquals(AantalSlices, 1)
 
-	#dim Overmaat As %Numeric = ..SlicedBodemBepaler.Overmaat
+	#dim Overmaat As %Numeric = SlicedBodemInfo.Overmaat
 	Do $$$AssertEquals(Overmaat, 5)
 
-	#dim NettoBreedteZichtkantSlice As %Numeric = ..SlicedBodemBepaler.NettoBreedteZichtkantSlice
+	#dim NettoBreedteZichtkantSlice As %Numeric = SlicedBodemInfo.NettoBreedteZichtkantSlice
 	Do $$$AssertEquals(+$J(NettoBreedteZichtkantSlice,0,4), 520)
 
-	#dim TotaalNodigeBreedte As %Numeric = ..SlicedBodemBepaler.TotaalNodigeBreedte
+	#dim TotaalNodigeBreedte As %Numeric = SlicedBodemInfo.TotaalNodigeBreedte
 	Do $$$AssertEquals(TotaalNodigeBreedte, 525)
 ]]></Implementation>
 </Method>