Index: WS/TBX/Order.cls.xml
===================================================================
diff -u -r232 -r233
--- WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 232)
+++ WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 233)
@@ -12,16 +12,6 @@
 <Properties>ShowInHist</Properties>
 </Index>
 
-<Property name="Commissie">
-<Type>%String</Type>
-<Parameter name="XMLNAME" value="KLANTORDERREF"/>
-</Property>
-
-<Property name="IngaveTijdStip">
-<Type>%TimeStamp</Type>
-<Parameter name="XMLNAME" value="INGAVETIJDSTIP"/>
-</Property>
-
 <Property name="Lijnen">
 <Type>WS.TBX.EM.OrderLijn</Type>
 <Collection>array</Collection>
@@ -57,17 +47,6 @@
 <Parameter name="XMLNAME" value="EXTRA_TEKST"/>
 </Property>
 
-<Property name="OrderNr">
-<Type>%String</Type>
-<Calculated>1</Calculated>
-<Parameter name="XMLNAME" value="ORDERNR"/>
-</Property>
-
-<Property name="SubmitTS">
-<Type>%String</Type>
-<Parameter name="XMLNAME" value="SUBMITTS"/>
-</Property>
-
 <Property name="TransfStatus">
 <Type>%String</Type>
 <Parameter name="XMLNAME" value="TRANSFSTATUS"/>
@@ -953,24 +932,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="OrderNrGet">
-<ProcedureBlock>0</ProcedureBlock>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..OrderNrCalc(..mID)
-]]></Implementation>
-</Method>
-
-<Method name="OrderNrCalc">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Nr:%String</FormalSpec>
-<ProcedureBlock>0</ProcedureBlock>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	Set:($G(Nr,0)=0) Nr=""   ; %this.mID
-	Quit $S($IsValidNum(Nr):1000000+Nr , 1:Nr)
-]]></Implementation>
-</Method>
-
 <Method name="IDViaEDINr">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>EDINr:%String,blnCheckID:%Boolean=1</FormalSpec>
@@ -1026,44 +987,36 @@
 <Subscript>"Lijnen"</Subscript>
 </Data>
 <Data name="OrderDefaultData">
+<Structure>listnode</Structure>
 <Subscript>"Order"</Subscript>
 <Value name="1">
 <Value>ActieCodesList</Value>
 </Value>
 <Value name="2">
-<Value>Commissie</Value>
-</Value>
-<Value name="3">
-<Value>IngaveTijdStip</Value>
-</Value>
-<Value name="4">
 <Value>NietMeeleveren</Value>
 </Value>
-<Value name="5">
+<Value name="3">
 <Value>ShowInHist</Value>
 </Value>
-<Value name="6">
-<Value>SubmitTS</Value>
-</Value>
-<Value name="7">
+<Value name="4">
 <Value>SubmitToVHLog</Value>
 </Value>
-<Value name="8">
+<Value name="5">
 <Value>TotAantal</Value>
 </Value>
-<Value name="9">
+<Value name="6">
 <Value>TotPrijs</Value>
 </Value>
-<Value name="10">
+<Value name="7">
 <Value>TransfStatus</Value>
 </Value>
-<Value name="11">
+<Value name="8">
 <Value>TransferLog</Value>
 </Value>
-<Value name="12">
+<Value name="9">
 <Value>WebQSData</Value>
 </Value>
-<Value name="13">
+<Value name="10">
 <Value>WebURL</Value>
 </Value>
 </Data>
Index: WS/TBX/OrderAbstract.cls.xml
===================================================================
diff -u -r232 -r233
--- WS/TBX/OrderAbstract.cls.xml	(.../OrderAbstract.cls.xml)	(revision 232)
+++ WS/TBX/OrderAbstract.cls.xml	(.../OrderAbstract.cls.xml)	(revision 233)
@@ -120,6 +120,45 @@
 <Parameter name="XMLNAME" value="OPMERKING1"/>
 </Property>
 
+<Property name="Commissie">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="KLANTORDERREF"/>
+</Property>
+
+<Property name="IngaveTijdStip">
+<Type>%TimeStamp</Type>
+<Parameter name="XMLNAME" value="INGAVETIJDSTIP"/>
+</Property>
+
+<Property name="OrderNr">
+<Type>%String</Type>
+<Calculated>1</Calculated>
+<Parameter name="XMLNAME" value="ORDERNR"/>
+</Property>
+
+<Property name="SubmitTS">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="SUBMITTS"/>
+</Property>
+
+<Method name="OrderNrGet">
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..OrderNrCalc(..mID)
+]]></Implementation>
+</Method>
+
+<Method name="OrderNrCalc">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Nr:%String</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set:($G(Nr,0)=0) Nr=""   ; %this.mID
+	Quit $S($IsValidNum(Nr):1000000+Nr , 1:Nr)
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^WS.TBX.OrderAbstractD</DataLocation>
@@ -182,6 +221,15 @@
 <Value name="18">
 <Value>Opmerking1</Value>
 </Value>
+<Value name="19">
+<Value>Commissie</Value>
+</Value>
+<Value name="20">
+<Value>IngaveTijdStip</Value>
+</Value>
+<Value name="21">
+<Value>SubmitTS</Value>
+</Value>
 </Data>
 </Storage>
 </Class>