Index: APPS/TBXWeb/impl/HELMYOrderHandler.cls.xml
===================================================================
diff -u -r2 -r320
--- APPS/TBXWeb/impl/HELMYOrderHandler.cls.xml	(.../HELMYOrderHandler.cls.xml)	(revision 2)
+++ APPS/TBXWeb/impl/HELMYOrderHandler.cls.xml	(.../HELMYOrderHandler.cls.xml)	(revision 320)
@@ -1,6 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="APPS.TBXWeb.impl.HELMYOrderHandler">
+<ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>AbstractOrderHandler</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
@@ -18,30 +19,18 @@
 </Method>
 
 <Method name="OrderStartTypeValid">
-<ReturnType>Boolean</ReturnType>
-<Implementation><![CDATA[  Quit ..WSOrd.BonType?1(1"OFF",1"OFFAV")
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[  Quit ..WSOrd.BonType?1(1"OFF")
 ]]></Implementation>
 </Method>
 
 <Method name="GetMailTo">
-<FormalSpec>Destination</FormalSpec>
 <ReturnType>%List</ReturnType>
-<Implementation><![CDATA[
-
- #If ($$$Server["WWW")&&($$$NSpace'="DEMO")
-    Set lbTo=$LB($$$EMailOVHelmY,$$$EMailOVHelmY02)       ; """Helmond OV."" <$$$EMailOVHelmY>"
-    Set ServerPrefix=""
-#Else
-    Set lbTo=$LB($$$EMailOVHelmYTEST)   ; """Helmond OV."" <$$$EMailOVHelmYTEST>"
-    Set ServerPrefix="["_$$$Server_"] "
-#EndIf
-
-	Quit lbTo
+<Implementation><![CDATA[   quit $LB($$$EMailOVHelmY,$$$EMailOVHelmY02)
 ]]></Implementation>
 </Method>
 
 <Method name="GetMailLanguage">
-<FormalSpec>Destination</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit "N"
 ]]></Implementation>