Index: APPS/common/impl/StockNiveauService.cls.xml
===================================================================
diff -u -r29059 -r33085
--- APPS/common/impl/StockNiveauService.cls.xml	(.../StockNiveauService.cls.xml)	(revision 29059)
+++ APPS/common/impl/StockNiveauService.cls.xml	(.../StockNiveauService.cls.xml)	(revision 33085)
@@ -1,11 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.common.impl.StockNiveauService">
-<ClassType/>
 <IncludeCode>TECH.Error</IncludeCode>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>APPS.common.StockNiveauService,%RegisteredObject</Super>
-<Inheritance>right</Inheritance>
+<Super>APPS.common.StockNiveauService</Super>
 
 <Property name="EindDatumVanBerekeningBereik">
 <Type>%Date</Type>
@@ -77,124 +74,97 @@
 <Private>1</Private>
 </Property>
 
-<Property name="implStockOverKinderen">
-<Type>APPS.common.impl.StockOverKinderen</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
 <FormalSpec>PRNr:%Integer,EindDatumVanBerekeningBereik:%Date=##class(TECH.DateTime).MaxDate(),Magazijn:APPS.common.enu.MagazijnMetStock=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	#define enuStockType ##class(APPS.common.enu.StockType)
-	#define IsStockOverKinderen $piece($Get(^KPR(..PRNr,0)),"\",23)="S"
-	
 	set ..PRNr = PRNr
-	set ..implStockOverKinderen = ##class(APPS.common.impl.StockOverKinderen).%New(PRNr,EindDatumVanBerekeningBereik)
+	set ..StockOverKinderen = ##class(APPS.common.impl.StockOverKinderen).%New(PRNr, EindDatumVanBerekeningBereik)
 	set ..EindDatumVanBerekeningBereik = EindDatumVanBerekeningBereik
 	set ..Magazijn = Magazijn
-	quit $$$OK
+	
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="GeefAlleStockTypeNiveaus">
 <ReturnType>APPS.common.dto.StockNiveaus</ReturnType>
 <Implementation><![CDATA[
-	set dtoStock = ##class(APPS.common.dto.StockNiveaus).%New()
+	#dim StockNiveaus As APPS.common.dto.StockNiveaus = ##super()
+
+	Set StockNiveaus.InReceptie = ..GeefAantalInReceptie()
+	Set StockNiveaus.InReceptieGestockeerd = ..GeefAantalInReceptieGestockeerd()
+	Set StockNiveaus.InTransfert = ..GeefAantalInTransfert()
+	Set StockNiveaus.KlaarGezet = ..GeefAantalKlaarGezet()
 	
-	set dtoStock.Fysisch = ..GeefFysischeStock()
-	set dtoStock.Praktisch = ..GeefPraktischeStock()
-	set dtoStock.FysischMinReservaties = ..GeefFysischeStockMinReservaties()
-	set dtoStock.Theoretisch = ..GeefTheoretischeStock()
-	set dtoStock.InOrder = ..GeefAantalInOrder()
-	set dtoStock.InToelevering = ..GeefAantalInToelevering()
-	set dtoStock.InReservatie = ..GeefAantalInReservatie()
-	set dtoStock.InReceptie = ..GeefAantalInReceptie()
-	set dtoStock.InReceptieGestockeerd = ..GeefAantalInReceptieGestockeerd()
-	set dtoStock.InTransfert = ..GeefAantalInTransfert()
-	set dtoStock.KlaarGezet = ..GeefAantalKlaarGezet()
-	
-	quit dtoStock
+	Quit StockNiveaus
 ]]></Implementation>
 </Method>
 
 <Method name="GeefFysischeStock">
