* src/business/business-core/gw-business-core-spec.scm:

wrap gncEntryGetInvTaxTable()
	  wrap gncEntryGetBillTaxTable()
	* src/business/business-reports/invoice.scm: only set the "taxable"
	  value to 'T' if the value is true AND we've got an actual tax table.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@7813 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Derek Atkins
2003-01-12 05:13:51 +00:00
parent 34abe91b02
commit dd78d835a4
3 changed files with 26 additions and 2 deletions

View File

@@ -11,6 +11,12 @@
columns. Enable viewing the "taxable" entry. Enable viewing
all the tax accounts individually (fixes bug #102892)
* src/business/business-core/gw-business-core-spec.scm:
wrap gncEntryGetInvTaxTable()
wrap gncEntryGetBillTaxTable()
* src/business/business-reports/invoice.scm: only set the "taxable"
value to 'T' if the value is true AND we've got an actual tax table.
2003-01-11 David Hampton <hampton@employees.org>
* src/app-utils/gnc-ui-util.c: The "reverse balance" preference

View File

@@ -427,6 +427,14 @@
'((<gnc:GncEntry*> entry))
"Return the Entry's Taxable value")
(gw:wrap-function
ws
'gnc:entry-get-inv-tax-table
'<gnc:GncTaxTable*>
"gncEntryGetInvTaxTable"
'((<gnc:GncEntry*> entry))
"Return the Entry's Invoice Tax Table")
(gw:wrap-function
ws
'gnc:entry-get-bill-taxable
@@ -435,6 +443,14 @@
'((<gnc:GncEntry*> entry))
"Return the Entry's Taxable value")
(gw:wrap-function
ws
'gnc:entry-get-bill-tax-table
'<gnc:GncTaxTable*>
"gncEntryGetBillTaxTable"
'((<gnc:GncEntry*> entry))
"Return the Entry's Bill Tax Table")
(gw:wrap-function
ws
'gnc:entry-get-value

View File

@@ -186,8 +186,10 @@
(if (tax-col column-vector)
(addto! row-contents
(if (if invoice?
(gnc:entry-get-inv-taxable entry)
(gnc:entry-get-bill-taxable entry))
(and (gnc:entry-get-inv-taxable entry)
(gnc:entry-get-inv-tax-table entry))
(and (gnc:entry-get-bill-taxable entry)
(gnc:entry-get-bill-tax-table entry)))
(_ "T") "")))
(if (taxvalue-col column-vector)