Index: WS/TBX/OrderAbstract.cls.xml
===================================================================
diff -u -r40353 -r40689
--- WS/TBX/OrderAbstract.cls.xml	(.../OrderAbstract.cls.xml)	(revision 40353)
+++ WS/TBX/OrderAbstract.cls.xml	(.../OrderAbstract.cls.xml)	(revision 40689)
@@ -185,13 +185,6 @@
 <Parameter name="XMLNAME" value="NIETMEE_OMS"/>
 </Property>
 
-<Property name="ExtraTekst">
-<Type>%String</Type>
-<Calculated>1</Calculated>
-<Parameter name="TRUNCATE" value="1"/>
-<Parameter name="XMLNAME" value="EXTRA_TEKST"/>
-</Property>
-
 <Property name="ShowInHist">
 <Type>%Integer</Type>
 <Parameter name="XMLNAME" value="SHOWINHIST"/>
Index: WS/TBX/Order.cls.xml
===================================================================
diff -u -r40439 -r40689
--- WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 40439)
+++ WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 40689)
@@ -261,22 +261,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ExtraTekstGet">
-<ProcedureBlock>0</ProcedureBlock>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-#define DateH(%v)   $S(%v?5N1","1.5N:%v, 1:$ZDTH(%v,3))
- New sTxt
- Set sTxt=""
- ;Set:(..KLPrijsKlasse="P") sTxt=sTxt_";"_"KR"   ; KortingsRegel
- Set:(..BonType="OFF")&&($L(..IngaveTijdStip)) sTxt=sTxt_";"_"VVOFF-"_$$etgVervalDatumOFF   ; VervalDatumOFF
- Set:($E(sTxt,1)=";") $E(sTxt,1)=""
- Quit sTxt
-etgVervalDatumOFF()
- Quit $S(..BonType="OFF":$TR($ZD($P($$$DateH(..IngaveTijdStip),",",1)+30,4),"/","-"), 1:"")
-]]></Implementation>
-</Method>
-
 <Method name="GeefTotaalAantal">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..TotAantal