-<ReturnType>%Float</ReturnType>
+<ReturnType>%Numeric</ReturnType>
 <Implementation><![CDATA[
-	quit:$length(..Fysisch) ..Fysisch
-	
-	set Result = 0
-	if $$$IsStockOverKinderen { 
-		do ..implStockOverKinderen.SetStockType($$$enuStockType.Fysisch())
-		set Result = ..implStockOverKinderen.Beschikbaarheid()
+	If $$$Not($Length(..Fysisch)) {	
+		If (..IsStockOverKinderen()) {
+			Set ..Fysisch = ..StockOverKinderen.GeefBeschikbaarheid(..StockType.Fysisch)	
+		} Else {
+			Set ..Fysisch = +$Piece($Get(^KPR(..PRNr, 0)), "\", 14)
+		}
 	}
-	else {	
-		set Result = +$piece($Get(^KPR(..PRNr,0)),"\",14)
-	}
-	
-	set ..Fysisch = Result
-	quit Result
+
+	Quit ..Fysisch
 ]]></Implementation>
 </Method>
 
 <Method name="GeefFysischeStockMinReservaties">
-<ReturnType>%Float</ReturnType>
+<ReturnType>%Numeric</ReturnType>
 <Implementation><![CDATA[
-	quit:$length(..FysischMinReservatie) ..FysischMinReservatie
-	
-	set Result = 0
-	if $$$IsStockOverKinderen {
-		do ..implStockOverKinderen.SetStockType($$$enuStockType.FysischMinReservaties())
-		set Result = ..implStockOverKinderen.Beschikbaarheid()
+	If $$$Not($Length(..FysischMinReservatie)) {	
+		If (..IsStockOverKinderen()) {
+			Set ..FysischMinReservatie = ..StockOverKinderen.GeefBeschikbaarheid(..StockType.FysischMinReservatie)	
+		} Else {
+			Set ..FysischMinReservatie = ..GeefFysischeStock() - ..GeefAantalInReservatie()
+		}
 	}
-	else  { set Result = ..GeefFysischeStock()-..GeefAantalInReservatie() }
-	
-	set ..FysischMinReservatie = Result 
-	
-	quit Result
+
+	Quit ..FysischMinReservatie
 ]]></Implementation>
 </Method>
 
 <Method name="GeefPraktischeStock">
-<ReturnType>%Float</ReturnType>
+<ReturnType>%Numeric</ReturnType>
 <Implementation><![CDATA[
-	quit:$length(..Praktisch) ..Praktisch
-	
-	set Result = 0
-	if $$$IsStockOverKinderen {
-		do ..implStockOverKinderen.SetStockType($$$enuStockType.Praktisch())
-		set Result = ..implStockOverKinderen.Beschikbaarheid()
+	If $$$Not($Length(..Praktisch)) {	
+		If (..IsStockOverKinderen()) {
+			Set ..Praktisch = ..StockOverKinderen.GeefBeschikbaarheid(..StockType.Praktisch)	
+		} Else {
+			Set ..Praktisch = ..GeefFysischeStock() - ..GeefAantalInOrder()
+		}
 	}
-	else { set Result = ..GeefFysischeStock() - ..GeefAantalInOrder()}
-	
-	set ..Praktisch = Result 
-	
-	quit Result
+
+	Quit ..Praktisch
 ]]></Implementation>
 </Method>
 
 <Method name="GeefTheoretischeStock">
-<ReturnType>%Float</ReturnType>
+<ReturnType>%Numeric</ReturnType>
 <Implementation><![CDATA[
-	quit:$length(..Theoretisch) ..Theoretisch
-	
-	set Result = 0
-	if $$$IsStockOverKinderen {
-		do ..implStockOverKinderen.SetStockType($$$enuStockType.Theoretisch())
-		set Result = ..implStockOverKinderen.Beschikbaarheid()
+	If $$$Not($Length(..Theoretisch)) {	
+		If (..IsStockOverKinderen()) {
+			Set ..Theoretisch = ..StockOverKinderen.GeefBeschikbaarheid(..StockType.Theoretisch)	
+		} Else {
+			Set ..Theoretisch = ..GeefPraktischeStock() + ..GeefAantalInToelevering()
+		}
 	}
-	else  { set Result = ..GeefPraktischeStock() + ..GeefAantalInToelevering() }
-	
-	set ..Theoretisch = Result
-	
-	quit Result
+
+	Quit ..Theoretisch
 ]]></Implementation>
 </Method>
 
 <Method name="GeefAantalInReceptie">
-<ReturnType>%Float</ReturnType>
+<ReturnType>%Numeric</ReturnType>
 <Implementation><![CDATA[
 	quit:$length(..AantalInReceptie) ..AantalInReceptie
 	
@@ -207,7 +177,7 @@
 </Method>
 
 <Method name="GeefAantalInReceptieGestockeerd">
-<ReturnType>%Float</ReturnType>
+<ReturnType>%Numeric</ReturnType>
 <Implementation><![CDATA[
 	quit:$length(..AantalInReceptieGestockeerd) ..AantalInReceptieGestockeerd
 	
@@ -231,7 +201,7 @@
 </Method>
 
 <Method name="GeefAantalInReservatie">
-<ReturnType>%Float</ReturnType>
+<ReturnType>%Numeric</ReturnType>
 <Implementation><![CDATA[
 	quit:$length(..AantalInReservatie) ..AantalInReservatie
 	
@@ -256,7 +226,7 @@
 </Method>
 
 <Method name="GeefAantalInOrder">
-<ReturnType>%Float</ReturnType>
+<ReturnType>%Numeric</ReturnType>
 <Implementation><![CDATA[
 	quit:$length(..AantalInOrder) ..AantalInOrder
 	set Result = 0
@@ -292,7 +262,7 @@
 </Method>
 
 <Method name="GeefAantalInToelevering">
-<ReturnType>%Float</ReturnType>
+<ReturnType>%Numeric</ReturnType>
 <Implementation><![CDATA[
 	quit:$length(..AantalInToelevering) ..AantalInToelevering
 	set Result = 0
@@ -317,7 +287,7 @@
 </Method>
 
 <Method name="GeefAantalInTransfert">
-<ReturnType>%Float</ReturnType>
+<ReturnType>%Numeric</ReturnType>
 <Implementation><![CDATA[
 	quit:$length(..AantalInTransfert) ..AantalInTransfert
 
@@ -352,7 +322,7 @@
 </Method>
 
 <Method name="GeefAantalKlaarGezet">
-<ReturnType>%Float</ReturnType>
+<ReturnType>%Numeric</ReturnType>
 <Implementation><![CDATA[
 	quit:$length(..AantalKlaarGezet) ..AantalKlaarGezet
 	
@@ -379,6 +349,13 @@
 	quit Result
 ]]></Implementation>
 </Method>
+
+<Method name="IsStockOverKinderen">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ($Piece($Get(^KPR(..PRNr, 0)), "\", 23) = "S")
+]]></Implementation>
+</Method>
 </Class>