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" {