Index: APPS/PM/Maatwerk/impl/TBX/LegacyNaarWebOrderConverter.cls.xml
===================================================================
diff -u -r51479 -r51562
--- APPS/PM/Maatwerk/impl/TBX/LegacyNaarWebOrderConverter.cls.xml	(.../LegacyNaarWebOrderConverter.cls.xml)	(revision 51479)
+++ APPS/PM/Maatwerk/impl/TBX/LegacyNaarWebOrderConverter.cls.xml	(.../LegacyNaarWebOrderConverter.cls.xml)	(revision 51562)
@@ -10,7 +10,7 @@
 </Property>
 
 <Method name="Convert">
-<FormalSpec>LegacyKenmerken:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy,Aantal:%String</FormalSpec>
+<FormalSpec>LegacyKenmerken:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy,Aantal:%String,Klantnummer:%String</FormalSpec>
 <ReturnType>WS.TBX.Order</ReturnType>
 <Implementation><![CDATA[
 	Set ..WebOrder = ##class(WS.TBX.Order).%New()
@@ -21,6 +21,7 @@
 	
 	Do ..WebOrder.Lijnen.SetAt(WebOrderLijn, 1)
 	Set ..WebOrder.NietMeeleveren = LegacyKenmerken.NietMeeleveren
+	Set ..WebOrder.KLNummer = Klantnummer
 	
 	Quit ..WebOrder
 ]]></Implementation>
@@ -36,6 +37,7 @@
 <FormalSpec><![CDATA[&WebOrderLijn:WS.TBX.EM.OrderLijn,Product:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy,Aantal:%Integer]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	Set WebOrderLijn.GAMeta = "TBX"
 	Set WebOrderLijn.ItemKL = Product.ItemKL
 	Set WebOrderLijn.ItemKB = Product.ItemKB
 	Set WebOrderLijn.ItemRK = Product.ItemRK