fix bug related to transfers

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@1893 57a11ea4-9604-0410-9ed3-97b8803252fd
27 years ago · ffa5f24b2f
parent 8e801818fe
commit ffa5f24b2f
1 changed files with 5 additions and 0 deletions
--- a/src/SplitLedger.c
+++ b/src/SplitLedger.c
@ -470,7 +470,12 @@ xaccSRSaveRegEntry (SplitRegister *reg)
      if (!other_split) {
         other_split = xaccTransGetSplit (trans, 1);
         if (!other_split) {
+            double  amt = xaccSplitGetShareAmount (split);
+            double  prc = xaccSplitGetSharePrice (split);
            other_split = xaccMallocSplit ();
+            xaccSplitSetMemo (other_split, xaccSplitGetMemo (split));
+            xaccSplitSetAction (other_split, xaccSplitGetAction (split));
+            xaccSplitSetSharePriceAndAmount (other_split, prc, -amt);
            xaccTransAppendSplit (trans, other_split);
         }
      }