Index: APPS/TBXWeb/impl/OrderHandlerFactory.cls.xml
===================================================================
diff -u -r2 -r320
--- APPS/TBXWeb/impl/OrderHandlerFactory.cls.xml	(.../OrderHandlerFactory.cls.xml)	(revision 2)
+++ APPS/TBXWeb/impl/OrderHandlerFactory.cls.xml	(.../OrderHandlerFactory.cls.xml)	(revision 320)
@@ -1,17 +1,24 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="APPS.TBXWeb.impl.OrderHandlerFactory">
+<ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="CreateOrderHandler">
-<FormalSpec>wsID:%String="",Shop:%String="",Requester:%String=""</FormalSpec>
+<FormalSpec>wsID:%String="",Shop:APPS.TBXWeb.enu.TBXHandel="",Requester:APPS.TBXWeb.enu.TBXHandel=""</FormalSpec>
 <ReturnType>AbstractOrderHandler</ReturnType>
 <Implementation><![CDATA[
-	Set ClassName = "APPS.TBXWeb.impl."_Shop_"OrderHandler"
+	Set ClassName = ..BouwImplementatieKlassenaam(Shop)
 	Quit $zobjClassMethod(ClassName,"%New",wsID, Shop, Requester)
 ]]></Implementation>
 </Method>
+
+<Method name="BouwImplementatieKlassenaam">
+<FormalSpec>Shop:APPS.TBXWeb.enu.TBXHandel</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	quit "APPS.TBXWeb.impl."_Shop_"OrderHandler"
+]]></Implementation>
+</Method>
 </Class>
 </Export>