diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm
index dc090b86f1..d33b6e7a3d 100644
--- a/C4/Acquisition.pm
+++ b/C4/Acquisition.pm
@@ -1818,6 +1818,12 @@ sub TransferOrder {
     my $newordernumber;
     (undef, $newordernumber) = NewOrder($order);
 
+    $dbh->do( q{
+        UPDATE aqorders
+        SET parent_ordernumber = ordernumber
+        WHERE ordernumber = ?
+    }, {}, $newordernumber );
+
     $query = qq{
         UPDATE aqorders_items
         SET ordernumber = ?