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

[html-utilities][API] add gnc:html-invoice-doclink-anchor

Browse Source
This commit is contained in:
Christopher Lam 2020-10-05 22:48:22 +08:00
parent f38a3506f3
commit abf052a213
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gnucash/report/html-utilities.scm
View File

@ -48,6 +48,9 @@
(define (gnc:transaction-doclink-anchor-text trans)
(gnc:register-guid "trans-doclink-guid=" (gncTransGetGUID trans)))
(define (gnc:invoice-doclink-anchor-text invoice)
(gnc:register-guid "invoice-doclink-guid=" (gncInvoiceReturnGUID invoice)))
(define (gnc:report-anchor-text report-id)
(gnc-build-url URL-TYPE-REPORT
(string-append "id=" (number->string report-id))
@ -159,6 +162,11 @@
(gnc:transaction-doclink-anchor-text trans)
text)))
(define (gnc:html-invoice-doclink-anchor invoice text)
(gnc:make-html-text (gnc:html-markup-anchor
(gnc:invoice-doclink-anchor-text invoice)
text)))
(define (gnc:html-price-anchor price value)
(gnc:make-html-text (if price
(gnc:html-markup-anchor

1
gnucash/report/report.scm
View File

@ -93,6 +93,7 @@
(export gnc:html-split-anchor)
(export gnc:html-transaction-anchor)
(export gnc:html-transaction-doclink-anchor)
(export gnc:html-invoice-doclink-anchor)
(export gnc:html-price-anchor)
(export gnc:customer-anchor-text)
(export gnc:job-anchor-text)