Advertisement
Guest User

Untitled

a guest
May 15th, 2020
99
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.85 KB | None | 0 0
  1. (if (gncInvoiceIsPosted invoice)
  2.  
  3. (begin
  4. (gnc:html-table-append-row!
  5. invoice-details-table
  6. (make-date-row (_ "Date") (gncInvoiceGetDatePosted invoice) date-format))
  7.  
  8. (if (opt-val "Display" "Due Date")
  9. (gnc:html-table-append-row!
  10. invoice-details-table
  11. (make-date-row (_ "Due Date") (gncInvoiceGetDateDue invoice) date-format))))
  12.  
  13.  
  14. (gnc:html-table-append-row!
  15. invoice-details-table
  16. (make-date-row (_ "Estimate Date:") (gncEntryGetDate (car (reverse (gncInvoiceGetEntries invoice)))) date-format))
  17.  
  18. (gnc:html-table-append-row!
  19. invoice-details-table
  20. (make-date-row (_ "Valid Till:") (incdate (gncEntryGetDate (car (reverse (gncInvoiceGetEntries invoice)))) ThirtyDayDelta) date-format))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement