mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
Merge chris 'UK-VAT and AU-GST' branch
https://github.com/Gnucash/gnucash/pull/500
This commit is contained in:
Christopher Lam
commit
624a2d809f
@ -33,36 +33,60 @@
|
|||||||
(use-modules (gnucash app-utils))
|
(use-modules (gnucash app-utils))
|
||||||
(use-modules (gnucash report))
|
(use-modules (gnucash report))
|
||||||
(use-modules (srfi srfi-1))
|
(use-modules (srfi srfi-1))
|
||||||
|
(use-modules (ice-9 match))
|
||||||
|
|
||||||
;; Define the strings here to avoid typos and make changes easier.
|
;; Define the strings here to avoid typos and make changes easier.
|
||||||
(define reportname (N_ "Income and GST Statement"))
|
(define reportname (N_ "Income and GST Statement"))
|
||||||
(define pagename-sorting (N_ "Sorting"))
|
(define pagename-sorting (N_ "Sorting"))
|
||||||
(define pagename-filter (N_ "Filter"))
|
(define pagename-filter (N_ "Filter"))
|
||||||
|
(define pagename-format (N_ "Format"))
|
||||||
|
|
||||||
(define TAX-SETUP-DESC
|
(define TAX-SETUP-DESC
|
||||||
(gnc:make-html-text
|
(gnc:make-html-text
|
||||||
(_ "This report is useful to calculate periodic business tax payable/receivable from \
|
|
||||||
authorities. From 'Edit report options' above, choose your Business Income and Business Expense accounts. \
|
(gnc:html-markup-p
|
||||||
Each transaction may contain, in addition to the accounts payable/receivable or bank accounts, \
|
(_ "This report is useful to calculate periodic business tax \
|
||||||
a split to a tax account, e.g. Income:Sales -$1000, Liability:GST on Sales -$100, Asset:Bank $1100.")
|
payable/receivable from authorities. From 'Edit report options', \
|
||||||
(gnc:html-markup-br)
|
choose your business sales and purchase accounts. Each transaction \
|
||||||
(gnc:html-markup-br)
|
may contain, in addition to the asset, liability, A/Payable or \
|
||||||
(_ "These tax accounts can either be populated using the standard register, or from Business Invoices and Bills \
|
A/Receivable accounts, a split to a tax account, e.g. Income:Sales \
|
||||||
which will require Tax Tables to be set up correctly. Please see the documentation.")
|
-$1000, A/Receivable $1100, Liability:GST on Sales -$100."))
|
||||||
(gnc:html-markup-br)
|
|
||||||
(gnc:html-markup-br)
|
(gnc:html-markup-p
|
||||||
(_ "From the Report Options, you will need to select the accounts which will \
|
(_ "These tax accounts can either be populated using the standard register, or from Business Invoices and Bills \
|
||||||
|
which will require Tax Tables to be set up correctly. Please see the documentation."))
|
||||||
|
|
||||||
|
(gnc:html-markup-p
|
||||||
|
(_ "From the Report Options, you will need to select the accounts which will \
|
||||||
hold the GST/VAT taxes collected or paid. These accounts must contain splits which document the \
|
hold the GST/VAT taxes collected or paid. These accounts must contain splits which document the \
|
||||||
monies which are wholly sent or claimed from tax authorities during periodic GST/VAT returns. These \
|
monies which are wholly sent or claimed from tax authorities during periodic GST/VAT returns. These \
|
||||||
accounts must be of type ASSET for taxes paid on expenses, and type LIABILITY for taxes collected on sales.")
|
accounts must be of type ASSET for taxes paid on expenses, and type LIABILITY for taxes collected on sales."))
|
||||||
(gnc:html-markup-br)
|
|
||||||
(gnc:html-markup-br)))
|
|
||||||
|
|
||||||
(define (gst-statement-renderer rpt)
|
(gnc:html-markup-p
|
||||||
(gnc:trep-renderer
|
(_ "Note the UK variant may specify EU VAT accounts may be tagged \
|
||||||
rpt
|
with *EUVAT* in the VAT account description. EU Goods sales and purchase \
|
||||||
#:custom-calculated-cells gst-calculated-cells
|
accounts may be tagged with *EUGOODS* in the account description."))
|
||||||
#:empty-report-message TAX-SETUP-DESC
|
|
||||||
#:custom-split-filter gst-custom-split-filter))
|
(gnc:html-markup-p
|
||||||
|
(_ "This message will be removed when tax accounts are specified."))))
|
||||||
|
|
||||||
|
(define* (gst-statement-renderer rpt #:optional export-type file-name)
|
||||||
|
(define (opt-val section name)
|
||||||
|
(gnc:option-value
|
||||||
|
(gnc:lookup-option (gnc:report-options rpt) section name)))
|
||||||
|
(define sales-purch-accounts
|
||||||
|
(append (opt-val "Accounts" "Sales") (opt-val "Accounts" "Purchases")))
|
||||||
|
(define document
|
||||||
|
(gnc:trep-renderer
|
||||||
|
rpt
|
||||||
|
#:custom-calculated-cells gst-calculated-cells
|
||||||
|
#:custom-source-accounts sales-purch-accounts
|
||||||
|
#:custom-split-filter gst-custom-split-filter
|
||||||
|
#:export-type export-type
|
||||||
|
#:filename file-name))
|
||||||
|
(when (null? (opt-val "Accounts" "Tax Accounts"))
|
||||||
|
(gnc:html-document-add-object! document TAX-SETUP-DESC))
|
||||||
|
document)
|
||||||
|
|
||||||
(define (gst-custom-split-filter split)
|
(define (gst-custom-split-filter split)
|
||||||
;; split -> bool
|
;; split -> bool
|
||||||
@ -76,6 +100,23 @@ accounts must be of type ASSET for taxes paid on expenses, and type LIABILITY fo
|
|||||||
|
|
||||||
;; Retrieve the list of options specified within the transaction report
|
;; Retrieve the list of options specified within the transaction report
|
||||||
(define options (gnc:trep-options-generator))
|
(define options (gnc:trep-options-generator))
|
||||||
|
(define all-accounts
|
||||||
|
(gnc-account-get-descendants-sorted (gnc-get-current-root-account)))
|
||||||
|
(define format-options
|
||||||
|
(list
|
||||||
|
(list (N_ "Individual sales columns") "p"
|
||||||
|
(N_ "Display individual sales columns rather than their sum") #f)
|
||||||
|
(list (N_ "Individual purchases columns") "q"
|
||||||
|
(N_ "Display individual purchases columns rather than their sum") #f)
|
||||||
|
(list (N_ "Individual tax columns") "r"
|
||||||
|
(N_ "Display individual tax columns rather than their sum") #f)
|
||||||
|
(list (N_ "Gross Balance") "s"
|
||||||
|
(N_ "Display the gross balance (gross sales - gross purchases)") #f)
|
||||||
|
(list (N_ "Net Balance") "t"
|
||||||
|
(N_ "Display the net balance (sales without tax - purchases without tax)")
|
||||||
|
#f)
|
||||||
|
(list (N_ "Tax payable") "u"
|
||||||
|
(N_ "Display the tax payable (tax on sales - tax on purchases)") #f)))
|
||||||
|
|
||||||
;; Delete Accounts selector
|
;; Delete Accounts selector
|
||||||
(gnc:unregister-option options gnc:pagename-accounts (N_ "Accounts"))
|
(gnc:unregister-option options gnc:pagename-accounts (N_ "Accounts"))
|
||||||
@ -83,10 +124,22 @@ accounts must be of type ASSET for taxes paid on expenses, and type LIABILITY fo
|
|||||||
;; and recreate with limited account types
|
;; and recreate with limited account types
|
||||||
(gnc:register-option
|
(gnc:register-option
|
||||||
options
|
options
|
||||||
(gnc:make-account-list-limited-option
|
(gnc:make-account-list-option
|
||||||
gnc:pagename-accounts (N_ "Accounts") "b1" (N_ "Report on these accounts.")
|
gnc:pagename-accounts (N_ "Sales") "a" (N_ "Report on these accounts.")
|
||||||
(lambda () '()) #f #t
|
(lambda ()
|
||||||
(list ACCT-TYPE-INCOME ACCT-TYPE-EXPENSE ACCT-TYPE-PAYABLE ACCT-TYPE-RECEIVABLE)))
|
(gnc:filter-accountlist-type
|
||||||
|
(list ACCT-TYPE-INCOME)
|
||||||
|
all-accounts))
|
||||||
|
#f #t))
|
||||||
|
|
||||||
|
(gnc:register-option
|
||||||
|
options
|
||||||
|
(gnc:make-account-list-option
|
||||||
|
gnc:pagename-accounts (N_ "Purchases") "b" (N_ "Report on these accounts.")
|
||||||
|
(lambda ()
|
||||||
|
(gnc:filter-accountlist-type
|
||||||
|
(list ACCT-TYPE-EXPENSE)
|
||||||
|
all-accounts)) #f #t))
|
||||||
|
|
||||||
(gnc:register-option
|
(gnc:register-option
|
||||||
options
|
options
|
||||||
@ -99,29 +152,83 @@ for taxes paid on expenses, and type LIABILITY for taxes collected on sales.")
|
|||||||
(lambda () '()) #f #t
|
(lambda () '()) #f #t
|
||||||
(list ACCT-TYPE-ASSET ACCT-TYPE-LIABILITY)))
|
(list ACCT-TYPE-ASSET ACCT-TYPE-LIABILITY)))
|
||||||
|
|
||||||
|
(gnc:register-option
|
||||||
|
options
|
||||||
|
(gnc:make-multichoice-callback-option
|
||||||
|
pagename-format (N_ "Report format")
|
||||||
|
"a" (_ "Report Format") 'default
|
||||||
|
(list (vector 'default
|
||||||
|
(_ "default format")
|
||||||
|
(_ "default format"))
|
||||||
|
(vector 'au-bas
|
||||||
|
(_ "Australia BAS")
|
||||||
|
(_ "Australia BAS. Specify sales, purchase and tax \
|
||||||
|
accounts."))
|
||||||
|
(vector 'uk-vat
|
||||||
|
(_ "UK VAT Return")
|
||||||
|
(_ "UK VAT Return. Specify sales, purchase and tax \
|
||||||
|
accounts. EU rules may be used. Denote EU VAT accounts *EUVAT* in \
|
||||||
|
account description, and denote EU goods sales and purchases accounts \
|
||||||
|
with *EUGOODS* in the account description."))) #f
|
||||||
|
(lambda (x)
|
||||||
|
(for-each
|
||||||
|
(match-lambda
|
||||||
|
((name . _)
|
||||||
|
(gnc-option-db-set-option-selectable-by-name
|
||||||
|
options pagename-format name (eq? x 'default))))
|
||||||
|
format-options))))
|
||||||
|
|
||||||
(for-each
|
(for-each
|
||||||
(lambda (l)
|
(match-lambda
|
||||||
(gnc:register-option
|
((name sort help default)
|
||||||
options
|
(gnc:register-option options
|
||||||
(gnc:make-simple-boolean-option
|
(gnc:make-simple-boolean-option
|
||||||
gnc:pagename-display (car l) (cadr l) (caddr l) (cadddr l))))
|
pagename-format name sort help default))))
|
||||||
(list
|
format-options)
|
||||||
(list (N_ "Individual sales columns") "p" (N_ "Display individual sales columns rather than their sum") #f)
|
|
||||||
(list (N_ "Individual purchases columns") "q" (N_ "Display individual purchases columns rather than their sum") #f)
|
|
||||||
(list (N_ "Individual tax columns") "r" (N_ "Display individual tax columns rather than their sum") #f)
|
|
||||||
(list (N_ "Gross Balance") "s" (N_ "Display the gross balance (gross sales - gross purchases)") #f)
|
|
||||||
(list (N_ "Net Balance") "t" (N_ "Display the net balance (sales without tax - purchases without tax)") #f)
|
|
||||||
(list (N_ "Tax payable") "u" (N_ "Display the tax payable (tax on sales - tax on purchases)") #f)))
|
|
||||||
|
|
||||||
;; Enable option to retrieve unique transactions only
|
;; Enable option to retrieve unique transactions only
|
||||||
(gnc:option-set-value (gnc:lookup-option options "__trep" "unique-transactions") #t)
|
(gnc:option-set-default-value
|
||||||
|
(gnc:lookup-option options "__trep" "unique-transactions") #t)
|
||||||
;; Disable account filtering
|
;; Disable account filtering
|
||||||
(gnc:option-make-internal! options gnc:pagename-accounts "Filter Type")
|
(gnc:option-make-internal! options gnc:pagename-accounts "Filter Type")
|
||||||
(gnc:option-make-internal! options gnc:pagename-accounts "Filter By...")
|
(gnc:option-make-internal! options gnc:pagename-accounts "Filter By...")
|
||||||
(gnc:option-make-internal! options gnc:pagename-general "Show original currency amount")
|
(gnc:option-make-internal! options gnc:pagename-general "Show original currency amount")
|
||||||
|
|
||||||
|
;; Enforce compulsory common-currency. It's senseless to allow
|
||||||
|
;; multiple currencies in a government report. Plus, single currency
|
||||||
|
;; means only 1 amount per heading for CSV output.
|
||||||
|
(gnc:option-set-default-value
|
||||||
|
(gnc:lookup-option options gnc:pagename-general "Common Currency") #t)
|
||||||
|
(gnc:option-make-internal! options gnc:pagename-general "Common Currency")
|
||||||
|
|
||||||
|
;; Set default dates to report on last quarter.
|
||||||
|
(gnc:option-set-default-value
|
||||||
|
(gnc:lookup-option options gnc:pagename-general "Start Date")
|
||||||
|
'(relative . start-prev-quarter))
|
||||||
|
(gnc:option-set-default-value
|
||||||
|
(gnc:lookup-option options gnc:pagename-general "End Date")
|
||||||
|
'(relative . end-prev-quarter))
|
||||||
|
|
||||||
;; Disallow closing transactions
|
;; Disallow closing transactions
|
||||||
(gnc:option-set-value (gnc:lookup-option options pagename-filter "Closing transactions") 'exclude-closing)
|
|
||||||
(gnc:option-make-internal! options pagename-filter "Closing transactions")
|
(gnc:option-make-internal! options pagename-filter "Closing transactions")
|
||||||
|
(gnc:option-set-default-value
|
||||||
|
(gnc:lookup-option options pagename-filter "Closing transactions")
|
||||||
|
'exclude-closing)
|
||||||
|
|
||||||
|
;; Set good sorting options
|
||||||
|
(gnc:option-set-default-value
|
||||||
|
(gnc:lookup-option options pagename-sorting "Primary Key")
|
||||||
|
'date)
|
||||||
|
(gnc:option-set-default-value
|
||||||
|
(gnc:lookup-option options pagename-sorting "Primary Subtotal for Date Key")
|
||||||
|
'none)
|
||||||
|
(gnc:option-set-default-value
|
||||||
|
(gnc:lookup-option options pagename-sorting "Secondary Key")
|
||||||
|
'none)
|
||||||
|
(gnc:option-set-default-value
|
||||||
|
(gnc:lookup-option options pagename-sorting "Secondary Subtotal")
|
||||||
|
'none)
|
||||||
|
|
||||||
;; Disable display options not being used anymore
|
;; Disable display options not being used anymore
|
||||||
(gnc:option-make-internal! options gnc:pagename-display "Shares")
|
(gnc:option-make-internal! options gnc:pagename-display "Shares")
|
||||||
(gnc:option-make-internal! options gnc:pagename-display "Price")
|
(gnc:option-make-internal! options gnc:pagename-display "Price")
|
||||||
@ -133,65 +240,53 @@ for taxes paid on expenses, and type LIABILITY for taxes collected on sales.")
|
|||||||
(gnc:option-make-internal! options pagename-sorting "Show Informal Debit/Credit Headers")
|
(gnc:option-make-internal! options pagename-sorting "Show Informal Debit/Credit Headers")
|
||||||
options)
|
options)
|
||||||
|
|
||||||
|
(define (myadd a b)
|
||||||
|
(if a (if b (gnc:monetary+ a b) a) b))
|
||||||
|
|
||||||
|
(define (myneg X)
|
||||||
|
(and X (gnc:monetary-neg X)))
|
||||||
|
|
||||||
|
(define (accfilter accounts type)
|
||||||
|
(filter (lambda (acc) (eqv? (xaccAccountGetType acc) type)) accounts))
|
||||||
|
|
||||||
|
(define split->date (compose xaccTransGetDate xaccSplitGetParent))
|
||||||
|
(define split->currency (compose xaccAccountGetCommodity xaccSplitGetAccount))
|
||||||
|
|
||||||
(define (gst-calculated-cells options)
|
(define (gst-calculated-cells options)
|
||||||
(define (opt-val section name)
|
(define (opt-val section name)
|
||||||
(gnc:option-value (gnc:lookup-option options section name)))
|
(gnc:option-value (gnc:lookup-option options section name)))
|
||||||
(define (accfilter accounts type)
|
(let* ((tax-accounts (opt-val gnc:pagename-accounts "Tax Accounts"))
|
||||||
(filter
|
(accounts-tax-collected (accfilter tax-accounts ACCT-TYPE-LIABILITY))
|
||||||
(lambda (acc)
|
(accounts-tax-paid (accfilter tax-accounts ACCT-TYPE-ASSET))
|
||||||
(eqv? (xaccAccountGetType acc) type))
|
(accounts-sales (opt-val gnc:pagename-accounts "Sales"))
|
||||||
accounts))
|
(accounts-purchases (opt-val gnc:pagename-accounts "Purchases"))
|
||||||
(letrec*
|
(common-currency (opt-val gnc:pagename-general "Report's currency")))
|
||||||
((myadd (lambda (X Y) (if X (if Y (gnc:monetary+ X Y) X) Y)))
|
|
||||||
(myneg (lambda (X) (and X (gnc:monetary-neg X))))
|
|
||||||
(accounts (opt-val gnc:pagename-accounts "Accounts"))
|
|
||||||
(tax-accounts (opt-val gnc:pagename-accounts "Tax Accounts"))
|
|
||||||
(accounts-tax-collected (accfilter tax-accounts ACCT-TYPE-LIABILITY))
|
|
||||||
(accounts-tax-paid (accfilter tax-accounts ACCT-TYPE-ASSET))
|
|
||||||
(accounts-sales (accfilter accounts ACCT-TYPE-INCOME))
|
|
||||||
(accounts-purchases (accfilter accounts ACCT-TYPE-EXPENSE))
|
|
||||||
(common-currency (and (opt-val gnc:pagename-general "Common Currency")
|
|
||||||
(opt-val gnc:pagename-general "Report's currency")))
|
|
||||||
(split->date (lambda (s) (xaccTransGetDate (xaccSplitGetParent s))))
|
|
||||||
(split->currency (lambda (s) (xaccAccountGetCommodity (xaccSplitGetAccount s))))
|
|
||||||
(split-adder (lambda (split accountlist)
|
|
||||||
(let* ((txn (xaccSplitGetParent split))
|
|
||||||
(filtered-splits (filter
|
|
||||||
(lambda (s)
|
|
||||||
(member (xaccSplitGetAccount s)
|
|
||||||
accountlist))
|
|
||||||
(xaccTransGetSplitList txn)))
|
|
||||||
(split->monetary (lambda (s)
|
|
||||||
(gnc:make-gnc-monetary
|
|
||||||
(split->currency s)
|
|
||||||
(if (xaccTransGetVoidStatus txn)
|
|
||||||
(xaccSplitVoidFormerAmount s)
|
|
||||||
(xaccSplitGetAmount s)))))
|
|
||||||
(split->converted
|
|
||||||
(lambda (s)
|
|
||||||
(gnc:exchange-by-pricedb-nearest
|
|
||||||
(split->monetary s)
|
|
||||||
(or common-currency (split->currency split))
|
|
||||||
(time64CanonicalDayTime (split->date s)))))
|
|
||||||
(list-of-values (map split->converted filtered-splits)))
|
|
||||||
(fold myadd #f list-of-values))))
|
|
||||||
(account-adder (lambda (acc) (lambda (s) (split-adder s (list acc)))))
|
|
||||||
(account-adder-neg (lambda (acc) (lambda (s) (myneg (split-adder s (list acc))))))
|
|
||||||
|
|
||||||
;; Calculate sales amounts
|
(define (split-adder split accountlist)
|
||||||
(sales-without-tax (lambda (s) (myneg (split-adder s accounts-sales))))
|
(define txn (xaccSplitGetParent split))
|
||||||
(tax-on-sales (lambda (s) (myneg (split-adder s accounts-tax-collected))))
|
(define (not-in-accountlist? s)
|
||||||
(gross-sales (lambda (s) (myadd (tax-on-sales s) (sales-without-tax s))))
|
(not (member (xaccSplitGetAccount s) accountlist)))
|
||||||
|
(let lp ((splits (xaccTransGetSplitList txn)) (result #f))
|
||||||
|
(match splits
|
||||||
|
(() result)
|
||||||
|
(((? not-in-accountlist?) . rest) (lp rest result))
|
||||||
|
((split . rest)
|
||||||
|
(lp rest
|
||||||
|
(myadd (gnc:exchange-by-pricedb-nearest
|
||||||
|
(gnc:make-gnc-monetary
|
||||||
|
(split->currency split)
|
||||||
|
(if (xaccTransGetVoidStatus txn)
|
||||||
|
(xaccSplitVoidFormerAmount split)
|
||||||
|
(xaccSplitGetAmount split)))
|
||||||
|
common-currency
|
||||||
|
(time64CanonicalDayTime (split->date split)))
|
||||||
|
result))))))
|
||||||
|
|
||||||
;; Calculate purchase amounts
|
(define (account-adder acc)
|
||||||
(purchases-without-tax (lambda (s) (split-adder s accounts-purchases)))
|
(lambda (s) (split-adder s (list acc))))
|
||||||
(tax-on-purchases (lambda (s) (split-adder s accounts-tax-paid)))
|
|
||||||
(gross-purchases (lambda (s) (myadd (tax-on-purchases s) (purchases-without-tax s))))
|
|
||||||
|
|
||||||
;; Calculate derived amounts
|
(define (account-adder-neg acc)
|
||||||
(gross-balance (lambda (s) (myadd (gross-sales s) (myneg (gross-purchases s)))))
|
(lambda (s) (myneg (split-adder s (list acc)))))
|
||||||
(net-balance (lambda (s) (myadd (sales-without-tax s) (myneg (purchases-without-tax s)))))
|
|
||||||
(tax-payable (lambda (s) (myadd (tax-on-sales s) (myneg (tax-on-purchases s))))))
|
|
||||||
|
|
||||||
;; each column will be a vector
|
;; each column will be a vector
|
||||||
;; (vector heading - string
|
;; (vector heading - string
|
||||||
@ -200,66 +295,122 @@ for taxes paid on expenses, and type LIABILITY for taxes collected on sales.")
|
|||||||
;; subtotal? - #t - all columns need subtotals
|
;; subtotal? - #t - all columns need subtotals
|
||||||
;; start-dual-column? - unused in GST report
|
;; start-dual-column? - unused in GST report
|
||||||
;; friendly-heading-fn - unused in GST report
|
;; friendly-heading-fn - unused in GST report
|
||||||
(append
|
|
||||||
;; Translators: "Gross Sales" refer to Net Sales + GST/VAT on Sales
|
(case (opt-val pagename-format "Report format")
|
||||||
(list (vector (_ "Gross Sales")
|
((default)
|
||||||
gross-sales
|
(let* ((net-sales (lambda (s) (myneg (split-adder s accounts-sales))))
|
||||||
#f #t #f #f))
|
(tax-sales (lambda (s) (myneg (split-adder s accounts-tax-collected))))
|
||||||
(if (opt-val gnc:pagename-display (N_ "Individual sales columns"))
|
(tot-sales (lambda (s) (myadd (tax-sales s) (net-sales s))))
|
||||||
(map (lambda (acc) (vector (xaccAccountGetName acc)
|
(net-purch (lambda (s) (split-adder s accounts-purchases)))
|
||||||
(account-adder-neg acc)
|
(tax-purch (lambda (s) (split-adder s accounts-tax-paid)))
|
||||||
#f #t #f #f))
|
(tot-purch (lambda (s) (myadd (tax-purch s) (net-purch s))))
|
||||||
accounts-sales)
|
(tot-bal (lambda (s) (myadd (tot-sales s) (myneg (tot-purch s)))))
|
||||||
(list (vector (_ "Net Sales")
|
(net-bal (lambda (s) (myadd (net-sales s) (myneg (net-purch s)))))
|
||||||
sales-without-tax
|
(tax-diff (lambda (s) (myadd (tax-sales s) (myneg (tax-purch s))))))
|
||||||
#f #t #f #f)))
|
(append
|
||||||
(if (opt-val gnc:pagename-display (N_ "Individual tax columns"))
|
|
||||||
(map (lambda (acc) (vector (xaccAccountGetName acc)
|
;; Translators: "Gross Sales" refer to Net Sales + GST/VAT on Sales
|
||||||
(account-adder-neg acc)
|
(list (vector (_ "Gross Sales") tot-sales #f #t #f #f))
|
||||||
#f #t #f #f))
|
|
||||||
accounts-tax-collected)
|
(if (opt-val pagename-format "Individual sales columns")
|
||||||
(list (vector (_ "Tax on Sales")
|
(map
|
||||||
tax-on-sales
|
(lambda (acc)
|
||||||
#f #t #f #f)))
|
(vector (xaccAccountGetName acc) (account-adder-neg acc) #f #t #f #f))
|
||||||
;; Translators: "Gross Purchases" refer to Net Purchase + GST/VAT on Purchase
|
accounts-sales)
|
||||||
(list (vector (_ "Gross Purchases")
|
(list (vector (_ "Net Sales") net-sales #f #t #f #f)))
|
||||||
gross-purchases
|
|
||||||
#f #t #f #f))
|
(if (opt-val pagename-format "Individual tax columns")
|
||||||
(if (opt-val gnc:pagename-display (N_ "Individual purchases columns"))
|
(map
|
||||||
(map (lambda (acc) (vector (xaccAccountGetName acc)
|
(lambda (acc)
|
||||||
(account-adder acc)
|
(vector (xaccAccountGetName acc) (account-adder-neg acc) #f #t #f #f))
|
||||||
#f #t #f #f))
|
accounts-tax-collected)
|
||||||
accounts-purchases)
|
(list (vector (_ "Tax on Sales") tax-sales #f #t #f #f)))
|
||||||
(list (vector (_ "Net Purchases")
|
|
||||||
purchases-without-tax
|
;; Translators: "Gross Purchases" refer to Net Purchase +
|
||||||
#f #t #f #f)))
|
;; GST/VAT on Purchase
|
||||||
(if (opt-val gnc:pagename-display (N_ "Individual tax columns"))
|
(list (vector (_ "Gross Purchases") tot-purch #f #t #f #f))
|
||||||
(map (lambda (acc) (vector (xaccAccountGetName acc)
|
|
||||||
(account-adder acc)
|
(if (opt-val pagename-format "Individual purchases columns")
|
||||||
#f #t #f #f))
|
(map
|
||||||
accounts-tax-paid)
|
(lambda (acc)
|
||||||
(list (vector (_ "Tax on Purchases")
|
(vector (xaccAccountGetName acc) (account-adder acc) #f #t #f #f))
|
||||||
tax-on-purchases
|
accounts-purchases)
|
||||||
#f #t #f #f)))
|
(list
|
||||||
(if (opt-val gnc:pagename-display (N_ "Gross Balance"))
|
(vector (_ "Net Purchases") net-purch #f #t #f #f)))
|
||||||
;; Translators: "Gross Balance" refer to "Gross Sales - Gross Purchases" in GST Report
|
|
||||||
(list (vector (_ "Gross Balance")
|
(if (opt-val pagename-format "Individual tax columns")
|
||||||
gross-balance
|
(map
|
||||||
#f #t #f #f))
|
(lambda (acc)
|
||||||
'())
|
(vector (xaccAccountGetName acc) (account-adder acc) #f #t #f #f))
|
||||||
;; Note: Net income = net balance - other costs
|
accounts-tax-paid)
|
||||||
(if (opt-val gnc:pagename-display (N_ "Net Balance"))
|
(list
|
||||||
;; Translators: "Net Balance" refer to Net Sales - Net Purchases in GST Report
|
(vector (_ "Tax on Purchases") tax-purch #f #t #f #f)))
|
||||||
(list (vector (_ "Net Balance")
|
|
||||||
net-balance
|
(if (opt-val pagename-format "Gross Balance")
|
||||||
#f #t #f #f))
|
;; Translators: "Gross Balance" refer to "Gross Sales
|
||||||
'())
|
;; minus Gross Purchases" in GST Report
|
||||||
(if (opt-val gnc:pagename-display (N_ "Tax payable"))
|
(list
|
||||||
;; Translators: "Tax Payable" refer to the difference GST Sales - GST Purchases
|
(vector (_ "Gross Balance") tot-bal #f #t #f #f))
|
||||||
(list (vector (_ "Tax payable")
|
'())
|
||||||
tax-payable
|
|
||||||
#f #t #f #f))
|
;; Note: Net income = net balance - other costs
|
||||||
'()))))
|
(if (opt-val pagename-format "Net Balance")
|
||||||
|
;; Translators: "Net Balance" refer to Net Sales - Net
|
||||||
|
;; Purchases in GST Report
|
||||||
|
(list
|
||||||
|
(vector (_ "Net Balance") net-bal #f #t #f #f))
|
||||||
|
'())
|
||||||
|
|
||||||
|
(if (opt-val pagename-format "Tax payable")
|
||||||
|
;; Translators: "Tax Payable" refer to the difference
|
||||||
|
;; GST Sales - GST Purchases
|
||||||
|
(list
|
||||||
|
(vector (_ "Tax payable") tax-diff #f #t #f #f))
|
||||||
|
'()))))
|
||||||
|
|
||||||
|
((au-bas)
|
||||||
|
(let* ((gst-sales (lambda (s) (myneg (split-adder s accounts-tax-collected))))
|
||||||
|
(gst-purch (lambda (s) (split-adder s accounts-tax-paid)))
|
||||||
|
(sales-net (lambda (s) (myneg (split-adder s accounts-sales))))
|
||||||
|
(sales-gross (lambda (s) (myadd (sales-net s) (gst-sales s)))))
|
||||||
|
(list
|
||||||
|
(vector "G1 Total Sales inc GST" sales-gross #f #t #f #f)
|
||||||
|
(vector "1A GST on Sales" gst-sales #f #t #f #f)
|
||||||
|
(vector "1B GST on Purchases" gst-purch #f #t #f #f))))
|
||||||
|
|
||||||
|
((uk-vat)
|
||||||
|
(let* ((EUVAT?
|
||||||
|
(lambda (acc)
|
||||||
|
(string-contains (xaccAccountGetDescription acc) "*EUVAT*")))
|
||||||
|
(EUGOODS?
|
||||||
|
(lambda (acc)
|
||||||
|
(string-contains (xaccAccountGetDescription acc) "*EUGOODS*")))
|
||||||
|
(vat-non-ec (filter (negate EUVAT?) tax-accounts))
|
||||||
|
(vat-on-sales (accfilter vat-non-ec ACCT-TYPE-LIABILITY))
|
||||||
|
(vat-on-purchases (accfilter vat-non-ec ACCT-TYPE-ASSET))
|
||||||
|
(eu-sales-accts (filter EUGOODS? accounts-sales))
|
||||||
|
(eu-purch-accts (filter EUGOODS? accounts-purchases))
|
||||||
|
(eu-vat-accounts (filter EUVAT? tax-accounts))
|
||||||
|
(eu-vat-rev-purchases (accfilter eu-vat-accounts ACCT-TYPE-LIABILITY))
|
||||||
|
(box-1 (lambda (s) (myneg (split-adder s vat-on-sales))))
|
||||||
|
(box-2 (lambda (s) (myneg (split-adder s eu-vat-rev-purchases))))
|
||||||
|
(box-3 (lambda (s) (myadd (box-1 s) (box-2 s))))
|
||||||
|
(box-4 (lambda (s) (split-adder s vat-on-purchases)))
|
||||||
|
(box-5 (lambda (s) (myadd (box-3 s) (myneg (box-4 s)))))
|
||||||
|
(box-6 (lambda (s) (myneg (split-adder s accounts-sales))))
|
||||||
|
(box-7 (lambda (s) (split-adder s accounts-purchases)))
|
||||||
|
(box-8 (lambda (s) (myneg (split-adder s eu-sales-accts))))
|
||||||
|
(box-9 (lambda (s) (split-adder s eu-purch-accts))))
|
||||||
|
(list
|
||||||
|
(vector "Box 1 VAT Sales" box-1 #f #t #f #f)
|
||||||
|
(vector "Box 2 VAT Reverse EU" box-2 #f #t #f #f)
|
||||||
|
(vector "Box 3 VAT Output" box-3 #f #t #f #f)
|
||||||
|
(vector "Box 4 VAT Purchases" box-4 #f #t #f #f)
|
||||||
|
(vector "Box 5 VAT Difference" box-5 #f #t #f #f)
|
||||||
|
(vector "Box 6 Tot Sales" box-6 #f #t #f #f)
|
||||||
|
(vector "Box 7 Tot Purchases" box-7 #f #t #f #f)
|
||||||
|
(vector "Box 8 EU Goods Sales" box-8 #f #t #f #f)
|
||||||
|
(vector "Box 9 EU Goods Purchases" box-9 #f #t #f #f)))))))
|
||||||
|
|
||||||
;; Define the report.
|
;; Define the report.
|
||||||
(gnc:define-report
|
(gnc:define-report
|
||||||
@ -269,12 +420,5 @@ for taxes paid on expenses, and type LIABILITY for taxes collected on sales.")
|
|||||||
'report-guid "5bf27f249a0d11e7abc4cec278b6b50a"
|
'report-guid "5bf27f249a0d11e7abc4cec278b6b50a"
|
||||||
'options-generator gst-statement-options-generator
|
'options-generator gst-statement-options-generator
|
||||||
'renderer gst-statement-renderer
|
'renderer gst-statement-renderer
|
||||||
'export-types (list (cons "CSV" 'csv))
|
'export-types '(("CSV" . csv))
|
||||||
'export-thunk (lambda (report-obj export-type file-name)
|
'export-thunk gst-statement-renderer)
|
||||||
(gnc:trep-renderer
|
|
||||||
report-obj
|
|
||||||
#:custom-calculated-cells gst-calculated-cells
|
|
||||||
#:empty-report-message TAX-SETUP-DESC
|
|
||||||
#:custom-split-filter gst-custom-split-filter
|
|
||||||
#:export-type export-type
|
|
||||||
#:filename file-name)))
|
|
||||||
|
|||||||
@ -28,9 +28,17 @@
|
|||||||
(test-runner-factory gnc:test-runner)
|
(test-runner-factory gnc:test-runner)
|
||||||
(test-begin "income-gst-statement.scm")
|
(test-begin "income-gst-statement.scm")
|
||||||
(null-test)
|
(null-test)
|
||||||
(gstr-tests)
|
(test-group-with-cleanup "default GST report"
|
||||||
|
(gstr-tests)
|
||||||
|
(teardown))
|
||||||
|
(test-group-with-cleanup "UK-VAT report"
|
||||||
|
(uk-vat-tests)
|
||||||
|
(teardown))
|
||||||
(test-end "income-gst-statement.scm"))
|
(test-end "income-gst-statement.scm"))
|
||||||
|
|
||||||
|
(define (teardown)
|
||||||
|
(gnc-clear-current-session))
|
||||||
|
|
||||||
(define (options->sxml options test-title)
|
(define (options->sxml options test-title)
|
||||||
(gnc:options->sxml rpt-uuid options "test-gstr" test-title))
|
(gnc:options->sxml rpt-uuid options "test-gstr" test-title))
|
||||||
|
|
||||||
@ -40,21 +48,11 @@
|
|||||||
(gnc:option-set-value option value)
|
(gnc:option-set-value option value)
|
||||||
(test-assert (format #f "wrong-option ~a ~a" section name) #f))))
|
(test-assert (format #f "wrong-option ~a ~a" section name) #f))))
|
||||||
|
|
||||||
(define structure
|
(define* (create-txn d m y desc splits #:optional txn-type)
|
||||||
(list "Root" (list (cons 'type ACCT-TYPE-ASSET))
|
(let* ((splits (map (lambda (s) (vector (cdr s) (car s) (car s))) splits))
|
||||||
(list "GST"
|
(txn (env-create-multisplit-transaction #f d m y splits #:description desc)))
|
||||||
(list "GST on Purchases")
|
(when txn-type (xaccTransSetTxnType txn txn-type))
|
||||||
(list "GST on Sales" (list (cons 'type ACCT-TYPE-LIABILITY)))
|
txn))
|
||||||
(list "Reduced GST on Sales" (list (cons 'type ACCT-TYPE-LIABILITY))))
|
|
||||||
(list "Asset"
|
|
||||||
(list "Bank")
|
|
||||||
(list "A/Receivable" (list (cons 'type ACCT-TYPE-RECEIVABLE))))
|
|
||||||
(list "Liability" (list (cons 'type ACCT-TYPE-PAYABLE))
|
|
||||||
(list "CreditCard")
|
|
||||||
(list "A/Payable"))
|
|
||||||
(list "Income" (list (cons 'type ACCT-TYPE-INCOME)))
|
|
||||||
(list "Expenses" (list (cons 'type ACCT-TYPE-EXPENSE)))
|
|
||||||
))
|
|
||||||
|
|
||||||
(define (null-test)
|
(define (null-test)
|
||||||
;; This null-test tests for the presence of report.
|
;; This null-test tests for the presence of report.
|
||||||
@ -62,7 +60,21 @@
|
|||||||
(test-assert "null-test" (options->sxml options "null-test"))))
|
(test-assert "null-test" (options->sxml options "null-test"))))
|
||||||
|
|
||||||
(define (gstr-tests)
|
(define (gstr-tests)
|
||||||
;; This function will perform implementation testing on the transaction report.
|
(define structure
|
||||||
|
(list "Root" (list (cons 'type ACCT-TYPE-ASSET))
|
||||||
|
(list "GST"
|
||||||
|
(list "GST on Purchases")
|
||||||
|
(list "GST on Sales" (list (cons 'type ACCT-TYPE-LIABILITY)))
|
||||||
|
(list "Reduced GST on Sales" (list (cons 'type ACCT-TYPE-LIABILITY))))
|
||||||
|
(list "Asset"
|
||||||
|
(list "Bank")
|
||||||
|
(list "A/Receivable" (list (cons 'type ACCT-TYPE-RECEIVABLE))))
|
||||||
|
(list "Liability" (list (cons 'type ACCT-TYPE-PAYABLE))
|
||||||
|
(list "CreditCard")
|
||||||
|
(list "A/Payable"))
|
||||||
|
(list "Income" (list (cons 'type ACCT-TYPE-INCOME)))
|
||||||
|
(list "Expenses" (list (cons 'type ACCT-TYPE-EXPENSE)))))
|
||||||
|
;; This function will perform implementation testing on the GST report.
|
||||||
(let* ((env (create-test-env))
|
(let* ((env (create-test-env))
|
||||||
(account-alist (env-create-account-structure-alist env structure))
|
(account-alist (env-create-account-structure-alist env structure))
|
||||||
(bank (cdr (assoc "Bank" account-alist)))
|
(bank (cdr (assoc "Bank" account-alist)))
|
||||||
@ -77,41 +89,17 @@
|
|||||||
(YEAR (gnc:time64-get-year (gnc:get-today))))
|
(YEAR (gnc:time64-get-year (gnc:get-today))))
|
||||||
|
|
||||||
(define (default-testing-options)
|
(define (default-testing-options)
|
||||||
;; To ease testing of transaction report, we will set default
|
|
||||||
;; options for generating reports. We will elable extra columns
|
|
||||||
;; for Exporting, disable generation of informational text, and
|
|
||||||
;; disable indenting. These options will be tested separately as
|
|
||||||
;; the first test group. By default, we'll select the modern dates.
|
|
||||||
(let ((options (gnc:make-report-options rpt-uuid)))
|
(let ((options (gnc:make-report-options rpt-uuid)))
|
||||||
(set-option! options "Accounts" "Accounts" (list income expense payable receivable))
|
(set-option! options "Accounts" "Sales" (list income))
|
||||||
(set-option! options "Accounts" "Tax Accounts" (list gst-sales
|
(set-option! options "Accounts" "Purchases" (list expense))
|
||||||
reduced-gst-sales
|
(set-option! options "Accounts" "Tax Accounts"
|
||||||
gst-purch))
|
(list gst-sales reduced-gst-sales gst-purch))
|
||||||
(set-option! options "General" "Add options summary" 'always)
|
(set-option! options "General" "Add options summary" 'always)
|
||||||
(set-option! options "General" "Table for Exporting" #t)
|
(set-option! options "General" "Table for Exporting" #t)
|
||||||
(set-option! options "General" "Start Date" (cons 'relative 'start-cal-year))
|
(set-option! options "General" "Start Date" (cons 'relative 'start-cal-year))
|
||||||
(set-option! options "General" "End Date" (cons 'relative 'end-cal-year))
|
(set-option! options "General" "End Date" (cons 'relative 'end-cal-year))
|
||||||
options))
|
options))
|
||||||
|
|
||||||
(define* (create-txn DD MM YY DESC list-of-splits #:optional txn-type)
|
|
||||||
(let ((txn (xaccMallocTransaction (gnc-get-current-book))))
|
|
||||||
(xaccTransBeginEdit txn)
|
|
||||||
(xaccTransSetDescription txn DESC)
|
|
||||||
(xaccTransSetCurrency txn (gnc-default-report-currency))
|
|
||||||
(xaccTransSetDate txn DD MM YY)
|
|
||||||
(for-each
|
|
||||||
(lambda (tfr)
|
|
||||||
(let ((split (xaccMallocSplit (gnc-get-current-book))))
|
|
||||||
(xaccSplitSetParent split txn)
|
|
||||||
(xaccSplitSetAccount split (cdr tfr))
|
|
||||||
(xaccSplitSetValue split (car tfr))
|
|
||||||
(xaccSplitSetAmount split (car tfr))))
|
|
||||||
list-of-splits)
|
|
||||||
(if txn-type
|
|
||||||
(xaccTransSetTxnType txn txn-type))
|
|
||||||
(xaccTransCommitEdit txn)
|
|
||||||
txn))
|
|
||||||
|
|
||||||
;; This will make all accounts use default currency (I think depends on locale)
|
;; This will make all accounts use default currency (I think depends on locale)
|
||||||
(for-each
|
(for-each
|
||||||
(lambda(pair)
|
(lambda(pair)
|
||||||
@ -192,22 +180,157 @@
|
|||||||
(sxml->table-row-col sxml 1 -1 #f))
|
(sxml->table-row-col sxml 1 -1 #f))
|
||||||
|
|
||||||
(test-equal "tax on sales as expected"
|
(test-equal "tax on sales as expected"
|
||||||
'("$20.00" "$20.00" "$20.00" "$20.00" "$15.00" "$15.00" "$55.00")
|
'("$20.00" "$15.00" "$20.00" "$55.00")
|
||||||
(sxml->table-row-col sxml 1 #f 6))
|
(sxml->table-row-col sxml 1 #f 5))
|
||||||
|
|
||||||
(test-equal "tax on purchases as expected"
|
(test-equal "tax on purchases as expected"
|
||||||
'("$8.00" "$10.00" "$18.00" "$18.00")
|
'("$8.00" "$10.00" "$18.00")
|
||||||
(sxml->table-row-col sxml 1 #f 9)))
|
(sxml->table-row-col sxml 1 #f 8)))
|
||||||
|
|
||||||
(set-option! options "Display" "Individual tax columns" #t)
|
(set-option! options "Format" "Individual tax columns" #t)
|
||||||
(set-option! options "Display" "Individual purchases columns" #t)
|
(set-option! options "Format" "Individual purchases columns" #t)
|
||||||
(set-option! options "Display" "Individual sales columns" #t)
|
(set-option! options "Format" "Individual sales columns" #t)
|
||||||
(set-option! options "Display" "Gross Balance" #t)
|
(set-option! options "Format" "Gross Balance" #t)
|
||||||
(set-option! options "Display" "Net Balance" #t)
|
(set-option! options "Format" "Net Balance" #t)
|
||||||
(set-option! options "Display" "Tax payable" #t)
|
(set-option! options "Format" "Tax payable" #t)
|
||||||
(let ((sxml (options->sxml options "display options enabled")))
|
(let ((sxml (options->sxml options "display options enabled")))
|
||||||
(test-equal "all display columns enabled"
|
(test-equal "all display columns enabled"
|
||||||
'("Grand Total" "$1,055.00" "$1,000.00" "$20.00" "$35.00" "$248.00" "$230.00" "$18.00" "$807.00" "$770.00" "$37.00")
|
'("Grand Total" "$1,055.00" "$1,000.00" "$20.00" "$35.00" "$248.00" "$230.00" "$18.00" "$807.00" "$770.00" "$37.00")
|
||||||
(sxml->table-row-col sxml 1 -1 #f))))
|
(sxml->table-row-col sxml 1 -1 #f))))
|
||||||
|
|
||||||
(test-end "display options")))
|
(test-end "display options")))
|
||||||
|
|
||||||
|
(define (uk-vat-tests)
|
||||||
|
(define structure
|
||||||
|
(list "Root" (list (cons 'type ACCT-TYPE-ASSET))
|
||||||
|
(list "VAT"
|
||||||
|
(list "Input"
|
||||||
|
(list "Purchases VAT"))
|
||||||
|
(list "Output" (list (cons 'type ACCT-TYPE-LIABILITY))
|
||||||
|
(list "EU Purchases VAT")
|
||||||
|
(list "Sales VAT")))
|
||||||
|
(list "Asset"
|
||||||
|
(list "Bank")
|
||||||
|
(list "Capital Assets"))
|
||||||
|
(list "Income" (list (cons 'type ACCT-TYPE-INCOME))
|
||||||
|
(list "Sales non-EU")
|
||||||
|
(list "Sales EU Goods")
|
||||||
|
(list "Sales EU Services"))
|
||||||
|
(list "Expenses" (list (cons 'type ACCT-TYPE-EXPENSE))
|
||||||
|
(list "Professional Fees")
|
||||||
|
(list "EU Reverse VAT Expenses"))))
|
||||||
|
;; This function will perform implementation testing on the VAT report.
|
||||||
|
(let* ((env (create-test-env))
|
||||||
|
(account-alist (env-create-account-structure-alist env structure))
|
||||||
|
(YEAR (gnc:time64-get-year (gnc:get-today))))
|
||||||
|
|
||||||
|
(define (get-acct a)
|
||||||
|
(or (assoc-ref account-alist a) (error "invalid account:" a)))
|
||||||
|
(define (default-testing-options)
|
||||||
|
(let ((options (gnc:make-report-options rpt-uuid)))
|
||||||
|
(set-option! options "Accounts" "Sales"
|
||||||
|
(gnc:accounts-and-all-descendants
|
||||||
|
(list (get-acct "Income"))))
|
||||||
|
(set-option! options "Accounts" "Purchases"
|
||||||
|
(gnc:accounts-and-all-descendants
|
||||||
|
(list (get-acct "Expenses"))))
|
||||||
|
(set-option! options "Accounts" "Tax Accounts"
|
||||||
|
(list (get-acct "Purchases VAT")
|
||||||
|
(get-acct "EU Purchases VAT")
|
||||||
|
(get-acct "Sales VAT")))
|
||||||
|
(set-option! options "General" "Add options summary" 'always)
|
||||||
|
(set-option! options "General" "Table for Exporting" #t)
|
||||||
|
(set-option! options "General" "Start Date" (cons 'relative 'start-cal-year))
|
||||||
|
(set-option! options "General" "End Date" (cons 'relative 'end-cal-year))
|
||||||
|
options))
|
||||||
|
|
||||||
|
(xaccAccountSetDescription (get-acct "Sales EU Goods") "*EUGOODS*")
|
||||||
|
(xaccAccountSetDescription (get-acct "EU Reverse VAT Expenses") "*EUGOODS*")
|
||||||
|
(xaccAccountSetDescription (get-acct "EU Purchases VAT") "*EUVAT*")
|
||||||
|
|
||||||
|
(create-txn 01 01 YEAR "$1000 sales + $200 VAT"
|
||||||
|
(list
|
||||||
|
(cons 1200 (get-acct "Bank"))
|
||||||
|
(cons -200 (get-acct "Sales VAT"))
|
||||||
|
(cons -1000 (get-acct "Income"))))
|
||||||
|
|
||||||
|
(create-txn 02 01 YEAR "$100 sales + $20 VAT"
|
||||||
|
(list
|
||||||
|
(cons 120 (get-acct "Bank"))
|
||||||
|
(cons -20 (get-acct "Sales VAT"))
|
||||||
|
(cons -100 (get-acct "Income"))))
|
||||||
|
|
||||||
|
(create-txn 03 01 YEAR "refund for $50 sales + $10 VAT"
|
||||||
|
(list
|
||||||
|
(cons -120 (get-acct "Bank"))
|
||||||
|
(cons 20 (get-acct "Sales VAT"))
|
||||||
|
(cons 100 (get-acct "Income"))))
|
||||||
|
|
||||||
|
(create-txn 04 01 YEAR "reduced VAT sales $200 + $20 VAT"
|
||||||
|
(list
|
||||||
|
(cons 220 (get-acct "Bank"))
|
||||||
|
(cons -20 (get-acct "Sales VAT"))
|
||||||
|
(cons -200 (get-acct "Income"))))
|
||||||
|
|
||||||
|
(create-txn 05 01 YEAR "Sale of Goods to EU $100"
|
||||||
|
(list
|
||||||
|
(cons 100 (get-acct "Bank"))
|
||||||
|
(cons -100 (get-acct "Sales EU Goods"))))
|
||||||
|
|
||||||
|
(create-txn 07 01 YEAR "UK Accountant Services"
|
||||||
|
(list
|
||||||
|
(cons -54 (get-acct "Bank"))
|
||||||
|
(cons 45 (get-acct "Professional Fees"))
|
||||||
|
(cons 9 (get-acct "Purchases VAT"))))
|
||||||
|
|
||||||
|
(create-txn 08 01 YEAR "VAT-free sales, $0 vat-sales"
|
||||||
|
(list
|
||||||
|
(cons 50 (get-acct "Bank"))
|
||||||
|
(cons 0 (get-acct "Sales VAT"))
|
||||||
|
(cons -50 (get-acct "Sales non-EU"))))
|
||||||
|
|
||||||
|
(create-txn 09 01 YEAR "Widget Inserter bought from EU"
|
||||||
|
(list
|
||||||
|
(cons -150 (get-acct "Bank"))
|
||||||
|
(cons -30 (get-acct "EU Purchases VAT"))
|
||||||
|
(cons 150 (get-acct "EU Reverse VAT Expenses"))
|
||||||
|
(cons 30 (get-acct "Purchases VAT"))))
|
||||||
|
|
||||||
|
(create-txn 10 01 YEAR "Services to EU customer"
|
||||||
|
(list
|
||||||
|
(cons 125 (get-acct "Bank"))
|
||||||
|
(cons -125 (get-acct "Sales EU Services"))))
|
||||||
|
|
||||||
|
(create-txn 11 01 YEAR "Consumables from EU Supplier"
|
||||||
|
(list
|
||||||
|
(cons -50 (get-acct "Bank"))
|
||||||
|
(cons 50 (get-acct "EU Reverse VAT Expenses"))
|
||||||
|
(cons 10 (get-acct "Purchases VAT"))
|
||||||
|
(cons -10 (get-acct "EU Purchases VAT"))))
|
||||||
|
|
||||||
|
(create-txn 12 01 YEAR "Laptop bought in UK"
|
||||||
|
(list
|
||||||
|
(cons -360 (get-acct "Bank"))
|
||||||
|
(cons 300 (get-acct "Expenses"))
|
||||||
|
(cons 60 (get-acct "Purchases VAT"))))
|
||||||
|
|
||||||
|
(let ((options (default-testing-options)))
|
||||||
|
(set-option! options "Format" "Report format" 'default)
|
||||||
|
(let ((sxml (options->sxml options "ukvat-default-format")))
|
||||||
|
(test-equal "ukvat-default-format"
|
||||||
|
'("Grand Total" "$1,735.00" "$1,475.00" "$260.00"
|
||||||
|
"$654.00" "$545.00" "$109.00")
|
||||||
|
(sxml->table-row-col sxml 1 -1 #f)))
|
||||||
|
|
||||||
|
(set-option! options "Format" "Report format" 'uk-vat)
|
||||||
|
(let ((sxml (options->sxml options "ukvat-return-format")))
|
||||||
|
(test-equal "ukvat-return-format"
|
||||||
|
'("Grand Total" "$220.00" "$40.00" "$260.00" "$109.00"
|
||||||
|
"$151.00" "$1,475.00" "$545.00" "$100.00" "$200.00")
|
||||||
|
(sxml->table-row-col sxml 1 -1 #f)))
|
||||||
|
|
||||||
|
(set-option! options "Format" "Report format" 'au-bas)
|
||||||
|
(let ((sxml (options->sxml options "aubas-return-format")))
|
||||||
|
(test-equal "aubas-return-format"
|
||||||
|
'("Grand Total" "$1,735.00" "$260.00" "$109.00")
|
||||||
|
(sxml->table-row-col sxml 1 -1 #f))))))
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user