Index: zSTOCK.mac.rou
===================================================================
diff -u -r1015 -r1016
--- zSTOCK.mac.rou	(.../zSTOCK.mac.rou)	(revision 1015)
+++ zSTOCK.mac.rou	(.../zSTOCK.mac.rou)	(revision 1016)
@@ -23,7 +23,7 @@
 	
 	set Datum = $get(Datum)
 	new StockService, StockServiceObj 
-	new Tijd , TijdObj
+	new Tijd , Tijd2, TijdObj, TijdObj2
 	new dtoStock 
 	
 	do StartTimer^vhLib
@@ -33,12 +33,26 @@
 	set Tijd = $$GetInterval^vhLib()
 	
 	do StartTimer^vhLib
+	set StockService = ##class(APPS.common.impl.StockNiveauService).%New(PRNr,Datum)
+	set dtoStock = StockService.GeefAlleStockTypeNiveaus()
+	do StopTimer^vhLib
+	set Tijd2 = $$GetInterval^vhLib()
+	
+	
+	do StartTimer^vhLib
 	set Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(PRNr)
 	set StockServiceObj = ##class(APPS.common.impl.StockNiveauServiceObj).%New(Product,Datum)
 	set dtoStock = StockServiceObj.GeefAlleStockTypeNiveaus()
 	do StopTimer^vhLib
 	set TijdObj = $$GetInterval^vhLib()
 	
+	do StartTimer^vhLib
+	set Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(PRNr)
+	set StockServiceObj = ##class(APPS.common.impl.StockNiveauServiceObj).%New(Product,Datum)
+	set dtoStock = StockServiceObj.GeefAlleStockTypeNiveaus()
+	do StopTimer^vhLib
+	set TijdObj2 = $$GetInterval^vhLib()
+	
 	do ClrScr("0501")
 	
 	do Display("0602","Product : ",Product.GeefKorttekst()_" "_Product.GeefOmschrijving())
@@ -53,7 +67,9 @@
 	do Display("1505","In Receptie : ",dtoStock.InReceptie)
 	do Display("1605","Gestockeerd : ",dtoStock.Gestockeerd)
 	do Display("1705","Tijd obj : ",TijdObj)
+	do Display("1755","Tijd obj2 : ",TijdObj2)
 	do Display("1805","Tijd : ",Tijd)
+	do Display("1855","Tijd2 : ",Tijd2)
 	quit