Index: DOM/PM/impl/VerkoopPrijsBepaler/TbxHelper.cls.xml
===================================================================
diff -u -r39249 -r65961
--- DOM/PM/impl/VerkoopPrijsBepaler/TbxHelper.cls.xml	(.../TbxHelper.cls.xml)	(revision 39249)
+++ DOM/PM/impl/VerkoopPrijsBepaler/TbxHelper.cls.xml	(.../TbxHelper.cls.xml)	(revision 65961)
@@ -26,14 +26,57 @@
 ]]></Implementation>
 </Method>
 
+<UDLText name="T">
+<Content><![CDATA[
+/*
+!!! OPGELET : Code-technisch probleem bij de method BepaalVerkoopPrijs() van deze klasse !!!
+
+De public method wordt
+ - 1x opgeroepen met DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy
+ - 1x opgeroepen met APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy 
+
+DOM.PM.impl.VerkoopPrijsBepaler.cls(BepaalVerkoopPrijs+8): #dim VerkoopPrijs As %String = ..TbxHelper.BepaalVerkoopPrijs(IngegevenKenmerken.LegacyKenmerken, Aantal, KlantIDVoorPrijsBerekening)
+WSimpl.Vhisie4.Winkelkar.WinkelkarExport.TbxWinkelkarConverter.Converter.cls(VergelijkPrijs+8): #dim BerekendeVerkoopprijs As %Decimal = ..VerkoopPrijsBepalerTbx.BepaalVerkoopPrijs(LegacyKenmerken,Aantal,KlantId)
+
+Deze fout is niet eerder ontdekt, vanwege geen strong-type controle in Caché en omdat de DOM- en APPS-legacyKenmerken dezelfde properties hebben.
+In de eerste commit is het function argument type fout, want moest DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy zijn.
+
+
+Revision: 38918
+Author: TomV
+Date: vrijdag 6 januari 2017 15:07:34
+Message:
+[UST2041]Vh4 TBX: Prijsberekening aftakken naar oldstyle TBX-prijscode
+- VerkoopprijsBepaler aangepast opdat ie ook met TBXKenmerken
+- Logica in helperklaske gestoken dat later weer weggesmeten mag worden als we over dom en apps laag gaan gaan
+- Testje rond helperklaske, na opkuis van code (volgende commit) zal deze wel verplaatst worden.
+----
+Modified : /trunk2010/DOM/PM/impl/VerkoopPrijsBepaler/TbxHelper.cls.xml
+Modified : /trunk2010/DOM/PM/impl/VerkoopPrijsBepaler.cls.xml
+----
+
+
+Revision: 39686
+Author: JoC
+Date: dinsdag 7 februari 2017 21:49:07
+Message:
+[UST2084] Vh4_Migr.: SOAP-kanaal implementeren en toepassen op Beslag-winkelkarren (met bijhouden van status)
+- We kunnen TbxWinkelkarren ook converteren --> der staat hier en daar nog wat debugging troep in de code maar die zal er morgen in de loop van de dag wel uitgehaald worden.
+----
+Modified : /trunk2010/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/TbxWinkelkarConverter/Converter.cls.xml
+----
+*/
+]]></Content>
+</UDLText>
+
 <Method name="BepaalVerkoopPrijs">
 <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 ..VulInWebOrderLijn(WebOrderLijn,IngegevenKenmerken,Aantal)
 
 	Do ..WebOrder.Lijnen.SetAt(WebOrderLijn,1)
 	Set ..WebOrder.NietMeeleveren = IngegevenKenmerken.NietMeeleveren
@@ -42,7 +85,13 @@
 	Do blTBox.Initialize($LG(..WebOrder.DCsFromLijnen(),1))
 	Do blTBox.BuildFromWS(..WebOrder,"PRS=1;SAV=0;KPR=0")
 	
-	Quit ..WebOrder.Lijnen.GetAt(1).KostPrijs
+	#dim KostPrijs As %String = ..WebOrder.Lijnen.GetAt(1).KostPrijs
+	
+	If KostPrijs = "ERROR" {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Prijs kon niet berekend worden. Zie vhLibLogging (Actie = 'Fout in berekening TBX')."))
+	} Else {
+		Quit KostPrijs
+	}
 ]]></Implementation>
 </Method>
 
@@ -67,43 +116,11 @@
 </Method>
 
 <Method name="VulInWebOrderLijn">
-<FormalSpec><![CDATA[&WebOrderLijn:WS.TBX.EM.OrderLijn,Product:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy]]></FormalSpec>
+<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
+	Do ##class(APPS.PM.Maatwerk.impl.TBX.LegacyNaarWebOrderConverter).ConverteerLegacyNaarWebOrderLijn(WebOrderLijn, Product)
+	set WebOrderLijn.Qty = Aantal
 ]]></Implementation>
 </Method>
 </Class>