Index: vhUnitTest/APPS/TBXWeb/TestWebOrderVerwerker.cls.xml
===================================================================
diff -u -r29059 -r34770
--- vhUnitTest/APPS/TBXWeb/TestWebOrderVerwerker.cls.xml	(.../TestWebOrderVerwerker.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/TBXWeb/TestWebOrderVerwerker.cls.xml	(.../TestWebOrderVerwerker.cls.xml)	(revision 34770)
@@ -3,13 +3,9 @@
 <Class name="vhUnitTest.APPS.TBXWeb.TestWebOrderVerwerker">
 <Description>
 d ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.TBXWeb.TestWebOrderVerwerker")</Description>
-<Super>vhUnitTest.TestCase</Super>
+<IncludeCode>APPS.TBXWeb</IncludeCode>
+<Super>vhUnitTest.TestCase,vhUnitTest.APPS.TBXWeb.OrderVerwerker.ConverteerWebOrderNaarOfferte.OfferteBase</Super>
 
-<Property name="WebOrder">
-<Type>WS.TBX.OrderAbstract</Type>
-<Private>1</Private>
-</Property>
-
 <Parameter name="Type">
 <Type>%String</Type>
 <Default>I</Default>
@@ -174,33 +170,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="MaakOfferte">
-<Private>1</Private>
-<ReturnType>Flow.Offerte.Hoofding</ReturnType>
-<Implementation><![CDATA[
-    set Verwerker = ##class(vhUnitTest.APPS.TBXWeb.OrderVerwerkerMock).%New()
-    
-    #dim OfferteID As %String = ""
-    
-    if ..WebOrder.%Extends("WS.TBX.GroepOrder") { set OfferteID = Verwerker.ConverteerWebGroepOrderNaarOfferte(..WebOrder) }
-    else { set OfferteID = Verwerker.ConverteerWebOrderNaarOfferte(..WebOrder) }
-    do $$$AssertEquals(OfferteID,..GeefLaatstGemaakteOfferteID())
-    #dim Offerte As Flow.Offerte.Hoofding = Verwerker.GeefOfferte()
-	do $$$AssertTrue(Offerte.%ValidateObject(),"Validatie offerte is ok")    
-	
-	quit Offerte
-]]></Implementation>
-</Method>
-
-<Method name="VerwijderOfferte">
-<FormalSpec>OfferteID:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	do ##class(Flow.Offerte.Hoofding).%DeleteId(OfferteID)
-	do $$$AssertFalse(##class(Flow.Offerte.Hoofding).%ExistsId(OfferteID))
-]]></Implementation>
-</Method>
-
 <Method name="TestReferentie">
 <Implementation><![CDATA[
  	do ..MaakTestOrder()
@@ -233,12 +202,6 @@
     do $$$AssertEquals(Verwerker.GeefOrderReferentie(),"TestOrderReferentieUT","www.tandem-box.com")
 ]]></Implementation>
 </Method>
-
-<Method name="GeefLaatstGemaakteOfferteID">
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	quit ^Flow.Offerte.HoofdingD
-]]></Implementation>
-</Method>
 </Class>