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

TP->T64: gnucash/report/business-reports/easy-invoice.scm

Browse Source
This commit is contained in:
Christopher Lam 2017-12-24 05:34:52 +08:00
parent 345ea0abc3
commit 5a2d47219f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gnucash/report/business-reports/easy-invoice.scm
View File

@ -166,7 +166,7 @@
(if (date-col column-vector) (if (date-col column-vector)
(addto! row-contents (addto! row-contents
(gnc-print-date (gncEntryGetDate entry)))) (qof-print-date (gncEntryGetDate entry))))
(if (description-col column-vector) (if (description-col column-vector)
(addto! row-contents (addto! row-contents
@ -426,7 +426,7 @@
(if (date-col used-columns) (if (date-col used-columns)
(addto! row (addto! row
(gnc-print-date (gnc-transaction-get-date-posted t)))) (qof-print-date (xaccTransGetDate t))))
(if (description-col used-columns) (if (description-col used-columns)
(addto! row (_ "Payment, thank you"))) (addto! row (_ "Payment, thank you")))
@ -611,7 +611,7 @@
(list (list
(string-append label ": ") (string-append label ": ")
(string-expand (strftime date-format (string-expand (strftime date-format
(localtime (car date))) (localtime date))
#\space " ")))) #\space " "))))
(define (make-date-table) (define (make-date-table)
@ -780,7 +780,7 @@
(let ((date-table #f) (let ((date-table #f)
(post-date (gncInvoiceGetDatePosted invoice)) (post-date (gncInvoiceGetDatePosted invoice))
(due-date (gncInvoiceGetDateDue invoice))) (due-date (gncInvoiceGetDateDue invoice)))
(if (not (equal? post-date (cons 0 0))) (if (not (zero? post-date))
(begin (begin
(set! date-table (make-date-table)) (set! date-table (make-date-table))
(make-date-row! date-table (_ "Date") post-date date-format) (make-date-row! date-table (_ "Date") post-date date-format)