Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoeger/Test.cls.xml
===================================================================
diff -u -r37663 -r38248
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoeger/Test.cls.xml	(.../Test.cls.xml)	(revision 37663)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoeger/Test.cls.xml	(.../Test.cls.xml)	(revision 38248)
@@ -40,6 +40,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Referentie moet overgezet worden naar KlantRef">
+<Implementation><![CDATA[
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	Do ..VoegLadeToe("TBX", Orderlijnen)
+	Set Orderlijnen.GetAt(1).Referentie = "KlantReferentie"
+	
+	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
+	Set Aanvraag.Order.Lijnen = Orderlijnen
+	
+	Set TrueValidator = ##class(vhTest.Fake.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductValidator).%New()
+	Set WebOrder = ##class(WS.TBX.Order).%New()
+	
+	Set ProductValidatorStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductValidator).%New()
+	Do ProductValidatorStub.IndienMethodCall("IsValid",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn($$$True)
+	
+	Set ProductlijnToevoeger = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductlijnToevoeger).%New(ProductValidatorStub)
+	Do ProductlijnToevoeger.VoegToeLijnen(Aanvraag.Order, WebOrder)
+	
+	Do $$$AssertEquals(WebOrder.Lijnen.GetAt(1).KlantRef,"KlantReferentie")
+]]></Implementation>
+</Method>
+
 <Method name="Test: 2 lijn toevoegen indien validatie geslaagd is">
 <Implementation><![CDATA[
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoeger.cls.xml
===================================================================
diff -u -r37331 -r38248
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoeger.cls.xml	(.../ProductlijnToevoeger.cls.xml)	(revision 37331)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoeger.cls.xml	(.../ProductlijnToevoeger.cls.xml)	(revision 38248)
@@ -34,7 +34,7 @@
 <Method name="VoegToeLijnen">
 <FormalSpec><![CDATA[Order:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order,&WebOrder:WS.TBX.Order]]></FormalSpec>
 <Implementation><![CDATA[
-	Quit:$$$Not($IsObject(Order))	
+	Quit:$$$Not($IsObject(Order))
 	
 	Set ..WebOrder = WebOrder
 	Set ValueList = ##class(TECH.KeyValue.List).%New()
@@ -74,6 +74,7 @@
 	#dim ConvertOpties As TECH.KeyValue.List = ##class(TECH.KeyValue.List).%New()
 	Do ConvertOpties.InsertKeyValue("Aantal",Lijn.Aantal)
 	Do ..WebOrder.Lijnen.SetAt(..ProductConverter.Convert(Lijn.Product,, ConvertOpties), ..WebOrder.Lijnen.Count()+1 )
+	Set ..WebOrder.Lijnen.GetAt(..WebOrder.Lijnen.Count()).KlantRef = Lijn.Referentie
 ]]></Implementation>
 </Method>
 </Class>