Index: vhUnitTest/APPS/TBXWeb/OrderVerwerker/ConverteerWebOrderNaarOfferte/TestReferenties.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TBXWeb/OrderVerwerker/ConverteerWebOrderNaarOfferte/TestReferenties.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TBXWeb/OrderVerwerker/ConverteerWebOrderNaarOfferte/TestReferenties.cls.xml	(revision 34773)
@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TBXWeb.OrderVerwerker.ConverteerWebOrderNaarOfferte.TestReferenties">
+<Super>vhUnitTest.TestCase,vhUnitTest.APPS.TBXWeb.OrderVerwerker.ConverteerWebOrderNaarOfferte.OfferteBase</Super>
+
+<Method name="TestReferentie">
+<Implementation><![CDATA[
+ 	do ..MaakWebOrder()
+ 	
+	set ..WebOrder.WebDomain = "tbx.sfsunimarket.biz"
+    set Verwerker = ##class(vhUnitTest.APPS.TBXWeb.OrderVerwerkerMock).%New()
+    do Verwerker.ZetWebOrder(..WebOrder)
+    do Verwerker.BepaalTBXHandel()
+    do $$$AssertEquals(Verwerker.GeefCommReferentie(),"TEST Naam","tbx.sfsUnimarket.biz")
+    do $$$AssertEquals(Verwerker.GeefOrderReferentie(),"TestOrderReferentieUT","tbx.sfsUnimarket.biz")
+    
+	set ..WebOrder.WebDomain = "hafele.tandem-box.com"
+    set Verwerker = ##class(vhUnitTest.APPS.TBXWeb.OrderVerwerkerMock).%New()
+    do Verwerker.ZetWebOrder(..WebOrder)
+    do Verwerker.BepaalTBXHandel()
+    do $$$AssertEquals(Verwerker.GeefCommReferentie(),"TEST Naam - ","hafele.tandem-box.com")
+    do $$$AssertEquals(Verwerker.GeefOrderReferentie(),"TestOrderReferentieUT","hafele.tandem-box.com")
+    
+    set ..WebOrder.KLNaam = "Haefele Nederland"
+    set Verwerker = ##class(vhUnitTest.APPS.TBXWeb.OrderVerwerkerMock).%New()
+    do Verwerker.ZetWebOrder(..WebOrder)
+    do Verwerker.BepaalTBXHandel()
+    do $$$AssertEquals(Verwerker.GeefCommReferentie(),"","Haefele Nederland")
+    do $$$AssertEquals(Verwerker.GeefOrderReferentie(),"TestOrderReferentieUT","Haefele Nederland")
+
+	set ..WebOrder.WebDomain = "www.tandem-box.com"
+    set Verwerker = ##class(vhUnitTest.APPS.TBXWeb.OrderVerwerkerMock).%New()
+    do Verwerker.ZetWebOrder(..WebOrder)
+    do Verwerker.BepaalTBXHandel()
+    do $$$AssertEquals(Verwerker.GeefCommReferentie(),"","www.tandem-box.com")
+    do $$$AssertEquals(Verwerker.GeefOrderReferentie(),"TestOrderReferentieUT","www.tandem-box.com")
+]]></Implementation>
+</Method>
+
+<Method name="MaakWebOrder">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..WebOrder = ##class(WS.TBX.Order).%New()	
+	Set ..WebOrder.BonType = "BBON"
+	Set ..WebOrder.KLNummer = $$$DummyString
+	Set ..WebOrder.KLNaam = "TEST Naam"
+	Set ..WebOrder.Commissie = "TestOrderReferentieUT"
+	Set ..WebOrder.WebDomain = ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/TBXWeb/TestWebOrderVerwerker.cls.xml
===================================================================
diff -u -r34772 -r34773
--- vhUnitTest/APPS/TBXWeb/TestWebOrderVerwerker.cls.xml	(.../TestWebOrderVerwerker.cls.xml)	(revision 34772)
+++ vhUnitTest/APPS/TBXWeb/TestWebOrderVerwerker.cls.xml	(.../TestWebOrderVerwerker.cls.xml)	(revision 34773)
@@ -187,39 +187,6 @@
 	do ..VerwijderOfferte(Offerte.%Id())
 ]]></Implementation>
 </Method>
-
-<Method name="TestReferentie">
-<Implementation><![CDATA[
- 	do ..MaakTestOrder()
-	set ..WebOrder.WebDomain = "tbx.sfsunimarket.biz"
-    set Verwerker = ##class(vhUnitTest.APPS.TBXWeb.OrderVerwerkerMock).%New()
-    do Verwerker.ZetWebOrder(..WebOrder)
-    do Verwerker.BepaalTBXHandel()
-    do $$$AssertEquals(Verwerker.GeefCommReferentie(),"TEST Naam","tbx.sfsUnimarket.biz")
-    do $$$AssertEquals(Verwerker.GeefOrderReferentie(),"TestOrderReferentieUT","tbx.sfsUnimarket.biz")
-    
-	set ..WebOrder.WebDomain = "hafele.tandem-box.com"
-    set Verwerker = ##class(vhUnitTest.APPS.TBXWeb.OrderVerwerkerMock).%New()
-    do Verwerker.ZetWebOrder(..WebOrder)
-    do Verwerker.BepaalTBXHandel()
-    do $$$AssertEquals(Verwerker.GeefCommReferentie(),"TEST Naam - ","hafele.tandem-box.com")
-    do $$$AssertEquals(Verwerker.GeefOrderReferentie(),"TestOrderReferentieUT","hafele.tandem-box.com")
-    
-    set ..WebOrder.KLNaam = "Haefele Nederland"
-    set Verwerker = ##class(vhUnitTest.APPS.TBXWeb.OrderVerwerkerMock).%New()
-    do Verwerker.ZetWebOrder(..WebOrder)
-    do Verwerker.BepaalTBXHandel()
-    do $$$AssertEquals(Verwerker.GeefCommReferentie(),"","Haefele Nederland")
-    do $$$AssertEquals(Verwerker.GeefOrderReferentie(),"TestOrderReferentieUT","Haefele Nederland")
-
-	set ..WebOrder.WebDomain = "www.tandem-box.com"
-    set Verwerker = ##class(vhUnitTest.APPS.TBXWeb.OrderVerwerkerMock).%New()
-    do Verwerker.ZetWebOrder(..WebOrder)
-    do Verwerker.BepaalTBXHandel()
-    do $$$AssertEquals(Verwerker.GeefCommReferentie(),"","www.tandem-box.com")
-    do $$$AssertEquals(Verwerker.GeefOrderReferentie(),"TestOrderReferentieUT","www.tandem-box.com")
-]]></Implementation>
-</Method>
 </Class>