IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Replace xaccTransAppendSplit by xaccSplitSetParent in a few scheme

Browse Source 
files.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@15053 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Andreas Köhler 2006-10-21 13:26:59 +00:00
parent 821b3ad587
commit db409d6cee
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/engine/engine-interface.scm
View File

@ -279,7 +279,7 @@
(gnc:split-scm-set-account-guid split-scm new-guid) (gnc:split-scm-set-account-guid split-scm new-guid)
(gnc:split-scm-onto-split split-scm new-split book) (gnc:split-scm-onto-split split-scm new-split book)
(gnc:split-scm-set-account-guid split-scm old-guid) (gnc:split-scm-set-account-guid split-scm old-guid)
(xaccTransAppendSplit trans new-split))) (xaccSplitSetParent new-split trans)))
(gnc:transaction-scm-get-split-scms trans-scm)) (gnc:transaction-scm-get-split-scms trans-scm))
;; close the transaction ;; close the transaction

10
src/import-export/qif-import/qif-to-gnc.scm
View File

@ -481,13 +481,13 @@
;; finally, plug the split into the account ;; finally, plug the split into the account
(xaccSplitSetAccount gnc-far-split far-acct) (xaccSplitSetAccount gnc-far-split far-acct)
(xaccTransAppendSplit gnc-xtn gnc-far-split)))) (xaccSplitSetParent gnc-far-split gnc-xtn))))
splits) splits)
;; the value of the near split is the total of the far splits. ;; the value of the near split is the total of the far splits.
(xaccSplitSetValue gnc-near-split near-split-total) (xaccSplitSetValue gnc-near-split near-split-total)
(xaccSplitSetAmount gnc-near-split near-split-total) (xaccSplitSetAmount gnc-near-split near-split-total)
(xaccTransAppendSplit gnc-xtn gnc-near-split) (xaccSplitSetParent gnc-near-split gnc-xtn)
(xaccSplitSetAccount gnc-near-split near-acct)) (xaccSplitSetAccount gnc-near-split near-acct))
;; STOCK TRANSACTIONS: the near/far accounts depend on the ;; STOCK TRANSACTIONS: the near/far accounts depend on the
@ -631,15 +631,15 @@
(if (and qif-near-acct qif-far-acct) (if (and qif-near-acct qif-far-acct)
(begin (begin
(xaccTransAppendSplit gnc-xtn gnc-near-split) (xaccSplitSetParent gnc-near-split gnc-xtn)
(xaccSplitSetAccount gnc-near-split near-acct) (xaccSplitSetAccount gnc-near-split near-acct)
(xaccTransAppendSplit gnc-xtn gnc-far-split) (xaccSplitSetParent gnc-far-split gnc-xtn)
(xaccSplitSetAccount gnc-far-split far-acct) (xaccSplitSetAccount gnc-far-split far-acct)
(if commission-split (if commission-split
(begin (begin
(xaccTransAppendSplit gnc-xtn commission-split) (xaccSplitSetParent commission-split gnc-xtn)
(xaccSplitSetAccount commission-split (xaccSplitSetAccount commission-split
commission-acct))))))) commission-acct)))))))
;; return the modified transaction (though it's ignored). ;; return the modified transaction (though it's ignored).

2
src/import-export/qif-io-core/qif-bank-xtn-import.scm
View File

@ -74,7 +74,7 @@
(xaccAccountBeginEdit acct) (xaccAccountBeginEdit acct)
(xaccSplitSetAccount split acct) (xaccSplitSetAccount split acct)
(xaccAccountCommitEdit acct) (xaccAccountCommitEdit acct)
(xaccTransAppendSplit gnc-xtn split) (xaccSplitSetParent split gnc-xtn)
split)) split))
(xaccTransBeginEdit gnc-xtn) (xaccTransBeginEdit gnc-xtn)

2
src/import-export/qif-io-core/qif-invst-xtn-import.scm
View File

@ -172,7 +172,7 @@
(xaccAccountBeginEdit acct) (xaccAccountBeginEdit acct)
(xaccSplitSetAccount split acct) (xaccSplitSetAccount split acct)
(xaccAccountCommitEdit acct) (xaccAccountCommitEdit acct)
(xaccTransAppendSplit gnc-xtn split) (xaccSplitSetParent split gnc-xtn)
split)) split))
(define (lookup-balance acct-info) (define (lookup-balance acct-info)