Index: vhTest/Mock/DOM/VKP/Order.cls.xml
===================================================================
diff -u -r47493 -r47503
--- vhTest/Mock/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 47493)
+++ vhTest/Mock/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 47503)
@@ -466,6 +466,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetOorsprongKetting">
+<FormalSpec>OorsprongKetting:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetOorsprongKetting",OorsprongKetting)
+]]></Implementation>
+</Method>
+
 <Method name="ZetOrderReferentie">
 <FormalSpec>value:%String</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetOrderReferentie",value)
Index: DOM/VKP/Order.cls.xml
===================================================================
diff -u -r47493 -r47503
--- DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 47493)
+++ DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 47503)
@@ -384,6 +384,11 @@
 <FormalSpec>OorsprongDetail:%String</FormalSpec>
 </Method>
 
+<Method name="ZetOorsprongKetting">
+<Abstract>1</Abstract>
+<FormalSpec>OorsprongKetting:%String</FormalSpec>
+</Method>
+
 <Method name="GeefEDINummer">
 <Abstract>1</Abstract>
 <ReturnType>%String</ReturnType>
Index: DOM/VKP/impl/DataM/DataMOrder.cls.xml
===================================================================
diff -u -r47493 -r47503
--- DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 47493)
+++ DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 47503)
@@ -836,13 +836,21 @@
 </Method>
 
 <Method name="ZetOorsprongDetail">
-<FormalSpec>OorsprongDetail:BL.Flow.Offerte.enu.Oorsprong</FormalSpec>
+<FormalSpec>OorsprongDetail:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ..HoofdingData.ZetPiece(54,OorsprongDetail)
 	Do ..%SetModified(1)
 ]]></Implementation>
 </Method>
 
+<Method name="ZetOorsprongKetting">
+<FormalSpec>OorsprongKetting:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..HoofdingData.ZetPiece(58,OorsprongKetting)
+	Do ..%SetModified(1)
+]]></Implementation>
+</Method>
+
 <Method name="GeefEDINummer">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..HoofdingData.GeefPiece(40)
Index: APPS/VKP/OrderIngaveService.cls.xml
===================================================================
diff -u -r47493 -r47503
--- APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 47493)
+++ APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 47503)
@@ -187,7 +187,7 @@
 
 		Do Order.ZetAfleveradres(LeverAdres)
 		Do Order.ZetOorsprong(##class(BL.Flow.Offerte.enu.Oorsprong).UniShop())
-		Do Order.ZetOorsprongDetail($$$LCVT(..BepaalOorsprongDetail(Offerte)))
+		Do Order.ZetOorsprongKetting($$$LCVT(..BepaalOorsprongKetting(Offerte)))
 		Do Order.ZetEDINummer(Offerte.GeefEDINummerVoorEindklant())
 		
 		If ..GebruiktExternTransport(Offerte) {
@@ -291,12 +291,13 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalOorsprongDetail">
+<Method name="BepaalOorsprongKetting">
 <FormalSpec>Offerte:APPS.VKP.impl.Offerte</FormalSpec>
+<Private>1</Private>
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
 	#dim Detail As %String = $listbuild($listbuild(Offerte.GeefPersonalityID(),Offerte.GeefKlantID(),Offerte.GeefID()))
-	if $length(Offerte.GeefKlantBestellingId()) set Detail = ..BepaalOorsprongDetail(..OfferteRepository.GeefViaID(Offerte.GeefKlantBestellingId())) _ Detail
+	if $length(Offerte.GeefKlantBestellingId()) set Detail = ..BepaalOorsprongKetting(..OfferteRepository.GeefViaID(Offerte.GeefKlantBestellingId())) _ Detail
 	quit Detail
 ]]></Implementation>
 </Method>
Index: vhTest/Utils/DOM/VKP/Order.cls.xml
===================================================================
diff -u -r47493 -r47503
--- vhTest/Utils/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 47493)
+++ vhTest/Utils/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 47503)
@@ -14,6 +14,7 @@
 	Do Order.IndienMethodCall("ZetAfleveradres",$$$ElkeWaarde).DanDoeNiks()
 	Do Order.IndienMethodCall("ZetOorsprong",$$$ElkeWaarde).DanDoeNiks()
 	Do Order.IndienMethodCall("ZetOorsprongDetail",$$$ElkeWaarde).DanDoeNiks()
+	Do Order.IndienMethodCall("ZetOorsprongKetting",$$$ElkeWaarde).DanDoeNiks()
 	Do Order.IndienMethodCall("ZetEDINummer",$$$ElkeWaarde).DanDoeNiks()
 	Do Order.IndienMethodCall("ZetLeveringVoorwaarde",$$$ElkeWaarde).DanDoeNiks()
 	Do Order.IndienMethodCall("ZetVerzendingWijze",$$$ElkeWaarde).DanDoeNiks()