mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
Fix some unknown symbol warnings in reports.
This commit is contained in:
parent
79d46be8bc
commit
ff6d3d899b
@ -433,7 +433,7 @@ not found.")))
|
||||
gnc:optname-stylesheet))))
|
||||
|
||||
(define (gnc:report-set-stylesheet! report stylesheet)
|
||||
(gnc-set-value
|
||||
(gnc-set-option
|
||||
(gnc:optiondb (gnc:report-options report))
|
||||
gnc:pagename-general gnc:optname-stylesheet
|
||||
(string->symbol (gnc:html-style-sheet-name stylesheet))))
|
||||
|
@ -462,7 +462,7 @@ balance at a given time"))
|
||||
(gnc:options-copy-values (gnc:report-options report-obj)
|
||||
options)
|
||||
;; and set the destination accounts
|
||||
(gnc-option-set-value
|
||||
(gnc-set-option
|
||||
options gnc:pagename-accounts optname-accounts
|
||||
(map cadr finish))
|
||||
(set! id (gnc:make-report report-guid options))
|
||||
|
@ -428,7 +428,7 @@ exist but have no suitable transactions."))
|
||||
|
||||
(define (receivables-report-create-internal acct title show-zeros?)
|
||||
(let* ((options (gnc:make-report-options receivables-aging-guid)))
|
||||
(when title (gnc-set-option-set-value
|
||||
(when title (gnc-set-option
|
||||
options gnc:pagename-general gnc:optname-reportname title))
|
||||
(gnc-set-option options gnc:pagename-general optname-show-zeros show-zeros?)
|
||||
(gnc:make-report receivables-aging-guid options)))
|
||||
|
@ -107,7 +107,7 @@
|
||||
(test-assert (format #f "wrong-option ~a ~a" section name) #f)))
|
||||
(define (opt-val options section name)
|
||||
(if (gnc-lookup-option options section name)
|
||||
(gnc-get-option options section name value)
|
||||
(gnc-optiondb-lookup-value options section name)
|
||||
(test-assert (format #f "wrong-option ~a ~a" section name) #f)))
|
||||
|
||||
(define structure
|
||||
|
Loading…
Reference in New Issue
Block a user