Index: WS/TBX/OrderService/TBXHandelBepaler.cls.xml
===================================================================
diff -u
--- WS/TBX/OrderService/TBXHandelBepaler.cls.xml	(revision 0)
+++ WS/TBX/OrderService/TBXHandelBepaler.cls.xml	(revision 728)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="WS.TBX.OrderService.TBXHandelBepaler">
+<Super>TECH.RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="BepaalTBXHandel">
+<FormalSpec>WsOrder:WS.TBX.OrderAbstract</FormalSpec>
+<ReturnType>APPS.TBXWeb.enu.TBXHandel</ReturnType>
+<Implementation><![CDATA[
+	Set TBXContext = ##class(APPS.TBXWeb.TBXContext).%New(WsOrder.WebDomain)
+	Quit TBXContext.GeefDomeinVerwerker()
+]]></Implementation>
+</Method>
+
+<Method name="BepaalTBXHandelViaEDINr">
+<FormalSpec>EDINr:%Integer</FormalSpec>
+<ReturnType>APPS.TBXWeb.enu.TBXHandel</ReturnType>
+<Implementation><![CDATA[
+	Set WsOrder = ..OpenWsOrder(EDINr)
+	Quit ..BepaalTBXHandel(WsOrder)
+]]></Implementation>
+</Method>
+
+<Method name="OpenWsOrder">
+<FormalSpec>EDINr:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.TBX.OrderAbstract</ReturnType>
+<Implementation><![CDATA[
+	Set WsOrderId = ##class(WS.TBX.OrderAbstract).IDViaEDINr(EDInr)
+	Quit ##class(WS.TBX.Order).%OpenId(WsOrderId)
+]]></Implementation>
+</Method>
+</Class>
+</Export>