r22780 - gnucash/trunk/src/report/locale-specific/us - Update taxtxf.scm to fix beginning balance sign and signs for Transfer From/To amounts for

J. Alex Aycinena alex.aycinena at code.gnucash.org
Sat Feb 16 17:50:02 EST 2013


Author: alex.aycinena
Date: 2013-02-16 17:50:01 -0500 (Sat, 16 Feb 2013)
New Revision: 22780
Trac: http://svn.gnucash.org/trac/changeset/22780

Modified:
   gnucash/trunk/src/report/locale-specific/us/taxtxf.scm
Log:
Update taxtxf.scm to fix beginning balance sign and signs for Transfer From/To amounts for 

Modified: gnucash/trunk/src/report/locale-specific/us/taxtxf.scm
===================================================================
--- gnucash/trunk/src/report/locale-specific/us/taxtxf.scm	2013-02-14 19:29:54 UTC (rev 22779)
+++ gnucash/trunk/src/report/locale-specific/us/taxtxf.scm	2013-02-16 22:50:01 UTC (rev 22780)
@@ -58,6 +58,11 @@
 ;; place of xaccTransGetNum and function gnc-get-action-num in place of
 ;; xaccSplitGetAction and modify report headings accordingly
 ;;
+;; February, 2013 Update:
+;;
+;; Fix beginning balance sign and signs for Transfer From/To amounts for 
+;; liability/equity accounts
+;;
 ;; From prior version:
 ;; NOTE: setting of specific dates is squirly! and seems
 ;; to be current-date dependant!  Actually, time of day dependant!  Just
@@ -859,7 +864,11 @@
                         (split-acct-commodity
                                            (xaccAccountGetCommodity split-acct))
                         (splt-amnt (xaccSplitGetAmount tran-split))
-                        (splt-amnt (if (eq? acct-type ACCT-TYPE-INCOME)
+                        (splt-amnt (if (or (eq? acct-type ACCT-TYPE-INCOME)
+                                           (eq? acct-type ACCT-TYPE-CREDIT)
+                                           (eq? acct-type ACCT-TYPE-PAYABLE)
+                                           (eq? acct-type ACCT-TYPE-LIABILITY)
+                                           (eq? acct-type ACCT-TYPE-EQUITY))
                                             splt-amnt
                                             (gnc-numeric-neg splt-amnt)))
                         (print-info (gnc-account-print-info split-acct #f))
@@ -1182,7 +1191,7 @@
               );; B/S acct with either beg bal, splits or end bal
               ;; print beg bal line for B/S accts
               (let* ((curr-conv-note "")
-                     (curr-conv-data (list beg-bal-acct-curr
+                     (curr-conv-data (list beg-bal-rpt-amount
                                                           curr-conv-note #f ""))
                      (curr-conv-data (if (gnc-commodity-equiv
                                                  account-commodity USD-currency)



More information about the gnucash-changes mailing list