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

* src/report/standard-reports/cash-flow.scm: only asset accounts

Browse Source 
are in the default account selection, tables use normal-row
	  and alternate-row


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@7893 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Derek Atkins 2003-01-30 01:56:16 +00:00
parent 64e3df7a5f
commit bd57bf6706
2 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ChangeLog
View File

@ -1,3 +1,9 @@
2003-01-29 Herbert Thoma <herbie@hthoma.de>
* src/report/standard-reports/cash-flow.scm: only asset accounts
are in the default account selection, tables use normal-row
and alternate-row
2003-01-28 Derek Atkins <derek@ihtfp.com>
* configure.in -- fix the PG test to deal properly with non-standard

14
src/report/standard-reports/cash-flow.scm
View File

@ -91,8 +91,7 @@
optname-accounts "a" 2
(lambda ()
(gnc:filter-accountlist-type
'(bank cash credit asset liability stock mutual-fund currency
payable receivable equity)
'(bank cash asset stock mutual-fund)
(gnc:group-get-subaccounts (gnc:get-current-group)))))
;; Set the general page as default option tab
@ -119,7 +118,8 @@
(show-subaccts? (get-option gnc:pagename-accounts
optname-show-subaccounts))
(accounts (get-option gnc:pagename-accounts
optname-accounts))
optname-accounts))
(row-num 0)
(work-done 0)
(work-to-do 0)
(report-currency (get-option gnc:pagename-general
@ -379,17 +379,19 @@
(_ "Money In")
""))
(set! row-num 0)
(set! work-done 0)
(set! work-to-do (length money-in-alist))
(for-each
(lambda (account)
(set! row-num (+ 1 row-num))
(set! work-done (+ 1 work-done))
(gnc:report-percent-done (+ 90 (* 5 (/ work-done work-to-do))))
(let* ((pair (account-in-alist account money-in-alist))
(acct (car pair)))
(gnc:html-table-append-row/markup!
table
"normal-row"
(if (odd? row-num) "normal-row" "alternate-row")
(list
;(gnc:html-account-anchor acct)
(gnc:make-html-text
@ -422,17 +424,19 @@
(_ "Money Out")
""))
(set! row-num 0)
(set! work-done 0)
(set! work-to-do (length money-out-alist))
(for-each
(lambda (account)
(set! row-num (+ 1 row-num))
(set! work-done (+ 1 work-done))
(gnc:report-percent-done (+ 95 (* 5 (/ work-done work-to-do))))
(let* ((pair (account-in-alist account money-out-alist))
(acct (car pair)))
(gnc:html-table-append-row/markup!
table
"normal-row"
(if (odd? row-num) "normal-row" "alternate-row")
(list
;(gnc:html-account-anchor acct)
(gnc:make-html-text