Index: APPS/PM/Maatwerk/impl/BerekeningServiceProduct.cls.xml
===================================================================
diff -u -r39815 -r39836
--- APPS/PM/Maatwerk/impl/BerekeningServiceProduct.cls.xml	(.../BerekeningServiceProduct.cls.xml)	(revision 39815)
+++ APPS/PM/Maatwerk/impl/BerekeningServiceProduct.cls.xml	(.../BerekeningServiceProduct.cls.xml)	(revision 39836)
@@ -119,7 +119,7 @@
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,KlantID:DOM.VKP.VanHoeckeKlantID,Aantal:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.PM.MaatwerkProduct</ReturnType>
-<Implementation><![CDATA[	quit ""
+<Implementation><![CDATA[	Quit ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct.TbxHelper).%New().MaakProduct(IngegevenKenmerken.LegacyKenmerken, KlantID, Aantal)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/PM/Maatwerk/impl/BerekeningServiceProduct/TbxHelper.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/impl/BerekeningServiceProduct/TbxHelper.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/impl/BerekeningServiceProduct/TbxHelper.cls.xml	(revision 39836)
@@ -0,0 +1,114 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.PM.Maatwerk.impl.BerekeningServiceProduct.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="MaakProduct">
+<FormalSpec>IngegevenKenmerken:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy,KlantID:DOM.VKP.VanHoeckeKlantID,Aantal:%String</FormalSpec>
+<ReturnType>DOM.PM.MaatwerkProduct</ReturnType>
+<Implementation><![CDATA[
+	Set ..WebOrder = ##class(WS.TBX.Order).%New()
+	Do ..ZetHoofding(KlantID)
+
+	Set WebOrderLijn = ##class(WS.TBX.EM.OrderLijn).%New()
+	Do ..VulInWebOrderLijn(WebOrderLijn,IngegevenKenmerken,Aantal)
+
+	Do ..WebOrder.Lijnen.SetAt(WebOrderLijn,1)
+	Set ..WebOrder.NietMeeleveren = IngegevenKenmerken.NietMeeleveren
+
+	Set blTBox=##class(BL.PR.GA.TandemBox).%New()
+	Do blTBox.Initialize($LG(..WebOrder.DCsFromLijnen(),1))
+	#dim ProductID As %String = $List(blTBox.BuildFromWS(..WebOrder,"PRS=1;SAV=0;KPR=1"),1)
+	
+	Quit ##class(DOM.PM.TBXProduct.impl.TBXLadeImpl).%New(ProductID)
+]]></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,Aantal:%Integer]]></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
+	set WebOrderLijn.Qty = Aantal
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>