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

Fix bug #584819: Company name is not shown by default on some reports. Patch by Chris Dennis.

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@18103 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Phil Longstaff 2009-06-04 21:16:01 +00:00
parent 99ba7034d7
commit 2b5c814b50
7 changed files with 22 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/business/business-utils/business-utils.scm
View File

@ -14,9 +14,16 @@
(define gnc:*company-email* (N_ "Company Email Address"))
(define gnc:*company-contact* (N_ "Company Contact Person"))
(export gnc:*business-label* gnc:*company-name* gnc:*company-addy* gnc:*company-id*
gnc:*company-phone* gnc:*company-fax* gnc:*company-url*
gnc:*company-email* gnc:*company-contact*)
(define (gnc:company-info key)
;; Access company info from key-value pairs for current book
(kvp-frame-get-slot-path-gslist
(gnc-book-get-slots (gnc-get-current-book))
(append gnc:*kvp-option-path* (list gnc:*business-label* key))))
(export gnc:*business-label* gnc:*company-name* gnc:*company-addy*
gnc:*company-id* gnc:*company-phone* gnc:*company-fax*
gnc:*company-url* gnc:*company-email* gnc:*company-contact*
gnc:company-info)
(load-from-path "business-options.scm")
(load-from-path "business-prefs.scm")

6
src/report/standard-reports/balance-sheet.scm
View File

@ -66,6 +66,7 @@
(use-modules (gnucash main)) ;; FIXME: delete after we finish modularizing.
(use-modules (ice-9 slib))
(use-modules (gnucash gnc-module))
(use-modules (gnucash business-utils))
(gnc:module-load "gnucash/report/report-system" 0)
@ -158,10 +159,7 @@
(add-option
(gnc:make-string-option
gnc:pagename-general optname-party-name
"b" opthelp-party-name ""))
;; this should default to company name in (gnc-get-current-book)
;; does anyone know the function to get the company name??
;; (GnuCash is *so* well documented... sigh)
"b" opthelp-party-name (gnc:company-info gnc:*company-name*)))
;; date at which to report balance
(gnc:options-add-report-date!

6
src/report/standard-reports/budget-balance-sheet.scm
View File

@ -32,6 +32,7 @@
(use-modules (gnucash main)) ;; FIXME: delete after we finish modularizing.
(use-modules (ice-9 slib))
(use-modules (gnucash gnc-module))
(use-modules (gnucash business-utils))
(gnc:module-load "gnucash/report/report-system" 0)
@ -126,10 +127,7 @@
(add-option
(gnc:make-string-option
gnc:pagename-general optname-party-name
"b" opthelp-party-name ""))
;; this should default to company name in (gnc-get-current-book)
;; does anyone know the function to get the company name??
;; (GnuCash is *so* well documented... sigh)
"b" opthelp-party-name (gnc:company-info gnc:*company-name*)))
(add-option
(gnc:make-simple-boolean-option

6
src/report/standard-reports/budget-income-statement.scm
View File

@ -44,6 +44,7 @@
(use-modules (gnucash main)) ;; FIXME: delete after we finish modularizing.
(use-modules (ice-9 slib))
(use-modules (gnucash gnc-module))
(use-modules (gnucash business-utils))
(gnc:module-load "gnucash/report/report-system" 0)
@ -133,10 +134,7 @@
(add-option
(gnc:make-string-option
gnc:pagename-general optname-party-name
"b" opthelp-party-name ""))
;; this should default to company name in (gnc-get-current-book)
;; does anyone know the function to get the company name??
;; (GnuCash is *so* well documented... sigh)
"b" opthelp-party-name (gnc:company-info gnc:*company-name*)))
(add-option
(gnc:make-budget-option

6
src/report/standard-reports/equity-statement.scm
View File

@ -49,6 +49,7 @@
(use-modules (gnucash main)) ;; FIXME: delete after we finish modularizing.
(use-modules (ice-9 slib))
(use-modules (gnucash gnc-module))
(use-modules (gnucash business-utils))
(require 'printf)
@ -111,10 +112,7 @@
(add-option
(gnc:make-string-option
(N_ "General") optname-party-name
"b" opthelp-party-name ""))
;; this should default to company name in (gnc-get-current-book)
;; does anyone know the function to get the company name??
;; (GnuCash is *so* well documented... sigh)
"b" opthelp-party-name (gnc:company-info gnc:*company-name*)))
;; date at which to report balance
(gnc:options-add-date-interval!

6
src/report/standard-reports/income-statement.scm
View File

@ -45,6 +45,7 @@
(use-modules (gnucash main)) ;; FIXME: delete after we finish modularizing.
(use-modules (ice-9 slib))
(use-modules (gnucash gnc-module))
(use-modules (gnucash business-utils))
(gnc:module-load "gnucash/report/report-system" 0)
@ -144,10 +145,7 @@
(add-option
(gnc:make-string-option
gnc:pagename-general optname-party-name
"b" opthelp-party-name ""))
;; this should default to company name in (gnc-get-current-book)
;; does anyone know the function to get the company name??
;; (GnuCash is *so* well documented... sigh)
"b" opthelp-party-name (gnc:company-info gnc:*company-name*)))
;; period over which to report income
(gnc:options-add-date-interval!

4
src/report/standard-reports/trial-balance.scm
View File

@ -54,6 +54,7 @@
(use-modules (gnucash main)) ;; FIXME: delete after we finish modularizing.
(use-modules (ice-9 slib))
(use-modules (gnucash gnc-module))
(use-modules (gnucash business-utils))
(gnc:module-load "gnucash/report/report-system" 0)
@ -148,8 +149,7 @@
(add-option
(gnc:make-string-option
(N_ "General") optname-party-name
"b" opthelp-party-name ""))
;; this should default to company name in (gnc-get-current-book)
"b" opthelp-party-name (gnc:company-info gnc:*company-name*)))
;; the period over which to collect adjusting/closing entries and
;; date at which to report the balance