Index: WS/TBX/HAEFELE/OrderServiceInternal.cls.xml
===================================================================
diff -u -r684 -r729
--- WS/TBX/HAEFELE/OrderServiceInternal.cls.xml	(.../OrderServiceInternal.cls.xml)	(revision 684)
+++ WS/TBX/HAEFELE/OrderServiceInternal.cls.xml	(.../OrderServiceInternal.cls.xml)	(revision 729)
@@ -29,12 +29,14 @@
 <Implementation><![CDATA[
 	Set $ZTrap="ConfirmOrderError"
 	
-	Set OHRequester=##class(APPS.TBXWeb.enu.TBXHandel).HafeleBE()
 	Set Logger = ##class(WS.TBX.OrderService.Logger).%New("WS_TBX_HAEFELE")
-	Set OrderServiceHelper=##class(WS.TBX.OrderService.Verwerker).%New(OHRequester,Logger)
+	Set OrderServiceHelper=##class(WS.TBX.OrderService.Verwerker).%New("",Logger)
 
 	Do OrderServiceHelper.ControleerSecureKey(SecureKey)
 	Set wsOrder=OrderServiceHelper.OpenWSOrder(EDInr)
+	
+	Do ..ZetTBXHandel(OrderServiceHelper,wsOrder)
+	
 	Set wsOrder.LeverTijd = $G(RequestedDeliveryDate)
 	If $piece(wsOrder.Opmerking1,$$$CRLF) '= HaefeleBestelRef {
 		Set wsOrder.Opmerking1 = HaefeleBestelRef_ $$$CRLF _wsOrder.Opmerking1
@@ -70,6 +72,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetTBXHandel">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>OrderServiceHelper:WS.TBX.OrderService.Verwerker,WsOrder:WS.TBX.OrderAbstract</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set TBXHandelBepaler = ##class(WS.TBX.OrderService.TBXHandelBepaler).%New()
+	Set TBXHandel = TBXHandelBepaler.BepaalTBXHandel(WsOrder)
+	Set OrderServiceHelper.OHRequester = TBXHandel
+]]></Implementation>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 /*