Correct order of account and split parameters to xaccSplitSetAccount in

a few scheme files.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@15052 57a11ea4-9604-0410-9ed3-97b8803252fd

src/engine/engine-interface.scm

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

src/import-export/qif-import/qif-to-gnc.scm

@@ -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))
 

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

@@ -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))

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

@@ -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))