Index: DOM/PM/impl/VerkoopPrijsBepaler/TbxHelper.cls.xml
===================================================================
diff -u -r65350 -r65961
--- DOM/PM/impl/VerkoopPrijsBepaler/TbxHelper.cls.xml	(.../TbxHelper.cls.xml)	(revision 65350)
+++ DOM/PM/impl/VerkoopPrijsBepaler/TbxHelper.cls.xml	(.../TbxHelper.cls.xml)	(revision 65961)
@@ -119,41 +119,7 @@
 <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.ItemOnderdelenSpeciaal = Product.ItemOnderdelenSpeciaal
+	Do ##class(APPS.PM.Maatwerk.impl.TBX.LegacyNaarWebOrderConverter).ConverteerLegacyNaarWebOrderLijn(WebOrderLijn, Product)
 	set WebOrderLijn.Qty = Aantal
 ]]></Implementation>
 </Method>