Index: WS/TBX/Order.cls.xml
===================================================================
diff -u -r334 -r365
--- WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 334)
+++ WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 365)
@@ -711,7 +711,7 @@
 <FormalSpec>wsID:%String,NewStatusH:%String,ClientHostIP:%String="",blnSaveObj:%Boolean=1</FormalSpec>
 <ReturnType>WS.TBX.Order</ReturnType>
 <Implementation><![CDATA[
-	Set WSOrd=..%OpenId(wsID)
+	Set WSOrd=##class(WS.TBX.OrderAbstract).%OpenId(wsID)
 	Quit:('$IsObject(WSOrd)) ""
 	Quit:(NewStatusH>$$$shShownForAll) ""
 	If $G(NewStatusH)="" Do  Quit:(ClientHostIP="") ""
Index: csp/vhisie/TBX/Main/tmpDev.mac.rou
===================================================================
diff -u -r363 -r365
--- csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 363)
+++ csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 365)
@@ -1226,6 +1226,7 @@
 	Set arHistVTL("LN",i,"OrderDCM_DSP") = OrderData.GeefDesignCodeOmschrijvingen()
 	Set arHistVTL("LN",i,"OrderDCM_ALT") = OrderData.GeefDesignCodeToolTips()
 	set arHistVTL("LN",i,"VerpakkingsType")= OrderData.GeefVerpakkingType()
+	set arHistVTL("LN",i,"IsGroepOrder")= OrderData.Order.IsGroepOrder()
 	Do phvManageBonType	
 	Set Ref(i)=$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(tmpKLNr,VERW,wsID,WizMode))
 	Set arHistVTL("LN",i,"UrlOrd")=$$$Replace(arUrl("ShowOrder"),$$$QSREFReplace,Ref(i))