From 5a2d47219fa13be155c6a84d13dd056fb8c00614 Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Sun, 24 Dec 2017 05:34:52 +0800 Subject: [PATCH] TP->T64: gnucash/report/business-reports/easy-invoice.scm --- gnucash/report/business-reports/easy-invoice.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/gnucash/report/business-reports/easy-invoice.scm b/gnucash/report/business-reports/easy-invoice.scm index 3e6bbbe9e9..de14f36c72 100644 --- a/gnucash/report/business-reports/easy-invoice.scm +++ b/gnucash/report/business-reports/easy-invoice.scm @@ -166,7 +166,7 @@ (if (date-col column-vector) (addto! row-contents - (gnc-print-date (gncEntryGetDate entry)))) + (qof-print-date (gncEntryGetDate entry)))) (if (description-col column-vector) (addto! row-contents @@ -426,7 +426,7 @@ (if (date-col used-columns) (addto! row - (gnc-print-date (gnc-transaction-get-date-posted t)))) + (qof-print-date (xaccTransGetDate t)))) (if (description-col used-columns) (addto! row (_ "Payment, thank you"))) @@ -611,7 +611,7 @@ (list (string-append label ": ") (string-expand (strftime date-format - (localtime (car date))) + (localtime date)) #\space " ")))) (define (make-date-table) @@ -780,7 +780,7 @@ (let ((date-table #f) (post-date (gncInvoiceGetDatePosted invoice)) (due-date (gncInvoiceGetDateDue invoice))) - (if (not (equal? post-date (cons 0 0))) + (if (not (zero? post-date)) (begin (set! date-table (make-date-table)) (make-date-row! date-table (_ "Date") post-date date-format)