Bug #551858: Add Job Report for the business module

The contributor writes:
I need a report which shows me all invoices of a job. This is similar to the
owner-report, e.g. Customer Report. I took the file of owner-report.scm,
changed it so it does the desired and saved it as job-report.scm. I also had to
patch business-core.i to export the right symbols and business-urls.c to have
access to a link to the Job in the header. A patch is attached and I would be
very pleased if this could make it into gnucash. It could be possible to unify
owner-report and job-report, but I didn't put too much effort in it.

Patch by Stefan Wolf.

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@17664 57a11ea4-9604-0410-9ed3-97b8803252fd

src/business/business-core/business-core.i

@@ -124,6 +124,7 @@ GLIST_HELPER_INOUT(EntryList, SWIGTYPE_p__gncEntry);
 #define URL_TYPE_CUSTOMER GNC_ID_CUSTOMER
 #define URL_TYPE_VENDOR GNC_ID_VENDOR
 #define URL_TYPE_EMPLOYEE GNC_ID_EMPLOYEE
+#define URL_TYPE_JOB GNC_ID_JOB
 #define URL_TYPE_INVOICE GNC_ID_INVOICE
 // not exactly clean
 #define URL_TYPE_OWNERREPORT "owner-report"
@@ -145,6 +146,7 @@ GLIST_HELPER_INOUT(EntryList, SWIGTYPE_p__gncEntry);
     SET_ENUM("URL-TYPE-CUSTOMER");
     SET_ENUM("URL-TYPE-VENDOR");
     SET_ENUM("URL-TYPE-EMPLOYEE");
+    SET_ENUM("URL-TYPE-JOB");
     SET_ENUM("URL-TYPE-INVOICE");
     SET_ENUM("URL-TYPE-OWNERREPORT");
 

src/business/business-gnome/business-urls.c

@@ -145,7 +145,6 @@ invoiceCB (const char *location, const char *label,
   return TRUE;
 }
 
-#if 0   // whats up w/ that ?
 static gboolean
 jobCB (const char *location, const char *label,
            gboolean new_window, GNCURLResult * result)
@@ -154,13 +153,12 @@ jobCB (const char *location, const char *label,
   GncJob *job;
 
   /* href="...:job=<guid>" */
-  HANDLE_TYPE ("job=", GNC_ID_INVOICE);
+  HANDLE_TYPE ("job=", GNC_ID_JOB);
   job = (GncJob *) entity;
   gnc_ui_job_edit (job);
 
   return TRUE;
 }
-#endif
 
 /* ================================================================= */
 
@@ -214,6 +212,9 @@ ownerreportCB (const char *location, const char *label,
   case 'e':
     type = GNC_OWNER_EMPLOYEE;
     break;
+  case 'j':
+    type = GNC_OWNER_JOB;
+    break;
   default:
     result->error_message = g_strdup_printf (_("Bad URL: %s"), location);
     return FALSE;
@@ -253,6 +254,15 @@ ownerreportCB (const char *location, const char *label,
       etype = "Employee";
       break;
     }
+    case GNC_OWNER_JOB:
+    {
+      GncJob *job = 
+           gncJobLookup (gnc_get_current_book (), &guid);
+      RETURN_IF_NULL(job);
+      gncOwnerInitJob (&owner, job);
+      etype = "Job";
+      break;
+    }
     default:
       etype = "OTHER";
   }
@@ -306,6 +316,7 @@ gnc_business_urls_initialize (void)
     { GNC_ID_CUSTOMER, GNC_ID_CUSTOMER, customerCB },
     { GNC_ID_VENDOR, GNC_ID_VENDOR, vendorCB },
     { GNC_ID_EMPLOYEE, GNC_ID_EMPLOYEE, employeeCB },
+    { GNC_ID_JOB, GNC_ID_JOB, jobCB },
     { GNC_ID_INVOICE, GNC_ID_INVOICE, invoiceCB },
     { URL_TYPE_OWNERREPORT, "gnc-ownerreport", ownerreportCB },
     { NULL, NULL }

src/business/business-reports/business-reports.scm

