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

Bug #639082 - General Journal report reports an error

Browse Source 
BP

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@21518 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Geert Janssens
2011-11-04 13:43:53 +00:00
parent 4a5ec547e8
commit 0f526a786c
1 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/report/standard-reports/register.scm
View File

@@ -562,7 +562,13 @@
(rest (cdr splits))
(next (if (null? rest) #f
(car rest)))
(split-value (add-split-row table
;; The general ledger has a split that doesn't have an account
;; set yet (the new entry transaction).
;; This split should be skipped or the report errors out.
;; See bug #639082
(valid-split? (not (null? (xaccSplitGetAccount current))))
(split-value (if valid-split?
(add-split-row table
current
used-columns
current-row-style
@@ -570,13 +576,13 @@
(not multi-rows?)
double?
(opt-val "Display" "Memo")
(opt-val "Display" "Description"))))
(opt-val "Display" "Description")))))
(if multi-rows?
(if (and multi-rows? valid-split?)
(add-other-split-rows
current table used-columns "alternate-row"))
(if multi-rows?
(if (and multi-rows? valid-split?)
(for-each (lambda (split)
(if (string=? (gncAccountGetGUID
(xaccSplitGetAccount current))