;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Options for saved report "Savaitinė ataskaita", based on template "0b81a3bdfd504aff849ec2e8630524bc"
(let ()
 (define (options-gen)
  (let ((options (gnc:report-template-new-options/report-guid "0b81a3bdfd504aff849ec2e8630524bc" "Income Statement")))

; Section: General

(let ((option (gnc:lookup-option options
                                 "General"
                                 "Report name")))
  ((lambda (option) (if option ((gnc:option-setter option) "Savaitinė ataskaita"))) option))

(let ((option (gnc:lookup-option options
                                 "General"
                                 "End Date")))
  ((lambda (option) (if option ((gnc:option-setter option) '(absolute 1384639200 . 0)))) option))

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


; Section: Accounts

(let ((option (gnc:lookup-option options
                                 "Accounts"
                                 "Levels of Subaccounts")))
  ((lambda (option) (if option ((gnc:option-setter option) '4))) option))


; 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"
                                 "Parent account balances")))
  ((lambda (option) (if option ((gnc:option-setter option) 'recursive-bal))) option))


; Section: Entries


; Section: Commodities

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

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

  options))
 (gnc:define-report 
  'version 1
  'name "Savaitinė ataskaita"
  'report-guid "5c43dd98927d89d1b9a43973fdae07d3"
  'parent-type "0b81a3bdfd504aff849ec2e8630524bc"
  'options-generator options-gen
  'menu-path (list gnc:menuname-custom)
  'renderer (gnc:report-template-renderer/report-guid "0b81a3bdfd504aff849ec2e8630524bc" "Income Statement")))

