Index: zSTOCK.mac.rou
===================================================================
diff -u -r1016 -r1118
--- zSTOCK.mac.rou	(.../zSTOCK.mac.rou)	(revision 1016)
+++ zSTOCK.mac.rou	(.../zSTOCK.mac.rou)	(revision 1118)
@@ -26,36 +26,17 @@
 	new Tijd , Tijd2, TijdObj, TijdObj2
 	new dtoStock 
 	
+	set Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(PRNr)
 	do StartTimer^vhLib
 	set StockService = ##class(APPS.common.impl.StockNiveauService).%New(PRNr,Datum)
 	set dtoStock = StockService.GeefAlleStockTypeNiveaus()
 	do StopTimer^vhLib
 	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())
+	do Display("0602","Product : ",Product.GeefKorttekst())
+	do Display("0702","Omschr  : ",Product.GeefOmschrijving())
 	if $length(Datum) Do Display("0702","Gewenste Datum : ",$$EXTDATE^vhDTyp(Datum))
 	
 	do Display("0905","Fysische Stock : ",dtoStock.Fysisch)
@@ -65,11 +46,8 @@
 	do Display("1305","In Toelev : ",dtoStock.InToelevering)
 	do Display("1405","In Reservatie : ",dtoStock.InReservatie)
 	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("1605","Gestockeerd : ",dtoStock.InReceptieGestockeerd)
 	do Display("1805","Tijd : ",Tijd)
-	do Display("1855","Tijd2 : ",Tijd2)
 	quit