DisplayResult(PRNr,Datum)
	set Datum = $get(Datum)
	new StockService, dtoStock 
	set StockService = ##class(APPS.common.StockNiveauService).GeefService(PRNr,Datum)
	set dtoStock = StockService.GeefAlleStockTypeNiveaus()
	do Display("0905","Fysische Stock : ",dtoStock.Fysisch)
	do Display("1005","Praktische Stock : ",dtoStock.Praktisch)
	do Display("1105","Theoretische Stock : ",dtoStock.Theoretisch)
	do Display("1205","In Order  : ",dtoStock.InOrder)
	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)
	quit
	
 
 
Display(Pos,String,Value)
	set FP=Pos write @F,@F2,String_Value