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

[aging] use srfi-9 records for :company-info

Browse Source
This commit is contained in:
Christopher Lam 2020-07-12 22:09:48 +08:00
parent 428c8c501c
commit b5829ce33a
1 changed files with 9 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
gnucash/report/reports/aging.scm
View File

@ -31,6 +31,7 @@
(use-modules (gnucash core-utils)) (use-modules (gnucash core-utils))
(use-modules (gnucash app-utils)) (use-modules (gnucash app-utils))
(use-modules (gnucash report)) (use-modules (gnucash report))
(use-modules (srfi srfi-9))
(define optname-to-date (N_ "To")) (define optname-to-date (N_ "To"))
(define optname-sort-by (N_ "Sort By")) (define optname-sort-by (N_ "Sort By"))
@ -67,42 +68,20 @@
;; if any. Any bills get taken out of the overpayment before ;; if any. Any bills get taken out of the overpayment before
;; incurring debt. ;; incurring debt.
(define company-info (make-record-type "ComanyInfo" (define-record-type :company-info
'(currency (make-company-private currency bucket overpayment owner-obj)
bucket-vector company-info?
overpayment (currency company-get-currency)
owner-obj))) (bucket company-get-buckets company-set-buckets)
(overpayment company-get-overpayment company-set-overpayment)
(owner-obj company-get-owner-obj company-set-owner-obj!))
(define num-buckets 5) (define num-buckets 5)
(define (new-bucket-vector) (define (new-bucket-vector)
(make-vector num-buckets (gnc-numeric-zero))) (make-vector num-buckets (gnc-numeric-zero)))
(define make-company-private
(record-constructor company-info '(currency bucket-vector overpayment owner-obj)))
(define (make-company currency owner-obj) (define (make-company currency owner-obj)
(make-company-private currency (new-bucket-vector) (gnc-numeric-zero) owner-obj)) (make-company-private currency (new-bucket-vector) 0 owner-obj))
(define company-get-currency
(record-accessor company-info 'currency))
(define company-get-owner-obj
(record-accessor company-info 'owner-obj))
(define company-set-owner-obj!
(record-modifier company-info 'owner-obj))
(define company-get-buckets
(record-accessor company-info 'bucket-vector))
(define company-set-buckets
(record-modifier company-info 'bucket-vector))
(define company-get-overpayment
(record-accessor company-info 'overpayment))
(define company-set-overpayment
(record-modifier company-info 'overpayment))
;; Put an invoice in the appropriate bucket ;; Put an invoice in the appropriate bucket