Index: vhUnitTest/APPS/VisiDot/TestVHossXML.cls.xml
===================================================================
diff -u -r64858 -r65134
--- vhUnitTest/APPS/VisiDot/TestVHossXML.cls.xml	(.../TestVHossXML.cls.xml)	(revision 64858)
+++ vhUnitTest/APPS/VisiDot/TestVHossXML.cls.xml	(.../TestVHossXML.cls.xml)	(revision 65134)
@@ -38,82 +38,9 @@
 	Do ##super()
 	
 	Do:$Data(^KOD(..#KLNr,"F",..#OrderID)) ##class(DOM.VKP.event.OrderEventRaiser).RaiseOrderVerwijderdEvent(..#OrderID)
-	
-	Do ..MaakProductVoorVHoss()    ; "418589/216590"
 ]]></Implementation>
 </Method>
 
-<Method name="GeefTbxKenmerkenViaLegacy">
-<Description>
-Geeft Lege TBXKenmerken terug, alleen de LegacyKenmerken zijn ingevuld. Dit is normaal gezien voldoende voor de Tandembox.Aansturing integratietesten. 
-Parameter LegacyKenmerken is optioneel, indien leeg dan wordt de legacy StandaardLade() toegewezen. </Description>
-<FormalSpec>LegacyKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy=""</FormalSpec>
-<Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</ReturnType>
-<Implementation><![CDATA[
-	#dim TBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).LegeKenmerken()
-	Set TBXKenmerken.LadeVariant = "TBX_Antaro"
-	
-	If $IsObject(LegacyKenmerken) {
-		Set TBXKenmerken.LegacyKenmerken = LegacyKenmerken
-	}
-	Else {
-		Set TBXKenmerken.LegacyKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).StandaardLade()
-	}
-	
-	Quit TBXKenmerken
-]]></Implementation>
-</Method>
-
-<Method name="MaakProductVoorVHoss">
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	#dim TBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = ..GeefTbxKenmerkenViaLegacy()
-	#dim LegacyKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy = TBXKenmerken.LegacyKenmerken
-	
-	Set LegacyKenmerken.ItemASM = "0"
-	Set LegacyKenmerken.ItemBGRP = "Z"
-	Set LegacyKenmerken.ItemBM = "I"
-	Set LegacyKenmerken.ItemBX = "ZR" 
-	Set LegacyKenmerken.ItemCB = 600
-	Set LegacyKenmerken.ItemDC = "A"
-	Set LegacyKenmerken.ItemDK = 30
-	Set LegacyKenmerken.ItemDS = "GA"
-	Set LegacyKenmerken.ItemDWV = 0
-	Set LegacyKenmerken.ItemFB = "Z"
-	Set LegacyKenmerken.ItemFS = "A"
-	Set LegacyKenmerken.ItemKB = "LG"
-	Set LegacyKenmerken.ItemKL = "MG"
-	Set LegacyKenmerken.ItemLD = 270
-	Set LegacyKenmerken.ItemLT = "M/Z"
-	Set LegacyKenmerken.ItemOPVL = ""
-	Set LegacyKenmerken.ItemRK = "MG"
-	Set LegacyKenmerken.ItemRSTL = ""
-	Set LegacyKenmerken.ItemSB = 0
-	Set LegacyKenmerken.ItemSPZK = ""
-	Set LegacyKenmerken.ItemVPK = "A"
-	Set LegacyKenmerken.ItemWD = 18
-	Set LegacyKenmerken.NietMeeleveren = "MNCP;NMRL;NMBDS;NMFB;NMBS"
-	
-	
-	Set ProductData = ##class(DOM.PM.dto.ProductData).%New()
-	Set ProductData.PRNr = 418715
-	Set ProductData.DossierNummer = "KIHI"
-	
-	Do ..MaakProductEenmalig(TBXKenmerken,ProductData)
-]]></Implementation>
-</Method>
-
-<Method name="MaakProductEenmalig">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,ProductData:DOM.PM.dto.ProductData</FormalSpec>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	Set BerekeningServiceProduct = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct).%New()
-	#dim Product As DOM.PM.MaatwerkProduct = BerekeningServiceProduct.MaakProductVanKenmerken(IngegevenKenmerken, ##class(DOM.VKP.enu.Klant).VanHoecke(), 1, ProductData)
-	Quit Product.GeefPRNr()
-]]></Implementation>
-</Method>
-
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[