Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (if (gncInvoiceIsPosted invoice)
- (begin
- (gnc:html-table-append-row!
- invoice-details-table
- (make-date-row (_ "Date") (gncInvoiceGetDatePosted invoice) date-format))
- (if (opt-val "Display" "Due Date")
- (gnc:html-table-append-row!
- invoice-details-table
- (make-date-row (_ "Due Date") (gncInvoiceGetDateDue invoice) date-format))))
- (gnc:html-table-append-row!
- invoice-details-table
- (make-date-row (_ "Estimate Date:") (gncEntryGetDate (car (reverse (gncInvoiceGetEntries invoice)))) date-format))
- (gnc:html-table-append-row!
- invoice-details-table
- (make-date-row (_ "Valid Till:") (incdate (gncEntryGetDate (car (reverse (gncInvoiceGetEntries invoice)))) ThirtyDayDelta) date-format))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement