Index: DOM/VKP/impl/DataM/DataMOrder.cls.xml
===================================================================
diff -u -r47352 -r47493
--- DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 47352)
+++ DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 47493)
@@ -113,7 +113,7 @@
 	Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Do ##class(vhLib.Logger).LogEnMailExceptie(Exception,"DocumentReferenties niet O.K. bij DataMOrder %OnOpen voor ID='"_..%Id()_"'.")
-		Set sc=$$SendMiniMail^vhLib.Mail($$$SystemMail("system"),$LB("WV"),"DataMOrder probleem bij %OnOpen ID='"_..%Id()_"'.","DocumentReferenties niet oké."_$$GetStackToString^vhLib())
+		Do SendMiniMail^vhLib.Mail($$$SystemMail("system"),$LB("WV"),"DataMOrder probleem bij %OnOpen ID='"_..%Id()_"'.","DocumentReferenties niet oké."_$$GetStackToString^vhLib())
 	}
 	Quit $$$OK
 ]]></Implementation>
@@ -835,6 +835,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetOorsprongDetail">
+<FormalSpec>OorsprongDetail:BL.Flow.Offerte.enu.Oorsprong</FormalSpec>
+<Implementation><![CDATA[
+	Do ..HoofdingData.ZetPiece(54,OorsprongDetail)
+	Do ..%SetModified(1)
+]]></Implementation>
+</Method>
+
 <Method name="GeefEDINummer">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..HoofdingData.GeefPiece(40)
Index: vhTest/Mock/DOM/VKP/Order.cls.xml
===================================================================
diff -u -r47352 -r47493
--- vhTest/Mock/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 47352)
+++ vhTest/Mock/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 47493)
@@ -460,6 +460,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetOorsprongDetail">
+<FormalSpec>OorsprongDetail:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetOorsprongDetail",OorsprongDetail)
+]]></Implementation>
+</Method>
+
 <Method name="ZetOrderReferentie">
 <FormalSpec>value:%String</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetOrderReferentie",value)
Index: Flow/Order/Hoofding.cls.xml
===================================================================
diff -u -r42606 -r47493
--- Flow/Order/Hoofding.cls.xml	(.../Hoofding.cls.xml)	(revision 42606)
+++ Flow/Order/Hoofding.cls.xml	(.../Hoofding.cls.xml)	(revision 47493)
@@ -517,6 +517,18 @@
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
+<Property name="Oorsprong">
+<Type>%Library.String</Type>
+<Parameter name="MAXLEN" value="500"/>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="OorsprongDetail">
+<Type>%Library.String</Type>
+<Parameter name="MAXLEN" value="500"/>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
 <Property name="AxSalesId">
 <Type>%Library.String</Type>
 <Parameter name="MAXLEN" value="20"/>
@@ -645,6 +657,16 @@
 <Node>{1D4}</Node>
 <Piece>1</Piece>
 </Data>
+<Data name="Oorsprong">
+<Delimiter>"\"</Delimiter>
+<Node>{1D3}</Node>
+<Piece>53</Piece>
+</Data>
+<Data name="OorsprongDetail">
+<Delimiter>"\"</Delimiter>
+<Node>{1D3}</Node>
+<Piece>54</Piece>
+</Data>
 <Data name="Opmerking1">
 <Delimiter>"\"</Delimiter>
 <Node>{1D4}</Node>
Index: vhTest/Dummy/APPS/VKP/impl/Offerte.cls.xml
===================================================================
diff -u -r45851 -r47493
--- vhTest/Dummy/APPS/VKP/impl/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 45851)
+++ vhTest/Dummy/APPS/VKP/impl/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 47493)
@@ -15,6 +15,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantBestellingId">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ""
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 </Storage>
Index: APPS/VKP/OrderIngaveService.cls.xml
===================================================================
diff -u -r44349 -r47493
--- APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 44349)
+++ APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 47493)
@@ -187,6 +187,7 @@
 
 		Do Order.ZetAfleveradres(LeverAdres)
 		Do Order.ZetOorsprong(##class(BL.Flow.Offerte.enu.Oorsprong).UniShop())
+		Do Order.ZetOorsprongDetail($$$LCVT(..BepaalOorsprongDetail(Offerte)))
 		Do Order.ZetEDINummer(Offerte.GeefEDINummerVoorEindklant())
 		
 		If ..GebruiktExternTransport(Offerte) {
@@ -289,6 +290,16 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="BepaalOorsprongDetail">
+<FormalSpec>Offerte:APPS.VKP.impl.Offerte</FormalSpec>
+<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
+	quit Detail
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Utils/DOM/VKP/Order.cls.xml
===================================================================
diff -u -r46395 -r47493
--- vhTest/Utils/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 46395)
+++ vhTest/Utils/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 47493)
@@ -13,6 +13,7 @@
 	Do Order.IndienMethodCall("ZetDocumentReferenties",$$$ElkeWaarde).DanDoeNiks()
 	Do Order.IndienMethodCall("ZetAfleveradres",$$$ElkeWaarde).DanDoeNiks()
 	Do Order.IndienMethodCall("ZetOorsprong",$$$ElkeWaarde).DanDoeNiks()
+	Do Order.IndienMethodCall("ZetOorsprongDetail",$$$ElkeWaarde).DanDoeNiks()
 	Do Order.IndienMethodCall("ZetEDINummer",$$$ElkeWaarde).DanDoeNiks()
 	Do Order.IndienMethodCall("ZetLeveringVoorwaarde",$$$ElkeWaarde).DanDoeNiks()
 	Do Order.IndienMethodCall("ZetVerzendingWijze",$$$ElkeWaarde).DanDoeNiks()
Index: DOM/VKP/Order.cls.xml
===================================================================
diff -u -r47352 -r47493
--- DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 47352)
+++ DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 47493)
@@ -379,6 +379,11 @@
 <FormalSpec>Oorsprong:BL.Flow.Offerte.enu.Oorsprong</FormalSpec>
 </Method>
 
+<Method name="ZetOorsprongDetail">
+<Abstract>1</Abstract>
+<FormalSpec>OorsprongDetail:%String</FormalSpec>
+</Method>
+
 <Method name="GeefEDINummer">
 <Abstract>1</Abstract>
 <ReturnType>%String</ReturnType>