Index: vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/TbxHelper/BepaalVerkoopPrijs/Test.cls.xml
===================================================================
diff -u -r38913 -r38918
--- vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/TbxHelper/BepaalVerkoopPrijs/Test.cls.xml	(.../Test.cls.xml)	(revision 38913)
+++ vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/TbxHelper/BepaalVerkoopPrijs/Test.cls.xml	(.../Test.cls.xml)	(revision 38918)
@@ -3,16 +3,16 @@
 <Class name="vhUnitTest.DOM.PM.impl.VerkoopPrijsBepaler.TbxHelper.BepaalVerkoopPrijs.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test">
+<Method name="Test StandaardLade">
 <Implementation><![CDATA[
-	#dim Aantal As %Integer = 0
-	#dim KlantID As %String = "1000"
-	#dim LegacyKenmerken = ##class(vhTest.Utils.WS.TBX.EM.OrderLijn).StandaardLade()
+	#dim Aantal As %Integer = 1
+	#dim KlantID As %String = "K||1000"
+	#dim LegacyKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).StandaardLade()
 	
 	Set TbxHelper = ##class(DOM.PM.impl.VerkoopPrijsBepaler.TbxHelper).%New()
 	#dim VerkoopPrijs As %Numeric = TbxHelper.BepaalVerkoopPrijs(LegacyKenmerken, Aantal, KlantID)
 	
-	do $$$AssertEquals(VerkoopPrijs,0)
+	do $$$AssertEquals(VerkoopPrijs,51.47)
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/impl/VerkoopPrijsBepaler.cls.xml
===================================================================
diff -u -r38913 -r38918
--- DOM/PM/impl/VerkoopPrijsBepaler.cls.xml	(.../VerkoopPrijsBepaler.cls.xml)	(revision 38913)
+++ DOM/PM/impl/VerkoopPrijsBepaler.cls.xml	(.../VerkoopPrijsBepaler.cls.xml)	(revision 38918)
@@ -49,9 +49,7 @@
 		#dim KostItemsBoom As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem = ..MaatwerkCalcAPI.GeefKostItemsBoom(IngegevenKenmerken,Aantal,KlantIDVoorPrijsBerekening,##class(DOM.common.VanHoeckePersonality).Instance())
 		Set Verkoopprijs = ..KostNaarVerkoopPrijs(KostItemsBoom.GeefKost(), IngegevenKenmerken,Aantal,KlantIDVoorPrijsBerekening)
 	} Else {
-		If $isObject(IngegevenKenmerken.Legacy) {
-			Set Verkoopprijs = ..TbxHelper.BepaalVerkoopPrijs(IngegevenKenmerken.Legacy, Aantal, KlantID)
-		}
+		Set Verkoopprijs = ..TbxHelper.BepaalVerkoopPrijs(IngegevenKenmerken.Legacy, Aantal, KlantID)
 	}
 	
 	Quit Verkoopprijs
Index: DOM/PM/impl/VerkoopPrijsBepaler/TbxHelper.cls.xml
===================================================================
diff -u -r38913 -r38918
--- DOM/PM/impl/VerkoopPrijsBepaler/TbxHelper.cls.xml	(.../TbxHelper.cls.xml)	(revision 38913)
+++ DOM/PM/impl/VerkoopPrijsBepaler/TbxHelper.cls.xml	(.../TbxHelper.cls.xml)	(revision 38918)
@@ -1,13 +1,110 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.PM.impl.VerkoopPrijsBepaler.TbxHelper">
+<IncludeCode>APPS.TBXWeb.DomeinNamen</IncludeCode>
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="WebOrder">
+<Type>WS.TBX.Order</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerkoopAPI">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>VerkoopAPI:DOM.VKP.VerkoopAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..VerkoopAPI = $$$Inject(VerkoopAPI,##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="BepaalVerkoopPrijs">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Aantal:%String,KlantID:DOM.VKP.VanHoeckeKlantID</FormalSpec>
-<Implementation><![CDATA[	Quit 0
+<FormalSpec>IngegevenKenmerken:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy,Aantal:%String,KlantID:DOM.VKP.VanHoeckeKlantID</FormalSpec>
+<Implementation><![CDATA[
+	Set ..WebOrder = ##class(WS.TBX.Order).%New()
+	Do ..ZetHoofding(KlantID)
+
+	Set WebOrderLijn = ##class(WS.TBX.EM.OrderLijn).%New()
+	Do ..VulInWebOrderLijn(WebOrderLijn,IngegevenKenmerken)
+
+	Do ..WebOrder.Lijnen.SetAt(WebOrderLijn,1)
+
+	Set blTBox=##class(BL.PR.GA.TandemBox).%New()
+	Do blTBox.Initialize($LG(..WebOrder.DCsFromLijnen(),1))
+	Do blTBox.BuildFromWS(..WebOrder,"PRS=1;SAV=0;KPR=0")
+	
+	Quit ..WebOrder.Lijnen.GetAt(1).KostPrijs
 ]]></Implementation>
 </Method>
+
+<Method name="ZetHoofding">
+<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..WebOrder.BonType = "OFF"
+	Set ..WebOrder.WebDomain = $$$TBoxWebDomeinVHEPN
+	Set ..WebOrder.Opmerking1 = ""
+	Set ..WebOrder.ShowInHist = 80
+	Set ..WebOrder.LeverTijd = ""
+	Set ..WebOrder.IngaveTijdStip = ""
+	Set ..WebOrder.Commissie = ""
+	
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(KlantID)
+	Set ..WebOrder.KLNummer = Klant.GeefCode()
+	Set ..WebOrder.Taal = Klant.GeefTaal()
+	Set ..WebOrder.KLNaam = Klant.GeefNaam()
+	Set ..WebOrder.KLEMail = Klant.GeefEmail()
+]]></Implementation>
+</Method>
+
+<Method name="VulInWebOrderLijn">
+<FormalSpec><![CDATA[&WebOrderLijn:WS.TBX.EM.OrderLijn,Product:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	set WebOrderLijn.ItemKL = Product.ItemKL
+	set WebOrderLijn.ItemKB = Product.ItemKB
+	set WebOrderLijn.ItemRK = Product.ItemRK
+	set WebOrderLijn.ItemKX = Product.ItemKX
+	set WebOrderLijn.ItemKV = Product.ItemKV
+	set WebOrderLijn.ItemDS = Product.ItemDS
+	set WebOrderLijn.ItemLT = Product.ItemLT
+	set WebOrderLijn.ItemBX = Product.ItemBX
+	set WebOrderLijn.ItemCB = Product.ItemCB
+	set WebOrderLijn.ItemWD = Product.ItemWD
+	set WebOrderLijn.ItemLD = Product.ItemLD
+	set WebOrderLijn.ItemDK = Product.ItemDK
+	set WebOrderLijn.ItemFB = Product.ItemFB
+	set WebOrderLijn.ItemBM = Product.ItemBM
+	set WebOrderLijn.ItemASM = Product.ItemASM
+	set WebOrderLijn.ItemBGRP = Product.ItemBGRP
+	set WebOrderLijn.ItemSPZK = Product.ItemSPZK
+	set WebOrderLijn.ItemSB = Product.ItemSB
+	set WebOrderLijn.ItemVPK = Product.ItemVPK
+	set WebOrderLijn.ItemFS = Product.ItemFS
+	set WebOrderLijn.ItemDWV = Product.ItemDWV
+	set WebOrderLijn.ItemOPVL = Product.ItemOPVL
+	set WebOrderLijn.ItemKLROPVL = Product.ItemKLROPVL
+	set WebOrderLijn.ItemRSTL = Product.ItemRSTL
+	set WebOrderLijn.ItemSTDL = Product.ItemSTDL
+	set WebOrderLijn.ItemOLP = Product.ItemOLP
+	set WebOrderLijn.ItemDC = Product.ItemDC
+	set WebOrderLijn.ItemDCOms = Product.ItemDCOms
+	set WebOrderLijn.ItemDSOms = Product.ItemDSOms
+	set WebOrderLijn.ItemKLOms = Product.ItemKLOms
+	set WebOrderLijn.ItemKBOms = Product.ItemKBOms
+	set WebOrderLijn.ItemRKOms = Product.ItemRKOms
+	set WebOrderLijn.ItemKXOms = Product.ItemKXOms
+	set WebOrderLijn.ItemKVOms = Product.ItemKVOms
+]]></Implementation>
+</Method>
 </Class>