Index: vhUnitTest/APPS/TBXWeb/impl/TestOrderHandlers.cls.xml
===================================================================
diff -u -r723 -r780
--- vhUnitTest/APPS/TBXWeb/impl/TestOrderHandlers.cls.xml	(.../TestOrderHandlers.cls.xml)	(revision 723)
+++ vhUnitTest/APPS/TBXWeb/impl/TestOrderHandlers.cls.xml	(.../TestOrderHandlers.cls.xml)	(revision 780)
@@ -381,55 +381,22 @@
 ]]></Content>
 </UDLText>
 
-<Method name="TestOrderBijHeinOFF">
+<Method name="TestOrderBijHein">
 <Implementation><![CDATA[
 	set ..Shop = ##class(APPS.TBXWeb.enu.TBXHandel).Hein()
 	set ..WebDomain = "tbx.tandem-box.de"
 	set ..Requester = ##class(APPS.TBXWeb.enu.TBXHandel).Hein()
-	set ..KlantNr = $$$TBoxWebKlantNrHEIN
+	set ..KlantNr = 12345678
 	set ..KlantNaam = "KlantNaam ("_..Requester_")"
 	set ..IsAnoniemeGebruiker=0
 	set ..MailTo = $listbuild("""HEIN OV."" <auftrag@tandem-box.de>")
 	set ..MailFrom = """KlantNaam (HEIN)"" <AdminTBX@vanhoecke.be>"
 	set ..MailLanguage = ##class(DOM.enu.Taal).Duits()
 	set ..ValidBonTypes = $listbuild(##class(APPS.TBXWeb.enu.BonType).Offerte())
-	set ..OrderResultType = ##class(APPS.TBXWeb.enu.BonType).Offerte()
-	set ..Implementatie = "HEINOrderHandler" 
-	
-	do ..VoerUitOrderTestVoorBonType(##class(APPS.TBXWeb.enu.BonType).OfferteAanvraag())
-	do ..VoerUitOrderTestVoorBonType(##class(APPS.TBXWeb.enu.BonType).Offerte())
-	do ..VoerUitOrderTestVoorBonType(##class(APPS.TBXWeb.enu.BonType).Inkooporder())
-
-	do ..VoerUitGOTestVoorBonType(##class(APPS.TBXWeb.enu.BonType).OfferteAanvraag())
-	do ..VoerUitGOTestVoorBonType(##class(APPS.TBXWeb.enu.BonType).Offerte())
-	do ..VoerUitGOTestVoorBonType(##class(APPS.TBXWeb.enu.BonType).Inkooporder())
-	quit
-]]></Implementation>
-</Method>
-
-<Method name="TestOrderBijHeinBBON">
-<Implementation><![CDATA[
-	set ..Shop = ##class(APPS.TBXWeb.enu.TBXHandel).Hein()
-	set ..WebDomain = "tbx.tandem-box.de"
-	set ..Requester = ##class(APPS.TBXWeb.enu.TBXHandel).Hein()
-	set ..KlantNr = $$$TBoxWebKlantNrHEIN
-	set ..KlantNaam = "KlantNaam ("_..Requester_")"
-	set ..IsAnoniemeGebruiker=0
-	set ..MailTo = $listbuild("""HEIN OV."" <auftrag@tandem-box.de>")
-	set ..MailFrom = """KlantNaam (HEIN)"" <AdminTBX@vanhoecke.be>"
-	set ..MailLanguage = ##class(DOM.enu.Taal).Duits()
-	set ..ValidBonTypes = $listbuild(##class(APPS.TBXWeb.enu.BonType).Bestelbon())
 	set ..OrderResultType = ##class(APPS.TBXWeb.enu.BonType).Bestelbon()
 	set ..Implementatie = "HEINOrderHandler" 
 	
-	do ..VoerUitOrderTestVoorBonType(##class(APPS.TBXWeb.enu.BonType).OfferteAanvraag())
-	do ..VoerUitOrderTestVoorBonType(##class(APPS.TBXWeb.enu.BonType).Bestelbon())
-	do ..VoerUitOrderTestVoorBonType(##class(APPS.TBXWeb.enu.BonType).Inkooporder())
-
-	do ..VoerUitGOTestVoorBonType(##class(APPS.TBXWeb.enu.BonType).OfferteAanvraag())
-	do ..VoerUitGOTestVoorBonType(##class(APPS.TBXWeb.enu.BonType).Bestelbon())
-	do ..VoerUitGOTestVoorBonType(##class(APPS.TBXWeb.enu.BonType).Inkooporder())
-	
+	do ..VoerUitTest()
 	quit
 ]]></Implementation>
 </Method>