"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "gnucash/report/standard-reports/general-journal.scm" between
gnucash-3.6.tar.bz2 and gnucash-3.7.tar.bz2

About: GnuCash is personal and small-business financial-accounting software.

general-journal.scm  (gnucash-3.6.tar.bz2):general-journal.scm  (gnucash-3.7.tar.bz2)
skipping to change at line 44 skipping to change at line 44
(gnc:module-load "gnucash/report/report-system" 0) (gnc:module-load "gnucash/report/report-system" 0)
(define reportname (N_ "General Journal")) (define reportname (N_ "General Journal"))
(define regrptname (N_ "Register")) (define regrptname (N_ "Register"))
(define regrptguid "22104e02654c4adba844ee75a3f8d173") (define regrptguid "22104e02654c4adba844ee75a3f8d173")
;; report constructor ;; report constructor
(define (gnc:make-general-journal-report) (define (gnc:make-general-journal-report)
(issue-deprecation-warning "gnc:make-general-journal-report is unused.")
(let* ((regrpt (gnc:make-report regrptguid))) (let* ((regrpt (gnc:make-report regrptguid)))
regrpt)) regrpt))
;; options generator ;; options generator
(define (general-journal-options-generator) (define (general-journal-options-generator)
(let* ((options (gnc:report-template-new-options/report-guid regrptguid regrpt name)) (let* ((options (gnc:report-template-new-options/report-guid regrptguid regrpt name))
(query (qof-query-create-for-splits)) (query (qof-query-create-for-splits))
) )
skipping to change at line 94 skipping to change at line 95
(list (list
(list "query" (gnc-query2scm query)) ;; think this wants an scm... (list "query" (gnc-query2scm query)) ;; think this wants an scm...
(list "journal" #t) (list "journal" #t)
(list "double" #t) (list "double" #t)
(list "debit-string" (_ "Debit")) (list "debit-string" (_ "Debit"))
(list "credit-string" (_ "Credit")) (list "credit-string" (_ "Credit"))
) )
) )
;; we'll leave query malloc'd in case this is required by the C side... ;; we'll leave query malloc'd in case this is required by the C side...
;; set options in the general tab...
(set-option!
gnc:pagename-general (N_ "Title") (_ reportname))
;; we can't (currently) set the Report name here
;; because it is automatically set to the template
;; name... :(
;; set options in the display tab... ;; set options in the display tab...
(for-each (for-each
(lambda (l) (lambda (l)
(set-option! gnc:pagename-display (car l) (cadr l))) (set-option! gnc:pagename-display (car l) (cadr l)))
;; One list per option here with: option-name, default-value ;; One list per option here with: option-name, default-value
(list (list
(list (N_ "Date") #t) (list (N_ "Date") #t)
(if (qof-book-use-split-action-for-num-field (gnc-get-current-book)) (if (qof-book-use-split-action-for-num-field (gnc-get-current-book))
(list (N_ "Num/Action") #f) (list (N_ "Num/Action") #f)
(list (N_ "Num") #f)) (list (N_ "Num") #f))
skipping to change at line 129 skipping to change at line 123
) )
) )
options) options)
) )
;; report renderer ;; report renderer
(define (general-journal-renderer report-obj) (define (general-journal-renderer report-obj)
;; just delegate rendering to the Register Report renderer... ;; just delegate rendering to the Register Report renderer...
((gnc:report-template-renderer/report-guid regrptguid regrptname) report-obj)) (let* ((renderer (gnc:report-template-renderer/report-guid regrptguid #f))
(doc (renderer report-obj)))
(gnc:html-document-set-title! doc (_ reportname))
doc))
(gnc:define-report (gnc:define-report
'version 1 'version 1
'name reportname 'name reportname
'report-guid "25455562bd234dd0b048ecc5a8af9e43" 'report-guid "25455562bd234dd0b048ecc5a8af9e43"
'menu-path (list gnc:menuname-asset-liability) 'menu-path (list gnc:menuname-asset-liability)
'options-generator general-journal-options-generator 'options-generator general-journal-options-generator
'renderer general-journal-renderer 'renderer general-journal-renderer
) )
 End of changes. 3 change blocks. 
8 lines changed or deleted 5 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)