Index: PRODUKT4.mac.rou
===================================================================
diff -u -r1079 -r1308
--- PRODUKT4.mac.rou	(.../PRODUKT4.mac.rou)	(revision 1079)
+++ PRODUKT4.mac.rou	(.../PRODUKT4.mac.rou)	(revision 1308)
@@ -38,7 +38,7 @@
  Set:"SR"[Type R=$$InReceptie(PRNr),InReceptie=$LI(R),Gestockeerd=$LI(R,2)
  Quit $S(Type="F":FysStock,Type="P":PraStock,Type="T":TeoStock,Type="T-1":TeoM1Stock,Type="R":InReceptie,Type="S":Gestockeerd,1:FysStock_D_PraStock_D_TeoStock_D_TeoM1Stock_D_InReceptie_D_Gestockeerd)
  ;
-GETSTOCK(PRNr,Type,Week,WVIncl,WMSIncl) 
+xGETSTOCK(PRNr,Type,Week,WVIncl,WMSIncl) 
  ; Type = F:Fysisch; T:Theoretisch; P:Praktisch; R:Recepties; S:Gestockeerd
  ; Indien week is ingevuld dan $$DYNSTOCK
  ; WVIncl = inclusief werkvloer - default is WVIncl = 0
@@ -70,17 +70,17 @@
  ; Indien Type = "" $P(,D,4) is leeg om de output gelijk te houden met DYNSTOCK
  Quit $S(Type="F":FysStock,Type="P":PraStock,Type="T":TeoStock,Type="R":InReceptie,Type="S":Gestockeerd,1:FysStock_D_PraStock_D_TeoStock_D_D_InReceptie_D_Gestockeerd)
  ;
-GetStock(PRNr,Type,Week,WVIncl,WMSIncl)
+GETSTOCK(PRNr,Type,Week,WVIncl,WMSIncl)
 	new Datum set Datum = ""
 	set Week = $get(Week)
 	set:$length(Week) Datum = $$INTDATE^vhDTyp(Week,"DW")
 	set Type = $get(Type)
-	new StockService set StockService = ##class(APPS.common.StockNiveauService).GeefService(PRNr,Datum)
+	new StockService set StockService = ##class(APPS.common.StockNiveauService).GeefServiceViaPRNr(PRNr,Datum)
 	new resGetStock
-	
+ 
 	if Type="" { 
 		new dto set dto = StockService.GeefAlleStockTypeNiveaus() 
-		set resGetStock = dto.Fysisch_"\"_dto.Praktisch_"\"_dto.Theoretisch_"\\"_dto.InReceptie_"\"_dto.Gestockeerd
+		set resGetStock = dto.Fysisch_"\"_dto.Praktisch_"\"_dto.Theoretisch_"\\"_dto.InReceptie_"\"_dto.InReceptieGestockeerd
 	} elseif Type = "F" {
 		set resGetStock = StockService.GeefFysischeStock()
 	} elseif Type = "P" {		
Index: APPS/common/StockNiveauService.cls.xml
===================================================================
diff -u -r1302 -r1308
--- APPS/common/StockNiveauService.cls.xml	(.../StockNiveauService.cls.xml)	(revision 1302)
+++ APPS/common/StockNiveauService.cls.xml	(.../StockNiveauService.cls.xml)	(revision 1308)
@@ -9,10 +9,17 @@
 Bij de berekeningen wordt er momenteel nog geen rekening gehouden met magazijn waarin de goederen zich bevinden.</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Product:DOM.PM.Product,Datum:%Date="",Magazijn:APPS.common.enu.MagazijnMetStock=""</FormalSpec>
-<Implementation><![CDATA[	quit ##class(APPS.common.impl.StockNiveauService).%New(Product, Datum , Magazijn)
+<Implementation><![CDATA[	quit ##class(APPS.common.impl.StockNiveauService).%New(Product.GeefPRNr(), Datum , Magazijn)
 ]]></Implementation>
 </Method>
 
+<Method name="GeefServiceViaPRNr">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>PRNr:%Integer,Datum:%Date="",Magazijn:APPS.common.enu.MagazijnMetStock=""</FormalSpec>
+<Implementation><![CDATA[	quit ##class(APPS.common.impl.StockNiveauService).%New(PRNr, Datum , Magazijn)
+]]></Implementation>
+</Method>
+
 <Method name="GeefAlleStockTypeNiveaus">
 <Abstract>1</Abstract>
 <ReturnType>APPS.common.dto.StockNiveaus</ReturnType>