Index: PRODUKT4.mac.rou
===================================================================
diff -u -r734 -r948
--- PRODUKT4.mac.rou	(.../PRODUKT4.mac.rou)	(revision 734)
+++ PRODUKT4.mac.rou	(.../PRODUKT4.mac.rou)	(revision 948)
@@ -69,6 +69,32 @@
  ; 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)
+	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 resGetStock
+	
+	if Type="" { 
+		new dto set dto = StockService.GeefAlleStockTypeNiveaus() 
+		set resGetStock = dto.Fysisch_"\"_dto.Praktisch_"\"_dto.Theoretisch_"\\"_dto.InReceptie_"\"_dto.Gestockeerd
+	} elseif Type = "F" {
+		set resGetStock = StockService.GeefFysischeStock()
+	} elseif Type = "P" {		
+		set resGetStock = StockService.GeefPraktischeStock()
+	} elseif Type = "T" {		
+		set resGetStock = StockService.GeefTheoretischeStock()
+	} elseif Type = "S" {		
+		set resGetStock = StockService.GeefAantalReedsGestockeerd()
+	} elseif Type = "R" {		
+		set resGetStock = StockService.GeefAantalInReceptie()
+	}
+	else { set resGetStock = "?" }
+	
+	quit resGetStock
+ 
  ; Geef aantal in receptie en gestockeerd
 InReceptie(PRNr)
  New R,LEVNr,WInd,InReceptie,Gestockeerd,TOENr,TLNr,TLUNr,RCPNr