Index: APPS/PM/Maatwerk/impl/TBX/LegacyNaarWebOrderConverter.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/impl/TBX/LegacyNaarWebOrderConverter.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/impl/TBX/LegacyNaarWebOrderConverter.cls.xml	(revision 51479)
@@ -0,0 +1,79 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.PM.Maatwerk.impl.TBX.LegacyNaarWebOrderConverter">
+<IncludeCode>APPS.TBXWeb.DomeinNamen</IncludeCode>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="WebOrder">
+<Type>WS.TBX.Order</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Convert">
+<FormalSpec>LegacyKenmerken:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy,Aantal:%String</FormalSpec>
+<ReturnType>WS.TBX.Order</ReturnType>
+<Implementation><![CDATA[
+	Set ..WebOrder = ##class(WS.TBX.Order).%New()
+	Do ..ZetHoofding()
+	
+	Set WebOrderLijn = ##class(WS.TBX.EM.OrderLijn).%New()
+	Do ..VulInWebOrderLijn(WebOrderLijn, LegacyKenmerken, Aantal)
+	
+	Do ..WebOrder.Lijnen.SetAt(WebOrderLijn, 1)
+	Set ..WebOrder.NietMeeleveren = LegacyKenmerken.NietMeeleveren
+	
+	Quit ..WebOrder
+]]></Implementation>
+</Method>
+
+<Method name="ZetHoofding">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..WebOrder.WebDomain = $$$TBoxWebDomeinVHEPN
+]]></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>