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

Fix fancy invoice report. Bug #341046.

Browse Source 
Also, liberalize gnc:html-table-append-row! to accept a non-list argument.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@13985 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Chris Shoemaker 2006-05-10 03:54:45 +00:00
parent 227f13e913
commit 3ed9be95ba
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/business/business-reports/fancy-invoice.scm
View File

@ -843,8 +843,8 @@
(set! date-table (make-date-table)) (set! date-table (make-date-table))
;; oli-custom - moved invoice number here ;; oli-custom - moved invoice number here
(gnc:html-table-append-row! (gnc:html-table-append-row!
date-table (sprintf #f (_ "Invoice # %d") date-table (list (sprintf #f (_ "Invoice # %d")
(gnc:invoice-get-id invoice))) (gnc:invoice-get-id invoice))))
(make-date-row! date-table (_ "Invoice Date") post-date) (make-date-row! date-table (_ "Invoice Date") post-date)
(make-date-row! date-table (_ "Due Date") due-date) (make-date-row! date-table (_ "Due Date") due-date)
date-table) date-table)

4
src/report/report-system/html-table.scm
View File

@ -349,7 +349,9 @@
(let* ((dd (gnc:html-table-data table)) (let* ((dd (gnc:html-table-data table))
(current-num-rows (gnc:html-table-num-rows table)) (current-num-rows (gnc:html-table-num-rows table))
(new-num-rows (+ current-num-rows 1))) (new-num-rows (+ current-num-rows 1)))
(set! dd (cons newrow dd)) (if (list? newrow)
(set! dd (cons newrow dd))
(set! dd (cons (list newrow) dd)))
(gnc:html-table-set-num-rows-internal! (gnc:html-table-set-num-rows-internal!
table table
new-num-rows) new-num-rows)