Index: APPS/VKP/impl/WinkelkarLijnenNaarOrderKopieerder.cls.xml
===================================================================
diff -u -r51637 -r54166
--- APPS/VKP/impl/WinkelkarLijnenNaarOrderKopieerder.cls.xml	(.../WinkelkarLijnenNaarOrderKopieerder.cls.xml)	(revision 51637)
+++ APPS/VKP/impl/WinkelkarLijnenNaarOrderKopieerder.cls.xml	(.../WinkelkarLijnenNaarOrderKopieerder.cls.xml)	(revision 54166)
@@ -115,6 +115,8 @@
 	#dim ProductOrderLijn As DOM.VKP.ProductOrderlijn = ..OrderLevenCyclusService.VoegToeProductVoorKlant(..Order,..Order.GeefKlantID(),ProductLijn.GeefProductId(),ProductLijn.GeefAantal())
 	Do ProductOrderLijn.ZetProjectReferentie(ProductLijn.GeefProjectReferentie())
 	Do ProductOrderLijn.ZetPakketReferentie(ProductLijn.GeefPakketReferentie())
+	Do ProductOrderLijn.ZetKlantOrderlijnNr(ProductLijn.GeefKlantOrderlijnNr())
+	
 	if ..VroegsteLeverdatumPerLijn.Count() = 0 {
 		Do ##class(vhLib.Logger).%New("SalesPriceService").Debug("LEVERTERMIJN EC PV","Lev Termijn zonder ASAP beslag"_..Order.GeefID()_"   "_ProductLijn.GeefID()_"   offertelevdatum:"_..OfferteLeverdatum)
 		Do ProductOrderLijn.ZetLeverdag(..OfferteLeverdatum)		
Index: vhTest/Fake/DOM/VKP/ProductOrderlijn.cls.xml
===================================================================
diff -u -r49646 -r54166
--- vhTest/Fake/DOM/VKP/ProductOrderlijn.cls.xml	(.../ProductOrderlijn.cls.xml)	(revision 49646)
+++ vhTest/Fake/DOM/VKP/ProductOrderlijn.cls.xml	(.../ProductOrderlijn.cls.xml)	(revision 54166)
@@ -38,6 +38,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KlantOrderlijnNr">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>ID:%Integer</FormalSpec>
 <Private>1</Private>
@@ -129,6 +134,18 @@
 <Implementation><![CDATA[	Set ..ProductID = ProductID
 ]]></Implementation>
 </Method>
+
+<Method name="ZetKlantOrderlijnNr">
+<FormalSpec>KlantOrderlijnNr:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..KlantOrderlijnNr = KlantOrderlijnNr
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlantOrderlijnNr">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..KlantOrderlijnNr
+]]></Implementation>
+</Method>
 </Class>