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

2001-04-21 Christian Stimming <stimming@tuhh.de>

Browse Source 
* src/scm/report/transaction-report.scm: Fixed date bug.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@4004 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2001-04-21 23:57:15 +00:00
parent 38531ab697
commit d9627b7ffb
2 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ChangeLog
View File

@ -1,3 +1,7 @@
2001-04-21 Christian Stimming <stimming@tuhh.de>
* src/scm/report/transaction-report.scm: Fixed date bug.
2001-04-21 Dave Peticolas <dave@krondo.com>
* src/guile/gnc-helpers.c: more work on scm<->query.

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

@ -38,13 +38,13 @@
(tm:mon (gnc:timepair->date tp-b)))))
(define (split-same-month-p a b)
(let ((tp-a (gnc:transaction-get-date-entered (gnc:split-get-parent a)))
(tp-b (gnc:transaction-get-date-entered (gnc:split-get-parent b))))
(let ((tp-a (gnc:transaction-get-date-posted (gnc:split-get-parent a)))
(tp-b (gnc:transaction-get-date-posted (gnc:split-get-parent b))))
(timepair-same-month tp-a tp-b)))
(define (split-same-year-p a b)
(let ((tp-a (gnc:transaction-get-date-entered (gnc:split-get-parent a)))
(tp-b (gnc:transaction-get-date-entered (gnc:split-get-parent b))))
(let ((tp-a (gnc:transaction-get-date-posted (gnc:split-get-parent a)))
(tp-b (gnc:transaction-get-date-posted (gnc:split-get-parent b))))
(timepair-same-year tp-a tp-b)))
(define (set-last-row-style! table tag . rest)
@ -858,10 +858,12 @@ and Income accounts")))))
(let ((document (gnc:make-html-document))
(c_accounts (opt-val "General" "Account"))
(begindate (gnc:date-option-absolute-time
(opt-val "General" "From")))
(enddate (gnc:date-option-absolute-time
(opt-val "General" "To")))
(begindate (gnc:timepair-start-day-time
(gnc:date-option-absolute-time
(opt-val "General" "From"))))
(enddate (gnc:timepair-end-day-time
(gnc:date-option-absolute-time
(opt-val "General" "To"))))
(primary-key (opt-val "Sorting" "Primary Key"))
(primary-order (opt-val "Sorting" "Primary Sort Order"))
(secondary-key (opt-val "Sorting" "Secondary Key"))