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/receipt.eguile.scm

Browse Source
This commit is contained in:
Christopher Lam 2017-12-24 05:36:02 +08:00
parent 9422d4aed6
commit c1d61d5081
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gnucash/report/business-reports/receipt.eguile.scm
View File

@ -30,8 +30,8 @@
(let* (; invoice and company details (let* (; invoice and company details
(invoiceid (gncInvoiceGetID opt-invoice)) (invoiceid (gncInvoiceGetID opt-invoice))
(book (gncInvoiceGetBook opt-invoice)) (book (gncInvoiceGetBook opt-invoice))
(postdate (gncInvoiceGetDatePosted opt-invoice)) (postdate (gncInvoiceGetDatePostedTT opt-invoice))
(duedate (gncInvoiceGetDateDue opt-invoice)) (duedate (gncInvoiceGetDateDueTT opt-invoice))
(billingid (gncInvoiceGetBillingID opt-invoice)) (billingid (gncInvoiceGetBillingID opt-invoice))
(notes (gncInvoiceGetNotes opt-invoice)) (notes (gncInvoiceGetNotes opt-invoice))
(terms (gncInvoiceGetTerms opt-invoice)) (terms (gncInvoiceGetTerms opt-invoice))
@ -68,8 +68,8 @@
(lambda (s1 s2) (lambda (s1 s2)
(let ((t1 (xaccSplitGetParent s1)) (let ((t1 (xaccSplitGetParent s1))
(t2 (xaccSplitGetParent s2))) (t2 (xaccSplitGetParent s2)))
(< (car (gnc-transaction-get-date-posted t1)) (< (xaccTransGetDate t1)
(car (gnc-transaction-get-date-posted t2)))))))) (xaccTransGetDate t2)))))))
; pre-scan invoice entries to look for discounts and taxes ; pre-scan invoice entries to look for discounts and taxes
(for entry in entries do (for entry in entries do
@ -142,7 +142,7 @@
<!-- header texts --> <!-- header texts -->
<h1><?scm:d (nbsp (_ "Invoice No.")) ?> <?scm:d invoiceid ?></h1> <h1><?scm:d (nbsp (_ "Invoice No.")) ?> <?scm:d invoiceid ?></h1>
<h2><?scm:d (strftime opt-date-format (localtime (car (gnc:get-today)))) ?></h2> <h2><?scm:d (strftime opt-date-format (localtime (gnc:get-today))) ?></h2>
<p>&nbsp;</p> <p>&nbsp;</p>
<?scm (if (not (string=? billcontact "")) (begin ?> <?scm (if (not (string=? billcontact "")) (begin ?>
<p>Attn: <?scm:d billcontact ?></p><br> <p>Attn: <?scm:d billcontact ?></p><br>
@ -193,7 +193,7 @@
(dsc-total 'add currency rdiscval) (dsc-total 'add currency rdiscval)
?> ?>
<tr valign="top"> <tr valign="top">
<td align="left"><?scm:d (gnc-print-date (gncEntryGetDate entry)) ?></td> <td align="left"><?scm:d (qof-print-date (gncEntryGetDateTT entry)) ?></td>
<td align="left" ><?scm:d (gncEntryGetDescription entry) ?></td> <td align="left" ><?scm:d (gncEntryGetDescription entry) ?></td>
<td align="right"><?scm:d (fmtnumeric qty) ?></td> <td align="right"><?scm:d (fmtnumeric qty) ?></td>
<td align="right"><?scm:d (format #f "~4,2,,,'0f" (gnc-numeric-to-double each)) ?></td> <td align="right"><?scm:d (format #f "~4,2,,,'0f" (gnc-numeric-to-double each)) ?></td>
@ -254,7 +254,7 @@
(inv-total 'add c a) (inv-total 'add c a)
?> ?>
<tr valign="top"> <tr valign="top">
<td align="center"><?scm:d (gnc-print-date (gnc-transaction-get-date-posted t)) ?></td> <td align="center"><?scm:d (qof-print-date (xaccTransGetDate t)) ?></td>
<td align="left" colspan="<?scm:d (- maxcols 3) ?>"><?scm:d opt-payment-recd-heading ?></td> <td align="left" colspan="<?scm:d (- maxcols 3) ?>"><?scm:d opt-payment-recd-heading ?></td>
<td align="right" colspan="2"><?scm:d (fmtmoney c a) ?></td> <td align="right" colspan="2"><?scm:d (fmtmoney c a) ?></td>
</tr> </tr>