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

Correct order of account and split parameters to xaccSplitSetAccount in

Browse Source 
a few scheme files.


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

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

@ -128,7 +128,7 @@
(if account
(begin
(xaccAccountBeginEdit account)
(xaccSplitSetAccount account split)
(xaccSplitSetAccount split account)
(xaccAccountCommitEdit account)))))))
;; Defines a scheme representation of a transaction.

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

@ -480,7 +480,7 @@
(xaccSplitSetReconcile gnc-far-split #\y)))
;; finally, plug the split into the account
(xaccSplitSetAccount far-acct gnc-far-split)
(xaccSplitSetAccount gnc-far-split far-acct)
(xaccTransAppendSplit gnc-xtn gnc-far-split))))
splits)
@ -488,7 +488,7 @@
(xaccSplitSetValue gnc-near-split near-split-total)
(xaccSplitSetAmount gnc-near-split near-split-total)
(xaccTransAppendSplit gnc-xtn gnc-near-split)
(xaccSplitSetAccount near-acct gnc-near-split))
(xaccSplitSetAccount gnc-near-split near-acct))
;; STOCK TRANSACTIONS: the near/far accounts depend on the
;; "action" encoded in the Number field. It's generally the
@ -632,16 +632,16 @@
(if (and qif-near-acct qif-far-acct)
(begin
(xaccTransAppendSplit gnc-xtn gnc-near-split)
(xaccSplitSetAccount near-acct gnc-near-split)
(xaccSplitSetAccount gnc-near-split near-acct)
(xaccTransAppendSplit gnc-xtn gnc-far-split)
(xaccSplitSetAccount far-acct gnc-far-split)
(xaccSplitSetAccount gnc-far-split far-acct)
(if commission-split
(begin
(xaccTransAppendSplit gnc-xtn commission-split)
(xaccSplitSetAccount commission-acct
commission-split)))))))
(xaccSplitSetAccount commission-split
commission-acct)))))))
;; return the modified transaction (though it's ignored).
gnc-xtn))

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

@ -72,7 +72,7 @@
;; add it to the account and the transaction
(xaccAccountBeginEdit acct)
(xaccSplitSetAccount acct split)
(xaccSplitSetAccount split acct)
(xaccAccountCommitEdit acct)
(xaccTransAppendSplit gnc-xtn split)
split))

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

@ -170,7 +170,7 @@
;; add it to the account and the transaction
(xaccAccountBeginEdit acct)
(xaccSplitSetAccount acct split)
(xaccSplitSetAccount split acct)
(xaccAccountCommitEdit acct)
(xaccTransAppendSplit gnc-xtn split)
split))