Fix some of the query creation code so as not to match all splits

in the book.  This is to help fix bugID 8805, but it sounds like it
is not completely fixed, yet.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@7120 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Derek Atkins 2002-07-17 23:48:19 +00:00
parent b553819fba
commit d9acfb3341

View File

@ -16,7 +16,7 @@
;; account group.
(gnc:query-add-account-match query
(gnc:group-get-subaccounts group)
'guid-match-any 'query-or)
'guid-match-any 'query-and)
(set! xtns (gnc:query-get-transactions query 'query-txn-match-all))
@ -55,7 +55,6 @@
;; for each split in the transaction, add a term to match the
;; properties of one split
(let ((q-splits (gnc:malloc-query)))
(gnc:query-set-book q-splits (gnc:group-get-book old-group))
(for-each
(lambda (split)
(let ((sq (gnc:malloc-query)))