;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Options for saved report "Bilanz Heute", based on template "c4173ac99b2b448289bf4d11c731af13"
(let ()
  (define (options-gen)
    (let
         (
           (options (gnc:report-template-new-options/report-guid "c4173ac99b2b448289bf4d11c731af13" "Balance Sheet"))
           (new-embedded-report-ids '()) ;; only used with Multicolumn View Reports
         )
; Section: Display

(let ((option (gnc:lookup-option options
                                 "Display"
                                 "Include accounts with zero total balances")))
  ((lambda (option) (if option ((gnc:option-setter option) #f))) option))

(let ((option (gnc:lookup-option options
                                 "Display"
                                 "Omit zero balance figures")))
  ((lambda (option) (if option ((gnc:option-setter option) #t))) option))

(let ((option (gnc:lookup-option options
                                 "Display"
                                 "Include assets total")))
  ((lambda (option) (if option ((gnc:option-setter option) #f))) option))

(let ((option (gnc:lookup-option options
                                 "Display"
                                 "Label the assets section")))
  ((lambda (option) (if option ((gnc:option-setter option) #f))) option))

(let ((option (gnc:lookup-option options
                                 "Display"
                                 "Label the equity section")))
  ((lambda (option) (if option ((gnc:option-setter option) #f))) option))

(let ((option (gnc:lookup-option options
                                 "Display"
                                 "Label the liabilities section")))
  ((lambda (option) (if option ((gnc:option-setter option) #f))) option))

(let ((option (gnc:lookup-option options
                                 "Display"
                                 "Include equity total")))
  ((lambda (option) (if option ((gnc:option-setter option) #f))) option))

(let ((option (gnc:lookup-option options
                                 "Display"
                                 "Include liabilities total")))
  ((lambda (option) (if option ((gnc:option-setter option) #f))) option))

(let ((option (gnc:lookup-option options
                                 "Display"
                                 "Show accounting-style rules")))
  ((lambda (option) (if option ((gnc:option-setter option) #t))) option))

(let ((option (gnc:lookup-option options
                                 "Display"
                                 "Parent account balances")))
  ((lambda (option) (if option ((gnc:option-setter option) 'recursive-bal))) option))


; Section: Commodities

(let ((option (gnc:lookup-option options
                                 "Commodities"
                                 "Show Foreign Currencies")))
  ((lambda (option) (if option ((gnc:option-setter option) #f))) option))


; Section: Accounts


; Section: General

(let ((option (gnc:lookup-option options
                                 "General"
                                 "Stylesheet")))
  ((lambda (option) (if option ((gnc:option-setter option) 'Easy))) option))

(let ((option (gnc:lookup-option options
                                 "General"
                                 "Report name")))
  ((lambda (option) (if option ((gnc:option-setter option) "Bilanz Heute"))) option))

(let ((option (gnc:lookup-option options
                                 "General"
                                 "Single column Balance Sheet")))
  ((lambda (option) (if option ((gnc:option-setter option) #f))) option))

(let ((option (gnc:lookup-option options
                                 "General"
                                 "Balance Sheet Date")))
  ((lambda (option) (if option ((gnc:option-setter option) '(relative . today)))) option))

(let ((option (gnc:lookup-option options
                                 "General"
                                 "Company name")))
  ((lambda (option) (if option ((gnc:option-setter option) "Grote / Ramthun"))) option))


      options
    )
  )
  (gnc:define-report 
    'version 1
    'name "Bilanz Heute"
    'report-guid "38560a0321d24de2928ad42e5ee726cc"
    'parent-type "c4173ac99b2b448289bf4d11c731af13"
    'options-generator options-gen
    'menu-path (list gnc:menuname-custom)
    'renderer (gnc:report-template-renderer/report-guid "c4173ac99b2b448289bf4d11c731af13" "Balance Sheet")
  )
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Options for saved report "Reinvermögen Entwicklung seit 2012", based on template "d8b63264186b11e19038001558291366"
(let ()
  (define (options-gen)
    (let
         (
           (options (gnc:report-template-new-options/report-guid "d8b63264186b11e19038001558291366" "Net Worth Linechart"))
           (new-embedded-report-ids '()) ;; only used with Multicolumn View Reports
         )
; Section: Display

(let ((option (gnc:lookup-option options
                                 "Display"
                                 "Data markers?")))
  ((lambda (option) (if option ((gnc:option-setter option) #f))) option))


; Section: Accounts


; Section: General

(let ((option (gnc:lookup-option options
                                 "General"
                                 "Price Source")))
  ((lambda (option) (if option ((gnc:option-setter option) 'pricedb-nearest))) option))

(let ((option (gnc:lookup-option options
                                 "General"
                                 "Report name")))
  ((lambda (option) (if option ((gnc:option-setter option) "Reinvermögen Entwicklung seit 2012"))) option))

(let ((option (gnc:lookup-option options
                                 "General"
                                 "End Date")))
  ((lambda (option) (if option ((gnc:option-setter option) '(relative . today)))) option))

(let ((option (gnc:lookup-option options
                                 "General"
                                 "Start Date")))
  ((lambda (option) (if option ((gnc:option-setter option) '(absolute . 1325376000)))) option))

(let ((option (gnc:lookup-option options
                                 "General"
                                 "Step Size")))
  ((lambda (option) (if option ((gnc:option-setter option) 'DayDelta))) option))


      options
    )
  )
  (gnc:define-report 
    'version 1
    'name "Reinvermögen Entwicklung seit 2012"
    'report-guid "6ef3f5876a764794860289ecc954bdbf"
    'parent-type "d8b63264186b11e19038001558291366"
    'options-generator options-gen
    'menu-path (list gnc:menuname-custom)
    'renderer (gnc:report-template-renderer/report-guid "d8b63264186b11e19038001558291366" "Net Worth Linechart")
  )
)

