Index: APPS/TBXWeb/impl/LMCOrderHandler.cls.xml
===================================================================
diff -u -r2 -r320
--- APPS/TBXWeb/impl/LMCOrderHandler.cls.xml	(.../LMCOrderHandler.cls.xml)	(revision 2)
+++ APPS/TBXWeb/impl/LMCOrderHandler.cls.xml	(.../LMCOrderHandler.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.LMCOrderHandler">
+<ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>AbstractOrderHandler</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
@@ -16,29 +17,20 @@
 </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="GetMailFrom">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit """"_$S($L(..WSOrd.KLNaam):..WSOrd.KLNaam, 1:"Anonymous")_""" <"_$$$EMailAnon2LMC_">"
+<Implementation><![CDATA[ Quit """"_$S($L(..WSOrd.KLNaam):..WSOrd.KLNaam, 1:"Anonymous")_""" <"_$$$EMailAnon2LMC_">"
 ]]></Implementation>
 </Method>
 
 <Method name="GetMailTo">
-<FormalSpec>Destination</FormalSpec>
 <ReturnType>%List</ReturnType>
-<Implementation><![CDATA[
- 
- #If ($$$Server["WWW")&&($$$NSpace'="DEMO")
-    Set lbTo=$LB($$$EMailOVLMC)          ; """LMC OV."" <$$$EMailOVLMC>"
-#Else
-	Set lbTo=$LB($$$EMailOVLMCTEST)      ; """OPTIMA OV."" <$$$EMailOVLMCTEST>"
-#EndIf
-
-	Quit lbTo
+<Implementation><![CDATA[ quit $LB($$$EMailOVLMC)
 ]]></Implementation>
 </Method>
 
@@ -70,7 +62,8 @@
  	Set stMail = ..SendMail()
  	Quit:'stMail stMail
  	
- 	Set stOrderToVH = ##class(BL.TBX.API.OrderHandling).Order(..WsOrd.mdID,"VHEPN","LMC")
+ 	set OrderService = ##class(APPS.TBXWeb.OrderService).%New()
+ 	Set stOrderToVH = OrderService.Bestel(..WsOrd.mdID,"VHEPN","LMC")
  	Quit:'stOrderToVH stOrderToVH
  	
  	Quit $$$OK