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/transaction.scm: make sure we have

Browse Source 
the right number of arguments for all renderers.  Fixes #114641.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@8492 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Derek Atkins 2003-06-09 03:22:46 +00:00
parent 89368a99bb
commit 60507e9b69
2 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ChangeLog
View File

@ -1,3 +1,8 @@
2003-06-08 Derek Atkins <derek@ihtfp.com>
* src/report/standard-reports/transaction.scm: make sure we have
the right number of arguments for all renderers. Fixes #114641.
2003-06-08 Christian Stimming <stimming@tuhh.de>
* src/import-export/hbci/*.c: Remove old unused code.
@ -688,7 +693,7 @@
2003-04-04 Derek Atkins <derek@ihtfp.com>
* src/report/standard-report/transactions.scm: symbols are not
* src/report/standard-report/transaction.scm: symbols are not
strings in guile-1.6. Fixes debian bug #186004.
* doc/gnucash.1.in: it's --add-price-quotes (not quote)
* src/app-utils/date-utilities.scm: fix "WeekDelta" and add

20
src/report/standard-reports/transaction.scm
View File

@ -156,13 +156,13 @@
(used-sort-account-full-name column-vector))))
table width subheading-style)))
(define (render-month-subheading split table width subheading-style)
(define (render-month-subheading split table width subheading-style column-vector)
(let ((tm (gnc:timepair->date (gnc:transaction-get-date-posted
(gnc:split-get-parent split)))))
(add-subheading-row (strftime "%B %Y" tm)
table width subheading-style)))
(define (render-year-subheading split table width subheading-style)
(define (render-year-subheading split table width subheading-style column-vector)
(add-subheading-row (strftime "%Y" (gnc:timepair->date
(gnc:transaction-get-date-posted
(gnc:split-get-parent split))))
@ -203,7 +203,7 @@
total-collector subtotal-style))
(define (render-corresponding-account-subtotal
table width split total-collector subtotal-style)
table width split total-collector subtotal-style column-vector)
(add-subtotal-row table width
(total-string (account-namestring (gnc:split-get-account
(gnc:split-get-other-split split))
@ -213,7 +213,7 @@
total-collector subtotal-style))
(define (render-month-subtotal
table width split total-collector subtotal-style)
table width split total-collector subtotal-style column-vector)
(let ((tm (gnc:timepair->date (gnc:transaction-get-date-posted
(gnc:split-get-parent split)))))
(add-subtotal-row table width
@ -222,7 +222,7 @@
(define (render-year-subtotal
table width split total-collector subtotal-style)
table width split total-collector subtotal-style column-vector)
(let ((tm (gnc:timepair->date (gnc:transaction-get-date-posted
(gnc:split-get-parent split)))))
(add-subtotal-row table width
@ -934,7 +934,7 @@ Credit Card, and Income accounts")))))
(secondary-subtotal-renderer
table width current
secondary-subtotal-collector
def:secondary-subtotal-style)
def:secondary-subtotal-style used-columns)
(secondary-subtotal-collector 'reset #f #f)))
(primary-subtotal-renderer table width current
@ -952,7 +952,7 @@ Credit Card, and Income accounts")))))
(secondary-subheading-renderer
next
table
width def:secondary-subtotal-style)))))
width def:secondary-subtotal-style used-columns)))))
(if (and secondary-subtotal-pred
(or (not next)
@ -962,12 +962,12 @@ Credit Card, and Income accounts")))))
(begin (secondary-subtotal-renderer
table width current
secondary-subtotal-collector
def:secondary-subtotal-style)
def:secondary-subtotal-style used-columns)
(secondary-subtotal-collector 'reset #f #f)
(if next
(secondary-subheading-renderer
next table width
def:secondary-subtotal-style)))))
def:secondary-subtotal-style used-columns)))))
(do-rows-with-subtotals rest
table
@ -1003,7 +1003,7 @@ Credit Card, and Income accounts")))))
(car splits) table width def:primary-subtotal-style used-columns))
(if secondary-subheading-renderer
(secondary-subheading-renderer
(car splits) table width def:secondary-subtotal-style))
(car splits) table width def:secondary-subtotal-style used-columns))
(do-rows-with-subtotals splits table used-columns width
multi-rows? #t