Index: AXimpl/Admin/VKP/OrderLevenCyclus.cls.xml
===================================================================
diff -u -r43695 -r55070
--- AXimpl/Admin/VKP/OrderLevenCyclus.cls.xml	(.../OrderLevenCyclus.cls.xml)	(revision 43695)
+++ AXimpl/Admin/VKP/OrderLevenCyclus.cls.xml	(.../OrderLevenCyclus.cls.xml)	(revision 55070)
@@ -38,6 +38,18 @@
 	#Dim Order as DOM.VKP.Order = ..OrderLevenCyclusService.MaakOrderMetKlantGegevens(..KlantLookup.GeefKlantId(AxCustomerId))
 	Do Order.ZetAxSalesId(AxSalesId)
 	Do ..OrderAPI.Bewaar(Order)
+	try
+	{
+		Set KLNr=$P(Order.GeefKlantID(),"||",2)
+		Set ORDNr=Order.GeefID()
+		If KLNr, ORDNr, $D(^KOD(KLNr,"F",ORDNr,1))
+		{
+			Set $P(^KOD(KLNr,"F",ORDNr,1),"\",3)=AxSalesId
+		}
+	}
+	catch
+	{
+	}
 ]]></Implementation>
 </Method>
 </Class>