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

[job-report] remove dead code

Browse Source
This commit is contained in:
Christopher Lam 2020-03-11 21:58:46 +08:00
parent 9e06345f2e
commit 74e66acd50
1 changed files with 1 additions and 65 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
gnucash/report/business-reports/job-report.scm
View File

@ -399,23 +399,11 @@
(gnc:options-set-default-section gnc:*report-options* "General")
gnc:*report-options*)
(define (job-options-generator)
(options-generator (list ACCT-TYPE-RECEIVABLE) GNC-OWNER-JOB
(_ "Invoice") #f))
(define (customer-options-generator)
(options-generator (list ACCT-TYPE-RECEIVABLE) GNC-OWNER-CUSTOMER
(_ "Invoice") #f))
(define (vendor-options-generator)
(options-generator (list ACCT-TYPE-PAYABLE) GNC-OWNER-VENDOR
(_ "Bill") #t))
(define (employee-options-generator)
(options-generator (list ACCT-TYPE-PAYABLE) GNC-OWNER-EMPLOYEE
(_ "Expense Report") #t))
(define (setup-query q owner account end-date)
(let* ((guid (gncOwnerReturnGUID owner)))
@ -460,24 +448,6 @@
'attribute (list "valign" "top"))
table))
(define (make-date-row! table label date)
(gnc:html-table-append-row!
table
(list
(string-append label " ")
(qof-print-date date))))
(define (make-date-table)
(let ((table (gnc:make-html-table)))
(gnc:html-table-set-style!
table "table"
'attribute (list "border" 0)
'attribute (list "cellpadding" 0))
(gnc:html-table-set-last-row-style!
table "td"
'attribute (list "valign" "top"))
table))
(define (make-myname-table book date-format)
(let* ((table (gnc:make-html-table))
(name (gnc:company-info book gnc:*company-name*))
@ -619,40 +589,6 @@
(qof-query-destroy query)
document))
(define (find-first-account type)
(define (find-first account num index)
(if (>= index num)
'()
(let* ((this-child (gnc-account-nth-child account index))
(account-type (xaccAccountGetType this-child)))
(if (eq? account-type type)
this-child
(find-first account num (+ index 1))))))
(let* ((current-root (gnc-get-current-root-account))
(num-accounts (gnc-account-n-children current-root)))
(if (> num-accounts 0)
(find-first current-root num-accounts 0)
'())))
(define (find-first-account-for-owner owner)
(let ((type (gncOwnerGetType (gncOwnerGetEndOwner owner))))
(cond
((eqv? type GNC-OWNER-CUSTOMER)
(find-first-account ACCT-TYPE-RECEIVABLE))
((eqv? type GNC-OWNER-VENDOR)
(find-first-account ACCT-TYPE-PAYABLE))
((eqv? type GNC-OWNER-EMPLOYEE)
(find-first-account ACCT-TYPE-PAYABLE))
((eqv? type GNC-OWNER-JOB)
(find-first-account-for-owner (gncOwnerGetEndOwner owner)))
(else
'()))))
(gnc:define-report
'version 1
'name (N_ "Job Report")