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

Bug 695610 - GnuCash Tax Invoice for Australia

Browse Source 
This commit defines a new report called "Australian Tax Invoice"
which is the normal "Tax Invoice" with some changed default values.
These changed defaults have been filtered out of the the patch
that was attached to the above bug.

Not all changes have been picked. For example the two changed fonts
have been ommitted because they are not available on all platforms.

Also due to a bug introduced in commit 7015cf9edf
some options are now hard-coded. These include the report title,
the notes and the invoice number text.
This commit is contained in:
Geert Janssens 2014-09-27 17:40:27 +02:00
parent 14c93e737c
commit 7a22644447
1 changed files with 29 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
src/report/business-reports/taxinvoice.scm
View File

@ -226,7 +226,7 @@
headingpage2 optname-amount-due "b" "" (_ "Amount Due")))
(add-option (gnc:make-string-option
headingpage2 optname-payment-recd "c" ""
(_ "Payment received, thank you")))
(_ "Payment received, thank you.")))
(add-option (gnc:make-string-option headingpage2 optname-invoice-number-text
"d" "" (N_ "Invoice number: ")))
(add-option (gnc:make-string-option headingpage2 optname-to-text
@ -340,3 +340,31 @@
'options-generator options-generator
'renderer report-renderer)
(define (au-tax-options-generator)
(define (set-opt options page name value)
(let ((option (gnc:lookup-option options page name)))
(gnc:option-set-value option value)))
(let ((options (options-generator)))
(set-opt options headingpage optname-report-title (_ "Tax Invoice"))
;(gnc:warn "title: " (gnc:option-value title-op))
(set-opt options headingpage optname-unit-price (_ "Unit"))
;(gnc:warn "unitprice: " (gnc:option-value unit-price-op))
(set-opt options headingpage optname-tax-rate (_ "GST Rate"))
(set-opt options headingpage optname-tax-amount (_ "GST Amount"))
(set-opt options headingpage2 optname-amount-due (_ "Amount Due (inc GST)"))
(set-opt options headingpage2 optname-invoice-number-text (_ "Invoice #: "))
(set-opt options headingpage2 optname-ref-text (_ "Reference: "))
(set-opt options headingpage2 optname-jobname-text (_ "Engagement: "))
(set-opt options notespage optname-extra-css "h1.coyname { text-align: right; margin-bottom: 0px ; font-size: 200%; } h2.invoice { text-align: left; margin-bottom: 0px ; font-size: 500%; }")
options))
(gnc:define-report
'version 1
'name (N_ "Australian Tax Invoice")
'report-guid "3dbbc2584da64e7a8674355bc3fbfe3d"
'menu-name (N_ "Australian Tax Invoice")
'menu-tip (N_ "Display an Australian customer invoice with tax columns (using eguile template)")
'menu-path (list gnc:menuname-business-reports)
'options-generator au-tax-options-generator
'renderer report-renderer)