Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml
===================================================================
diff -u -r40580 -r54337
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 40580)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 54337)
@@ -69,7 +69,7 @@
 	Set ..WebOrder = ##class(WS.TBX.Order).%New()
 	Try {
 		Set ..Aanvraag = Aanvraag
-		Do ..ProductlijnToevoeger.VoegToeLijnen(Aanvraag.Order, ..WebOrder)
+		Do ..ProductlijnToevoeger.VoegToeLijnen(Aanvraag.Order, ..WebOrder, Aanvraag.Header.KlantID)
 		If ..WebOrder.Lijnen.Count(){
 			Do ..ZetHoofding()
 			Do ..NietmeeleverenToevoeger.VoegToeNietmeeleveren(Aanvraag.Order, ..WebOrder)
Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/LijnConverter.cls.xml
===================================================================
diff -u -r39104 -r54337
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/LijnConverter.cls.xml	(.../LijnConverter.cls.xml)	(revision 39104)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/LijnConverter.cls.xml	(.../LijnConverter.cls.xml)	(revision 54337)
@@ -29,6 +29,11 @@
 		Set WebOrderLijn.Qty = 1
 	}
 	Set WebOrderLijn.KlantRef = Lijn.Referentie
+	If (Opties.GetValuesForKey("KlantID").Count() > 0) {
+		If (Opties.GetValuesForKey("KlantID").GetAt(1) = ##class(DOM.VKP.enu.Klant).Noteborn()) {
+			Set WebOrderLijn.KlantRef = Lijn.Nummer _ "£" _ WebOrderLijn.KlantRef
+		}
+	}
 	Do ..VulInWebOrderLijn(WebOrderLijn,..ProductConverter.ConverteerEdiNaarLegacy(Lijn.Product))
 	
 	Quit WebOrderLijn
Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoeger.cls.xml
===================================================================
diff -u -r38505 -r54337
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoeger.cls.xml	(.../ProductlijnToevoeger.cls.xml)	(revision 38505)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoeger.cls.xml	(.../ProductlijnToevoeger.cls.xml)	(revision 54337)
@@ -32,7 +32,7 @@
 </Method>
 
 <Method name="VoegToeLijnen">
-<FormalSpec><![CDATA[Order:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order,&WebOrder:WS.TBX.Order]]></FormalSpec>
+<FormalSpec><![CDATA[Order:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order,&WebOrder:WS.TBX.Order,KlantID:%String=""]]></FormalSpec>
 <Implementation><![CDATA[
 	Quit:$$$Not($IsObject(Order))
 	
@@ -52,7 +52,7 @@
 	While FilterIterator.HasNext() {
 		#dim Lijn As APPS.EDI.common.dto.ProductLijn = FilterIterator.Next()
 		If ..ProductValidator.IsValid(Lijn.Product, .Exceptions) {
-			Do ..VoegToeLijn(Lijn)
+			Do ..VoegToeLijn(Lijn, KlantID)
 		} Else {
 			Set ProbleemLijnen = ProbleemLijnen _ " " _ FilterIterator.Key()
 			Set ExceptionsSmijten = $$$True
@@ -68,11 +68,12 @@
 </Method>
 
 <Method name="VoegToeLijn">
-<FormalSpec>Lijn:APPS.EDI.common.dto.ProductLijn</FormalSpec>
+<FormalSpec>Lijn:APPS.EDI.common.dto.ProductLijn,KlantID:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim ConvertOpties As TECH.KeyValue.List = ##class(TECH.KeyValue.List).%New()
 	Do ConvertOpties.InsertKeyValue("Aantal",Lijn.Aantal)
+	Do ConvertOpties.InsertKeyValue("KlantID", KlantID)
 	Do ..WebOrder.Lijnen.SetAt(..LijnConverter.Convert(Lijn,, ConvertOpties), ..WebOrder.Lijnen.Count()+1 )
 ]]></Implementation>
 </Method>