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

*** empty log message ***

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@2067 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2000-03-08 08:49:22 +00:00
parent 74465a8726
commit aacce23278
3 changed files with 25 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
src/scm/report/average-balance.scm
View File

@ -38,8 +38,8 @@
(set-tm:hour bdtime 0)
(set-tm:mday bdtime 1)
(set-tm:mon bdtime 0)
(cons (car (mktime bdtime)) 0))))
#f))
(cons (car (mktime bdtime)) 0)))
#f))
;; to-date
(gnc:register-runavg-option
@ -66,14 +66,12 @@
(gnc:for-loop
(lambda(x)
(set! acctlist
(append!
acctlist
(list (gnc:group-get-account
(gnc:get-current-group) x)))))
(append!
acctlist
(list (gnc:group-get-account
(gnc:get-current-group) x)))))
0 (eval num-accounts) 1)
acctlist
)
))))
acctlist)))))
#f #t))
(gnc:register-runavg-option
@ -382,7 +380,8 @@
(prefix (list "<HTML>" "<BODY>"))
(suffix (list "</BODY>" "</HTML>"))
(collist
(list "Beginning" "Ending" "Average" "Max" "Min" "Net Gain" "Gain" "Loss"))
(list "Beginning" "Ending" "Average" "Max"
"Min" "Net Gain" "Gain" "Loss"))
(report-lines '())
(rept-data '())
@ -401,7 +400,7 @@
(begin
; Grab account names
(set! acctname (string-join
(map gnc-account-getname accounts)
(map gnc:account-get-name accounts)
" , "))
(cond ((equal? dosubs #t)
(map (lambda (a)
@ -439,7 +438,7 @@
(dateloop begindate
enddate
(eval stepsize))
report-lines zdate tempstruct))
report-lines (make-zdate) tempstruct))
(set! sum-data (get-averages rept-data))
@ -472,7 +471,7 @@
(if (null? accounts)
()
(list "Report for " acctname "<p>\n"))
(list rept-text) suffix))))
(list rept-text) suffix)))
(gnc:define-report
;; version
@ -482,4 +481,4 @@
;; Options
runavg-options-generator
;; renderer
average-balance-renderer)
average-balance-renderer)

18
src/scm/report/budget-report.scm
View File

@ -39,16 +39,16 @@
;; 5 - triggers: as yet undefined
(define (make-budget-entry desc amt acct per ptype trigger)
(list->vector desc amt acct per ptype trigger))
(vector desc amt acct per ptype trigger))
(define gnc:budget
(list->vector
(make-budget-entry "lunch" 8 ("Food:Lunch") 1
gnc:budget-day gnc:budget-recurring)
(make-budget-entry "junk food" 0.50 ("Food:Junk") 1
gnc:budget-day gnc:budget-recurring)
(make-budget-entry "car repairs" 2500 ("Car:Repairs") 5
gnc:budget-year gnc:budget-contingency)))
(vector
(make-budget-entry "lunch" 8 '("Food:Lunch") 1
'gnc:budget-day gnc:budget-recurring)
(make-budget-entry "junk food" 0.50 '("Food:Junk") 1
'gnc:budget-day gnc:budget-recurring)
(make-budget-entry "car repairs" 2500 '("Car:Repairs") 5
'gnc:budget-year gnc:budget-contingency)))
;;; For future: make-budget-entry should create a structure.
;;; And gnc:budget should be a list, not a vector.
@ -358,4 +358,4 @@
order))
(loop (+ row 1)))))
(html-end-table)
(html-end-document))))))
(html-end-document))))))

7
src/scm/report/transaction-report.scm
View File

@ -404,11 +404,10 @@
(gnc:tr-report-make-sort-predicate
tr-report-primary-key-op tr-report-primary-order-op
tr-report-secondary-key-op tr-report-secondary-order-op)))
(let ((html-mapper (lambda (split-scm) (display "in!") (newline)
(let ((html-mapper (lambda (split-scm)
(gnc:tr-report-split-to-html
split-scm
starting-balance)
(display "out!") (newline))))
split-scm
starting-balance))))
(set! report-lines (gnc:inorder-map report-lines html-mapper)))
(set!
balance-line