Index: WS/TBX/Order.cls.xml
===================================================================
diff -u -r419 -r490
--- WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 419)
+++ WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 490)
@@ -751,6 +751,8 @@
 	Set WSOrd=..%OpenId(wsID)
 	Quit:('$IsObject(WSOrd)) ""
 	Quit:(WSOrd.BonType'="OFFAV") WSOrd
+
+	Set WSOrd=##class(APPS.TBXWeb.Utils).OrderOmzettenNaarAndereKlant(wsID,KLNr)   ; Zal het WSOrd-object opnieuw openen (in dezelfde oref). 
 	Set WSOrd.BonType="OFF"
 	Set WSOrd.SubmitTS=""
 	Set WSOrd.KLNummer=KLNr
Index: APPS/TBXWeb/Utils.cls.xml
===================================================================
diff -u -r486 -r490
--- APPS/TBXWeb/Utils.cls.xml	(.../Utils.cls.xml)	(revision 486)
+++ APPS/TBXWeb/Utils.cls.xml	(.../Utils.cls.xml)	(revision 490)
@@ -130,6 +130,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="OrderOmzettenNaarAndereKlant">
+<Description>
+Set WSOrd=##class(APPS.TBXWeb.Utils).OrderOmzettenNaarAndereKlant(WSOrderID,KlantNrTo)  write WSOrd,! </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>WSOrderID,KlantNrTo</FormalSpec>
+<ReturnType>WS.TBX.OrderAbstract</ReturnType>
+<Implementation><![CDATA[
+	Set WebOrder=""
+	
+	Set RecentOrderID=##class(APPS.TBXWeb.Utils).GeefRecentOrderIDVanKlant(KlantNrTo)
+	If $L(RecentOrderID) {
+		Set WebOrder=##class(APPS.TBXWeb.Utils).KopieerKlantGegevens(RecentOrderID,WSOrderID)
+	}
+	Else {
+		// Geen recent order gevonden. 
+	}
+	
+	Quit WebOrder
+]]></Implementation>
+</Method>
+
 <Method name="OrdersOmzettenNaarAndereKlant">
 <Description>
 Do ##class(APPS.TBXWeb.Utils).OrdersOmzettenNaarAndereKlant(OudeKlantNr,WSOrderIDvanAndereKlant) </Description>