Index: PRODUKT4.mac.rou
===================================================================
diff -u -r48689 -r48692
--- PRODUKT4.mac.rou	(.../PRODUKT4.mac.rou)	(revision 48689)
+++ PRODUKT4.mac.rou	(.../PRODUKT4.mac.rou)	(revision 48692)
@@ -70,34 +70,6 @@
  ; 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)
  ;
-xGETSTOCK(PRNr,Type,Week,WVIncl,WMSIncl)
-	new Datum set Datum = ""
-	set Week = $get(Week)
-	set WMSIncl = $get(WMSIncl,1)
-	set:$length(Week) Datum = $$INTDATE^vhLib.DataTypes(Week,"DW")
-	set Type = $get(Type)
-	new StockService set StockService = ##class(APPS.common.StockNiveauService).GeefServiceViaPRNr(PRNr,Datum)
-	new resGetStock
- 
- 	if Type="" { 
-		new dto set dto = StockService.GeefAlleStockTypeNiveaus() 
-		set resGetStock = $select(WMSIncl:dto.FysischMinReservaties,1:dto.Fysisch)_"\"_
-						  dto.Praktisch_"\"_dto.Theoretisch_"\\"_dto.InReceptie_"\"_dto.InReceptieGestockeerd
-	} elseif Type = "F" {
-		set resGetStock = $select(WMSIncl:StockService.GeefFysischeStockMinReservaties(),1: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