Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml
===================================================================
diff -u -r43327 -r43364
--- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 43327)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 43364)
@@ -28,8 +28,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DocumentReferentiesRepository">
+<Type>DOM.VKP.DocumentReferentiesRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>OrderAPI:DOM.VKP.OrderAPI,OrderLevenCyclusService:APPS.VKP.OrderLevenCyclusService,DateTimeAPI:TECH.DateTime="",AxToAdminUtils:AXimpl.AxToAdminUtils,ProductBepaler:APPS.Blum.impl.OnlineProductConfigurator.ProductBepaler</FormalSpec>
+<FormalSpec>OrderAPI:DOM.VKP.OrderAPI,OrderLevenCyclusService:APPS.VKP.OrderLevenCyclusService,DateTimeAPI:TECH.DateTime="",AxToAdminUtils:AXimpl.AxToAdminUtils,ProductBepaler:APPS.Blum.impl.OnlineProductConfigurator.ProductBepaler,DocumentReferentiesRepository:DOM.VKP.DocumentReferentiesRepository</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -40,6 +45,7 @@
 	Set ..OrderLevenCyclusService = $$$Inject(OrderLevenCyclusService,##class(APPS.VKP.OrderLevenCyclusService).%New(..DateTimeAPI))
 	Set ..AxToAdminUtils = $$$Inject(AxToAdminUtils, ##class(AXimpl.AxToAdminUtils).%New())
 	Set ..ProductBepaler = $$$Inject(ProductBepaler, ##class(AXimpl.Dynamics.SalesOrderIn.Converter.ProductBepaler).%New())
+	Set ..DocumentReferentiesRepository = $$$Inject(DocumentReferentiesRepository,##class(DOM.VKP.DocumentReferentiesRepository).%New())
 
 	Quit $$$OK
 ]]></Implementation>
@@ -53,6 +59,11 @@
 	
 	#Dim Order As DOM.VKP.Order = ..OrderLevenCyclusService.MaakOrderMetKlantGegevens(KlantID)
 	
+	#dim OrderDocRef As DOM.VKP.DocumentReferenties = ..DocumentReferentiesRepository.Maak()
+	Set OrderDocRef.OrderReferentie = OrderHeader.CustomerRef
+	Do ..DocumentReferentiesRepository.Bewaar(OrderDocRef)
+	Do Order.ZetDocumentReferenties(OrderDocRef)	
+
 	Set LeverAdres = ##class(DOM.VKP.impl.LeverAdres).%New()
 	Do LeverAdres.ZetGemeente(OrderHeader.DlvAddrCity)
 	Do LeverAdres.ZetPostcode(OrderHeader.DlvAddrZipCode)