r18671 - gnucash/trunk/src/business/business-core - Bug #609005: Add recipient name on invoices

[Christian Stimming]

Author: cstim
Date: 2010-02-18 00:27:55 -0500 (Thu, 18 Feb 2010)
New Revision: 18671
Trac: http://svn.gnucash.org/trac/changeset/18671

Modified:
   gnucash/trunk/src/business/business-core/business-core.scm
Log:
Bug #609005: Add recipient name on invoices

Patch by Mike E:

Having set up a client/customer including the name of a recipient when I print
an invoice the recipients name ("Account Dept" say) is not printed in the
invoice.  I think this is a bug rather than a feature.  I have attached a patch
to fix.

It still prints the company name above the recipient name however.  I could
submit an additional patch to provide an invoice option to toggle printing of
the company name if users/developers feel they want this option, as I do.

Modified: gnucash/trunk/src/business/business-core/business-core.scm
===================================================================
--- gnucash/trunk/src/business/business-core/business-core.scm	2010-02-18 05:27:17 UTC (rev 18670)
+++ gnucash/trunk/src/business/business-core/business-core.scm	2010-02-18 05:27:55 UTC (rev 18671)
@@ -54,6 +54,8 @@
      (else (string-append (build-string (cdr lst)) "\n" (car lst)))))
   (let ((lst '())
 	(addr (gnc:owner-get-address owner)))
+; Added gncAddressGetName  <mikee at saxicola.co.uk>
+    (set! lst (add-if-exists lst (gncAddressGetName  addr)))
     (set! lst (add-if-exists lst (gncAddressGetAddr1 addr)))
     (set! lst (add-if-exists lst (gncAddressGetAddr2 addr)))
     (set! lst (add-if-exists lst (gncAddressGetAddr3 addr)))