Index: csp/vhisie/TBX/Wizard/tmpDev.mac.rou
===================================================================
diff -u -r224 -r320
--- csp/vhisie/TBX/Wizard/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 224)
+++ csp/vhisie/TBX/Wizard/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 320)
@@ -97,7 +97,7 @@
 	Set blnShowDynSpace=0   ; (blnVHEPN)&&(KLNr?1(1"4645x",1"6821"))
 	// Design Choice Mode : Intivo, Standaard of eXpert 
 	Set DCM=""
-	Set:(wsIDFrom>0) DCM=##class(WS.TBX.Order).DCMCalc(wsIDFrom)   ; wsID or wsIDFrom 
+	Set:(wsIDFrom>0) DCM=##class(WS.TBX.OrderAbstract).%OpenId(wsIDFrom).GeefDesignCodeModes().GetAt(1)
 	Set:(DCM="") DCM=$G(%request.Data("DCM",1))
 	Set:(DCM="") DCM="S"   ; default 
 	Set lbDesignChoices=##class(cspBasis.GAProdTBox).GetDesignChoices(DCM,KLNr,TBXContext.GeefDomeinVerwerker(),TBXContext.GeefDomeinKlantNummer())
@@ -173,4 +173,4 @@
 	Quit sBonType
 ophAddToLog
 	Do ##class(cspBasis.GAProdTBox).AddToLog($S((sMode="A")&&(wsID'>0):$S($G(blnNewFromOrd):"WIZARD_COPY",1:"WIZARD_NEW"), 1:"WIZARD_OPEN"),TBXContext.GeefHttpRequestDomein(),KLNr,sMode_$S(DCM'?1(1"S",1""):" - "_DCM,1:""),wsID,VERW,Taal,"")
-	Quit
\ No newline at end of file
+	Quit