@@ -102,6 +102,7 @@
 (use-modules (gnucash report invoice))
 (use-modules (gnucash report easy-invoice))
 (use-modules (gnucash report owner-report))
+(use-modules (gnucash report job-report))
 (use-modules (gnucash report payables))
 (use-modules (gnucash report receivables))
 

src/business/business-reports/job-report.scm

@@ -0,0 +1,692 @@
+;; -*-scheme-*-
+;; owner-report.scm -- Print out a detailed owner report, which is a
+;;		       summary of invoices and payments for a particular
+;;		       company (the owner) applied to an account.
+;;
+;; Created by:  Derek Atkins <warlord@MIT.EDU>
+;; Copyright (c) 2002, 2003 Derek Atkins <warlord@MIT.EDU>
+;;
+;; This program is free software; you can redistribute it and/or    
+;; modify it under the terms of the GNU General Public License as   
+;; published by the Free Software Foundation; either version 2 of   
+;; the License, or (at your option) any later version.              
+;;                                                                  
+;; This program is distributed in the hope that it will be useful,  
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of   
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    
+;; GNU General Public License for more details.                     
+;;                                                                  
+;; You should have received a copy of the GNU General Public License
+;; along with this program; if not, contact:
+;;
+;; Free Software Foundation           Voice:  +1-617-542-5942
+;; 51 Franklin Street, Fifth Floor    Fax:    +1-617-542-2652
+;; Boston, MA  02110-1301,  USA       gnu@gnu.org
+
+
+(define-module (gnucash report job-report))
+
+(use-modules (srfi srfi-1))
+(use-modules (ice-9 slib))
+(use-modules (gnucash gnc-module))
+(use-modules (gnucash main))		; for gnc:debug
+
+(gnc:module-load "gnucash/report/report-system" 0)
+(gnc:module-load "gnucash/business-utils" 0)
+(gnc:module-load "gnucash/business-gnome" 0)
+
+(use-modules (gnucash report standard-reports))
+(use-modules (gnucash report business-reports))
+
+(define acct-string (N_ "Account"))
+(define owner-string (N_ "Job"))
+(define owner-page gnc:pagename-general)
+
+(define date-header (N_ "Date"))
+(define due-date-header (N_ "Due Date"))
+(define reference-header (N_ "Reference"))
+(define type-header (N_ "Type"))
+(define desc-header (N_ "Description"))
+(define amount-header (N_ "Amount"))
+
+(define-macro (addto! alist element)
+  `(set! ,alist (cons ,element ,alist)))
+
+(define (set-last-row-style! table tag . rest)
+  (let ((arg-list 
+         (cons table 
+               (cons (- (gnc:html-table-num-rows table) 1)
+                     (cons tag rest)))))
+    (apply gnc:html-table-set-row-style! arg-list)))
+
+(define (date-col columns-used)
+  (vector-ref columns-used 0))
+(define (date-due-col columns-used)
+  (vector-ref columns-used 1))
+(define (num-col columns-used)
+  (vector-ref columns-used 2))
+(define (type-col columns-used)
+  (vector-ref columns-used 3))
+(define (memo-col columns-used)
+  (vector-ref columns-used 4))
+(define (value-col columns-used)
+  (vector-ref columns-used 5))
+
+(define columns-used-size 6)
+
+(define (build-column-used options)   
+  (define (opt-val section name)
+    (gnc:option-value 
+     (gnc:lookup-option options section name)))
+  (define (make-set-col col-vector)
+    (let ((col 0))
+      (lambda (used? index)
+        (if used?
+            (begin
+              (vector-set! col-vector index col)
+              (set! col (+ col 1)))
+            (vector-set! col-vector index #f)))))
+  
+  (let* ((col-vector (make-vector columns-used-size #f))
+         (set-col (make-set-col col-vector)))
+    (set-col (opt-val "Display Columns" date-header) 0)
+    (set-col (opt-val "Display Columns" due-date-header) 1)
+    (set-col (opt-val "Display Columns" reference-header) 2)
+    (set-col (opt-val "Display Columns" type-header) 3)
+    (set-col (opt-val "Display Columns" desc-header) 4)
+    (set-col (opt-val "Display Columns" amount-header) 5)
+    col-vector))
+
+(define (make-heading-list column-vector)
+  (let ((heading-list '()))
+    (if (date-col column-vector)
+        (addto! heading-list (_ date-header)))
+    (if (date-due-col column-vector)
+        (addto! heading-list (_ due-date-header)))
+    (if (num-col column-vector)
+        (addto! heading-list (_ reference-header)))
+    (if (type-col column-vector)
+	(addto! heading-list (_ type-header)))
+    (if (memo-col column-vector)
+	(addto! heading-list (_ desc-header)))
+    (if (value-col column-vector)
+	(addto! heading-list (_ amount-header)))
+    (reverse heading-list)))
+
+
+(define num-buckets 4)
+(define (new-bucket-vector)
+  (make-vector num-buckets (gnc-numeric-zero)))
+
+(define (make-interval-list to-date)
+  (let ((begindate to-date))
+    (set! begindate (decdate begindate ThirtyDayDelta))
+    (set! begindate (decdate begindate ThirtyDayDelta))
+    (set! begindate (decdate begindate ThirtyDayDelta))
+    (gnc:make-date-list begindate to-date ThirtyDayDelta)))
+
+
+(define (make-aging-table options query bucket-intervals reverse?)
+  (let ((lots (xaccQueryGetLots query QUERY-TXN-MATCH-ANY))
+	(buckets (new-bucket-vector))
+	(payments (gnc-numeric-zero))
+	(currency (gnc-default-currency)) ;XXX
+	(table (gnc:make-html-table)))
+
+    (define (in-interval this-date current-bucket)
+      (gnc:timepair-lt this-date current-bucket))
+
+    (define (find-bucket current-bucket bucket-intervals date)
+      (begin
+	(if (>= current-bucket (vector-length bucket-intervals))
+	    (gnc:error "sanity check failed in find-bucket")
+	    (if (in-interval date (vector-ref bucket-intervals current-bucket))
+		current-bucket
+		(find-bucket (+ current-bucket 1) bucket-intervals date)))))
+
+    (define (apply-invoice date value)
+      (let* ((bucket-index (find-bucket 0 bucket-intervals date))
+	     (new-value (gnc-numeric-add-fixed
+			 value
+			 (vector-ref buckets bucket-index))))
+	(vector-set! buckets bucket-index new-value)))
+
+    (define (apply-payment value)
+      (set! payments (gnc-numeric-add-fixed value payments)))
+
+    (for-each
+     (lambda (lot)
+       (let* ((bal (gnc-lot-get-balance lot))
+	      (invoice (gncInvoiceGetInvoiceFromLot lot))
+	      (post-date (gncInvoiceGetDatePosted invoice)))
+
+	 (if (not (gnc-numeric-zero-p bal))
+	     (begin
+	       (if reverse?
+		   (set! bal (gnc-numeric-neg bal)))
+	       (if (not (null? invoice))
+		   (begin
+		     (apply-invoice post-date bal))
+		   (apply-payment bal))))))
+     lots)
+
+    (gnc:html-table-set-col-headers!
+     table
+     (list (_ "0-30 days")
+	   (_ "31-60 days")
+	   (_ "61-90 days")
+	   (_ "91+ days")))
+
+    (gnc:html-table-append-row!
+     table
+     (reverse (map (lambda (entry)
+		     (gnc:make-gnc-monetary currency entry))
+		   (vector->list buckets))))
+
+    table))
+		 
+;;
+;; Make a row list based on the visible columns
+;;
+(define (make-row column-vector date due-date num type-str memo monetary)
+  (let ((row-contents '()))
+    (if (date-col column-vector)
+	(addto! row-contents (gnc-print-date date)))
+    (if (date-due-col column-vector)
+	(addto! row-contents 
+		(if (and due-date
+			 (not (equal? due-date (cons 0 0))))
+		    (gnc-print-date due-date)
+		    "")))
+    (if (num-col column-vector)
+	(addto! row-contents num))
+    (if (type-col column-vector)
+	(addto! row-contents type-str))
+    (if (memo-col column-vector)
+	(addto! row-contents memo))
+    (if (value-col column-vector)
+	(addto! row-contents
+		(gnc:make-html-table-cell/markup "number-cell" monetary)))
+    row-contents))
+
+;;
+;; Adds the 'Balance' row to the table if it has not been printed and
+;; total is not zero
+;;
+;; Returns printed? 
+;;
+(define (add-balance-row table column-vector txn odd-row? printed? start-date total)
+  (if (not printed?)
+      (begin
+	(set! printed? #t)
+	(if (not (gnc-numeric-zero-p total))
+	    (let ((row (make-row column-vector start-date #f "" (_ "Balance") ""
+				 (gnc:make-gnc-monetary (xaccTransGetCurrency txn) total)))
+		  (row-style (if odd-row? "normal-row" "alternate-row")))
+	      (gnc:html-table-append-row/markup! table row-style (reverse row))
+	      (set! odd-row? (not odd-row?))
+	      (set! row-style (if odd-row? "normal-row" "alternate-row")))
+	    )))
+	printed?)
+
+;;
+;; Make sure the caller checks the type first and only calls us with
+;; invoice and payment transactions.  we don't verify it here.
+;;
+;; Return a list of (printed? value odd-row?)
+;;
+(define (add-txn-row table txn acc column-vector odd-row? printed?
+		     inv-str reverse? start-date total)
+  (let* ((type (xaccTransGetTxnType txn))
+	 (date (gnc-transaction-get-date-posted txn))
+	 (due-date #f)
+	 (value (xaccTransGetAccountValue txn acc))
+	 (split (xaccTransGetSplit txn 0))
+	 (invoice (gncInvoiceGetInvoiceFromTxn txn))
+	 (currency (xaccTransGetCurrency txn))
+	 (type-str
+	  (cond
+	   ((equal? type TXN-TYPE-INVOICE)
+	    (if (not (null? invoice))
+		(gnc:make-html-text
+		 (gnc:html-markup-anchor
+		  (gnc:invoice-anchor-text invoice)
+		  inv-str))
+		inv-str))
+	   ((equal? type TXN-TYPE-PAYMENT) (_ "Payment, thank you"))
+	   (else (_ "Unknown"))))
+	 )
+
+    (if reverse?
+	(set! value (gnc-numeric-neg value)))
+
+    (if (gnc:timepair-later start-date date)
+	(begin
+	  
+	  ; Adds 'balance' row if needed
+	  (set! printed? (add-balance-row table column-vector txn odd-row? printed? start-date total))
+	  
+	  ; Now print out the invoice row
+	  (if (not (null? invoice))
+	      (set! due-date (gncInvoiceGetDateDue invoice)))
+
+	  (let ((row (make-row column-vector date due-date (xaccTransGetNum txn)
+			       type-str (xaccSplitGetMemo split)
+			       (gnc:make-gnc-monetary currency value)))
+		(row-style (if odd-row? "normal-row" "alternate-row")))
+
+	    (gnc:html-table-append-row/markup! table row-style
+					       (reverse row)))
+
+	  (set! odd-row? (not odd-row?))
+	  ))
+
+    (list printed? value odd-row?)
+    ))
+
+
+(define (make-txn-table options query acc start-date end-date)
+  (let ((txns (xaccQueryGetTransactions query QUERY-TXN-MATCH-ANY))
+	(used-columns (build-column-used options))
+	(total (gnc-numeric-zero))
+	(currency (gnc-default-currency)) ;XXX
+	(table (gnc:make-html-table))
+	(inv-str (gnc:option-value (gnc:lookup-option options "__reg"
+						      "inv-str")))
+	(reverse? (gnc:option-value (gnc:lookup-option options "__reg"
+						      "reverse?"))))
+
+    (gnc:html-table-set-col-headers!
+     table
+     (make-heading-list used-columns))
+
+    ; Order the transactions properly
+    (set! txns (sort txns (lambda (a b) (> 0 (xaccTransOrder a b)))))
+
+    (let ((printed? #f)
+	  (odd-row? #t))
+      (for-each
+       (lambda (txn)
+	 (let ((type (xaccTransGetTxnType txn)))
+	   (if
+	    (or (equal? type TXN-TYPE-INVOICE)
+		(equal? type TXN-TYPE-PAYMENT))
+	    (let ((result (add-txn-row table txn acc used-columns odd-row? printed?
+				       inv-str reverse? start-date total)))
+
+	      (set! printed? (car result))
+	      (set! total (gnc-numeric-add-fixed total (cadr result)))
+	      (set! odd-row? (caddr result))
+	      ))))
+       txns)
+	  ;Balance row may not have been added if all transactions were before
+	  ;start-date (and no other rows would be added either) so add it now
+      (if (not (null? txns))
+	  (add-balance-row table used-columns (car txns) odd-row? printed? start-date total)
+		))
+
+    (gnc:html-table-append-row/markup! 
+     table
+     "grand-total"
+     (append (cons (gnc:make-html-table-cell/markup
+		    "total-label-cell"
+		    (if (gnc-numeric-negative-p total)
+			(_ "Total Credit")
+			(_ "Total Due")))
+		   '())
+	     (list (gnc:make-html-table-cell/size/markup
+		    1 (value-col used-columns)
+		    "total-number-cell"
+		    (gnc:make-gnc-monetary currency total)))))
+
+    (let* ((interval-vec (list->vector (make-interval-list end-date))))
+      (gnc:html-table-append-row/markup!
+       table
+       "grand-total"
+       (list (gnc:make-html-table-cell/size/markup
+	      1 (+ 1 (value-col used-columns))
+	      "centered-label-cell"
+	      (make-aging-table options query interval-vec reverse?)))))
+
+    table))
+
+(define (options-generator acct-type-list owner-type inv-str reverse?)
+
+  (define gnc:*report-options* (gnc:new-options))
+
+  (define (gnc:register-inv-option new-option)
+    (gnc:register-option gnc:*report-options* new-option))
+
+  (gnc:register-inv-option
+   (gnc:make-internal-option "__reg" "inv-str" inv-str))
+
+  (gnc:register-inv-option
+   (gnc:make-simple-boolean-option "__reg" "reverse?" "" "" reverse?))
+
+  (gnc:register-inv-option
+   (gnc:make-owner-option owner-page owner-string "v"
+			  (N_ "The job for this report")
+			  (lambda () '()) #f owner-type))
+
+  (gnc:register-inv-option
+   (gnc:make-internal-option "__reg" "owner-type" owner-type))
+
+  (gnc:register-inv-option
+   (gnc:make-account-sel-limited-option owner-page acct-string "w"
+					(N_ "The account to search for transactions")
+					#f #f acct-type-list))
+
+  (gnc:options-add-date-interval!
+   gnc:*report-options* gnc:pagename-general
+   (N_ "From") (N_ "To") "a")
+
+  (gnc:register-inv-option
+   (gnc:make-simple-boolean-option
+    (N_ "Display Columns") date-header
+    "b" (N_ "Display the transaction date?") #t))
+
+  (gnc:register-inv-option
+   (gnc:make-simple-boolean-option
+    (N_ "Display Columns") due-date-header
+    "c" (N_ "Display the transaction date?") #t))
+
+  (gnc:register-inv-option
+   (gnc:make-simple-boolean-option
+    (N_ "Display Columns") reference-header
+    "d" (N_ "Display the transaction reference?") #t))
+
+  (gnc:register-inv-option
+   (gnc:make-simple-boolean-option
+    (N_ "Display Columns") type-header
+    "g" (N_ "Display the transaction type?") #t))
+
+  (gnc:register-inv-option
+   (gnc:make-simple-boolean-option
+    (N_ "Display Columns") desc-header
+    "ha" (N_ "Display the transaction description?") #t))
+
+  (gnc:register-inv-option
+   (gnc:make-simple-boolean-option
+    (N_ "Display Columns") amount-header
+    "hb" "Display the transaction amount?" #t))
+
+  (gnc:register-inv-option
+   (gnc:make-string-option
+    gnc:pagename-general (N_ "Today Date Format")
+    "p" (N_ "The format for the date->string conversion for today's date.")
+    (gnc-default-strftime-date-format)))
+
+  (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 (string-expand string character replace-string)
+  (define (car-line chars)
+    (take-while (lambda (c) (not (eqv? c character))) chars))
+  (define (cdr-line chars)
+    (let ((rest (drop-while (lambda (c) (not (eqv? c character))) chars)))
+      (if (null? rest)
+          '()
+          (cdr rest))))
+  (define (line-helper chars)
+    (if (null? chars)
+        ""
+        (let ((first (car-line chars))
+              (rest (cdr-line chars)))
+          (string-append (list->string first)
+                         (if (null? rest) "" replace-string)
+                         (line-helper rest)))))
+  (line-helper (string->list string)))
+
+(define (setup-query q owner account end-date)
+  (let* ((guid (gncOwnerReturnGUID owner)))
+
+    (qof-query-add-guid-match
+     q 
+     (list SPLIT-TRANS INVOICE-FROM-TXN INVOICE-OWNER
+	   QOF-PARAM-GUID)
+     guid QOF-QUERY-OR)
+    (qof-query-add-guid-match
+     q
+     (list SPLIT-LOT OWNER-FROM-LOT QOF-PARAM-GUID)
+     guid QOF-QUERY-OR)
+    (qof-query-add-guid-match
+     q
+     (list SPLIT-LOT INVOICE-FROM-LOT INVOICE-OWNER
+	   QOF-PARAM-GUID)
+     guid QOF-QUERY-OR)
+
+    (xaccQueryAddSingleAccountMatch q account QOF-QUERY-AND)
+    (xaccQueryAddDateMatchTS q #f end-date #t end-date QOF-QUERY-AND)
+    (qof-query-set-book q (gnc-get-current-book))
+    q))
+
+(define (make-owner-table owner)
+  (let ((table (gnc:make-html-table)))
+    (gnc:html-table-set-style!
+     table "table"
+     'attribute (list "border" 0)
+     'attribute (list "cellspacing" 0)
+     'attribute (list "cellpadding" 0))
+    (gnc:html-table-append-row!
+     table
+     (list
+      (string-expand (gnc:owner-get-name-and-address-dep owner) #\newline "<br>")))
+    (gnc:html-table-append-row!
+     table
+     (list "<br>"))
+    (set-last-row-style!
+     table "td"
+     'attribute (list "valign" "top"))
+    table))
+
+(define (make-date-row! table label date)
+  (gnc:html-table-append-row!
+   table
+   (list
+    (string-append label ":&nbsp;")
+    (string-expand (gnc-print-date date) #\space "&nbsp;"))))
+
+(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))
+    (set-last-row-style!
+     table "td"
+     'attribute (list "valign" "top"))
+    table))
+
+(define (make-myname-table book date-format)
+  (let* ((table (gnc:make-html-table))
+	 (slots (gnc-book-get-slots book))
+	 (name (kvp-frame-get-slot-path-gslist
+		slots (append gnc:*kvp-option-path*
+			      (list gnc:*business-label* gnc:*company-name*))))
+	 (addy (kvp-frame-get-slot-path-gslist
+		slots (append gnc:*kvp-option-path*
+			      (list gnc:*business-label* gnc:*company-addy*)))))
+
+    (gnc:html-table-set-style!
+     table "table"
+     'attribute (list "border" 0)
+     'attribute (list "align" "right")
+     'attribute (list "valign" "top")
+     'attribute (list "cellspacing" 0)
+     'attribute (list "cellpadding" 0))
+
+    (gnc:html-table-append-row! table (list (if name name "")))
+    (gnc:html-table-append-row! table (list (string-expand
+					     (if addy addy "")
+					     #\newline "<br>")))
+    (gnc:html-table-append-row! table (list
+				       (strftime
+					date-format
+					(localtime (car (gnc:get-today))))))
+    table))
+
+(define (make-break! document)
+  (gnc:html-document-add-object!
+   document
+   (gnc:make-html-text
+    (gnc:html-markup-br))))
+
+(define (reg-renderer report-obj)
+  (define (opt-val section name)
+    (gnc:option-value
+     (gnc:lookup-option (gnc:report-options report-obj) section name)))
+
+  (let* ((document (gnc:make-html-document))
+	 (table '())
+	 (orders '())
+	 (query (qof-query-create-for-splits))
+	 (account (opt-val owner-page acct-string))
+	 (owner (opt-val owner-page owner-string))
+	 (start-date (gnc:timepair-start-day-time 
+		       (gnc:date-option-absolute-time
+			(opt-val gnc:pagename-general (N_ "From")))))
+	 (end-date (gnc:timepair-end-day-time 
+		       (gnc:date-option-absolute-time
+			(opt-val gnc:pagename-general (N_ "To")))))
+	 (book (gnc-get-current-book)) ;XXX Grab this from elsewhere
+	 (type (opt-val "__reg" "owner-type"))
+	 (type-str ""))
+
+    (cond
+      ((eqv? type GNC-OWNER-CUSTOMER)
+       (set! type-str (N_ "Customer")))
+      ((eqv? type GNC-OWNER-JOB)
+       (set! type-str (N_ "Job")))
+      ((eqv? type GNC-OWNER-VENDOR)
+       (set! type-str (N_ "Vendor")))
+      ((eqv? type GNC-OWNER-EMPLOYEE)
+       (set! type-str (N_ "Employee"))))
+
+    (gnc:html-document-set-title!
+     document (string-append (_ type-str) " " (_ "Report")))
+
+    (if (gncOwnerIsValid owner)
+	(begin
+	  (setup-query query owner account end-date)
+
+	  (gnc:html-document-set-title!
+	   document
+           (string-append (_ type-str ) " " (_ "Report:") " " (gncOwnerGetName owner)))
+
+           (gnc:html-document-set-headline!
+            document (gnc:html-markup
+                      "!" 
+                      (_ type-str )
+                      " " (_ "Report:") " "
+                      (gnc:html-markup-anchor
+					   (gnc:job-anchor-text (gncOwnerGetJob owner))
+                       (gncOwnerGetName owner))))
+	  
+	  (if (not (null? account))
+	      (begin
+		(set! table (make-txn-table (gnc:report-options report-obj)
+					    query account start-date end-date))
+		(gnc:html-table-set-style!
+		 table "table"
+		 'attribute (list "border" 1)
+		 'attribute (list "cellspacing" 0)
+		 'attribute (list "cellpadding" 4)))
+
+	      (set!
+	       table
+	       (gnc:make-html-text
+		(_ "No valid account selected.  Click on the Options button and select the account to use."))))
+
+	  (gnc:html-document-add-object!
+	   document
+	   (make-myname-table book (opt-val gnc:pagename-general (N_ "Today Date Format"))))
+
+	  (gnc:html-document-add-object!
+	   document
+	   (make-owner-table owner))
+
+	  (make-break! document)
+
+	  (gnc:html-document-add-object!
+	   document
+	   (gnc:make-html-text
+	    (string-append
+	     (_ "Date Range")
+	     ": "
+	     (gnc-print-date start-date)
+	     " - "
+	     (gnc-print-date end-date))))
+
+	  (make-break! document)
+
+	  (gnc:html-document-add-object! document table))
+
+	;; else....
+	(gnc:html-document-add-object!
+	 document
+	 (gnc:make-html-text
+	  (sprintf #f 
+		   (_ "No valid %s selected.  Click on the Options button to select a company.")
+		   (_ type-str))))) ;; FIXME because of translations: Please change this string into full sentences instead of sprintf, because in non-english languages the "no valid" has different forms depending on the grammatical gender of the "%s".
+
+    (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")
+ 'menu-path (list gnc:menuname-business-reports)
+ 'options-generator job-options-generator
+ 'renderer reg-renderer
+ 'in-menu? #t)