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@2158 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2000-04-05 02:07:02 +00:00
parent 38fcb8da8f
commit d33142074c
1 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/scm/acc-create.scm
View File

@ -7,9 +7,13 @@
(cdr s)
#f)))
(display (account-type->number 'INCOME)) (newline)
(if (gnc:debugging?)
(begin
(display (account-type->number 'INCOME))
(newline)))
(define (gnc:get-incomes-list account-group)
(if testing?
(if (gnc:debugging?)
gc-cats
(filteroutnulls
(flatten
@ -22,11 +26,12 @@
; (map account-type->number
; '(CASH CREDIT ASSET LIABILITY CURRENCY)))
(if testing?
(if (gnc:debugging?)
(begin
(display "gnc-asset-account-types:")
(display gnc-asset-account-types)
(newline)))
;;; '(1 2 3 4 7))
;;;;;;;;;;;;;;;;;;;;;;; add, eventually, 11 12 13 14))
;;; aka CHECKING SAVINGS MONEYMRKT CREDITLINE))
@ -34,7 +39,7 @@
(define gnc-income-account-types
(map account-type->number '(INCOME EXPENSE)))
(if testing?
(if (gnc:debugging?)
(begin
(display "gnc-income-account-types:")
(display gnc-income-account-types)
@ -42,10 +47,10 @@
(define gnc-invest-account-types '(5 6 10))
(define gnc-invest-account-types
(define gnc-invest-account-types
(map account-type->number '(EQUITY STOCK MUTUAL)))
(if testing?
(if (gnc:debugging?)
(begin
(display "gnc-invest-account-types:")
(display gnc-invest-account-types)
@ -94,8 +99,10 @@
(gnc:account-commit-edit AccPtr))
;;;;;;;;;;; This one's REAL IMPORTANT!!! ;;;;;;;;;;;;
(display (account-type->number 'CASH))
(display (account-type->number 'INCOME))
(if (gnc:debugging?)
(begin
(display (account-type->number 'CASH))
(display (account-type->number 'INCOME))))
;;;;; And now, a "test bed"
(define (gnc:test-load-accs group)