[gnucash-de] Bräuchte da Hilfe beim Schreiben meines ersten Reports

[Martin Kaffanke]

Hallo,

Mein Report, siehe Anhang 1 crasht, Anhang 2.  Vielleicht kann mir
jemand sagen warum, ich werde aus dem Backtrace das Gnucash bei 

gnucash --log gnc.scm=warning --logto stderr

Ausgibt nicht ganz schlau.

Herzlichen Dank für eure Hilfe,
Martin


Anhang 1

;; -*-scheme-*-

;; My first report

(define-module (gnucash report my-overview))

(use-modules (gnucash main)) ;; FIXME: delete after we finish
modularizing.
(use-modules (gnucash gnc-module))

(gnc:module-load "gnucash/report/report-system" 0)

(gnc:warn "loaded my-overview")

; Definitions
(define reportname (N_ "Montly Overview"))

(define optname-report-title (N_ "Report Title"))
(define opthelp-report-title (N_ "Title for this report"))

; Options
(define (my-overview-options-generator)
  (let* ((options (gnc:new-options))
         (add-option 
          (lambda (new-option)
            (gnc:register-option options new-option))))

    (add-option
      (gnc:make-string-option
      gnc:pagename-general optname-report-title
      "a" opthelp-report-title (_ reportname)))
))

; Renderer
(define (my-overview-renderer report-obj)
  (define (get-option pagename optname)
    (gnc:option-value
     (gnc:lookup-option 
      (gnc:report-options report-obj) pagename optname)))
  
      (gnc:report-starting reportname)
     (let* (
	 (report-title (get-option gnc:pagename-general optname-report-title))
     )

   (gnc:html-document-set-title! 
     doc (string-append company-name " " report-title " "
			(gnc-print-date date-tp))
   )
    (gnc:report-finished)
    doc)
)

(gnc:define-report
  'version 1
  'name (N_ reportname)
  ;'report-guid "590830e164e6540569b5de715e6039cb"
  'menu-path (list gnc:menuname-custom)
  'options-generator my-overview-options-generator
  'renderer my-overview-renderer


)



Anhang 2
In current input:
   1: 0* (let ((options #)) (gnc:restore-report 4 "Montly Overview"
options))
   1: 1* [gnc:report-template-new-options/name "Montly Overview"]
In /usr/share/gnucash/scm/report.scm:
 139: 2  (let ((templ #)) (if templ (gnc:report-template-new-options
templ) #f))
   ...
 186: 3  (let (#) (or # #) (or # #) ...)
 195: 4* (or # #)
 195: 5* [gnc:lookup-option #<unspecified> "General" "Report name"]
In /usr/share/gnucash/scm/options.scm:
1467: 6  (if options ((options (quote lookup)) section name) #f)
1468: 7  ((options (quote lookup)) section name)
1468: 8* (options (quote lookup))

/usr/share/gnucash/scm/options.scm:1468:8: In expression (options (quote
lookup)):
/usr/share/gnucash/scm/options.scm:1468:8: Wrong type to apply:
#<unspecified>