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>