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>