|
|
|
|
@ -729,6 +729,7 @@ for styling the invoice. Please see the exported report for the CSS class names.
|
|
|
|
|
(fax (gnc:company-info book gnc:*company-fax*))
|
|
|
|
|
(email (gnc:company-info book gnc:*company-email*))
|
|
|
|
|
(url (gnc:company-info book gnc:*company-url*))
|
|
|
|
|
(taxnr (gnc:option-get-value book gnc:*tax-label* gnc:*tax-nr-label*))
|
|
|
|
|
(taxid (gnc:company-info book gnc:*company-id*)))
|
|
|
|
|
|
|
|
|
|
(if (and name (not (string-null? name)))
|
|
|
|
|
@ -766,6 +767,11 @@ for styling the invoice. Please see the exported report for the CSS class names.
|
|
|
|
|
(gnc:make-html-div/markup
|
|
|
|
|
"maybe-align-right company-tax-id" taxid))))
|
|
|
|
|
|
|
|
|
|
(if (and taxnr (not (string-null? taxnr)))
|
|
|
|
|
(gnc:html-table-append-row!
|
|
|
|
|
table (list (gnc:make-html-div/markup
|
|
|
|
|
"maybe-align-right company-tax-nr" taxnr))))
|
|
|
|
|
|
|
|
|
|
table))
|
|
|
|
|
|
|
|
|
|
(define (reg-renderer report-obj)
|
|
|
|
|
|