Try this one... unfortunately most of the report uses eguile which I can't understand. The Gnucash API does change from time to time and usually it'd best to ask the report creator for an update.
On 2 June 2018 at 07:33, Jordan and Reidun Staudinger < jordanandrei...@harewaves.net> wrote: > Here they are. Thanks! > > On 06/01/2018 05:11 PM, Christopher Lam wrote: > > Could you send these customised invoices as an attachment? > > On Sat, 2 Jun 2018, 02:34 Jordan and Reidun Staudinger < > jordanandrei...@harewaves.net> wrote: > >> Hi, I have had some pretty decent looking custom invoices set up in >> GnuCash for a few years now, and I've been quite happy with them. >> However, after the last update, I now get the following message when I >> try to load one of the saved invoice reports: >> >> >> An error occurred when processing the template: >> >> ERROR: Unbound variable: qof-book-get-slots >> In ice-9/eval.scm: >> 432: 7 [eval # #] >> 411: 6 [eval # #] >> 386: 5 [eval #)> (() # # # ...)] >> 393: 4 [eval # (() # # # ...)] >> In unknown file: >> ?: 3 [memoize-variable-access! # #] >> >> >> In order to get the invoices working previously, I had to put custom >> .css and .scm files in the >> /usr/share/gnucash/guile-modules/gnucash/report/ folder, which I now see >> no longer exists. So I did some poking around, and found that the files >> are now in /usr/share/gnucash/scm/gnucash/report/. They were already >> there without me adding them. Not sure if this is the reason for the >> error or not. >> >> Any help would be greatly appreciated, as this is preventing me from >> sending invoices to my customers. >> >> Thanks much, Reidun >> >> >> >> -- >> BEGIN-ANTISPAM-VOTING-LINKS >> ------------------------------------------------------ >> >> Teach CanIt if this mail (ID 01VRuwM0D) is spam: >> Spam: >> Not spam: >> Forget vote: >> ------------------------------------------------------ >> END-ANTISPAM-VOTING-LINKS >> >> _______________________________________________ >> gnucash-user mailing list >> gnucash-user@gnucash.org >> To update your subscription preferences or to unsubscribe: >> https://lists.gnucash.org/mailman/listinfo/gnucash-user >> If you are using Nabble or Gmane, please see >> https://wiki.gnucash.org/wiki/Mailing_Lists for more information. >> ----- >> Please remember to CC this list on all your replies. >> You can do this by using Reply-To-List or Reply-All. > > > ------------------------------ > > Spam <http://199.217.123.251/canit/b.php?c=s&i=01VRzxNmq&m=2fa945e9d883> > Not spam > <http://199.217.123.251/canit/b.php?c=n&i=01VRzxNmq&m=2fa945e9d883> > Forget previous vote > <http://199.217.123.251/canit/b.php?c=f&i=01VRzxNmq&m=2fa945e9d883> >
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd";> <?scm (let ((x 42)) ; only here to allow (define)s ; i.e. to avoid "Bad define placement" error ;; taxinvoice.eguile.scm 0.03 ;; GnuCash report template called from taxinvoice.scm 0.02 ;; (c) 2009 Chris Dennis ch...@starsoftanalysis.co.uk ;; © 2012 Dmitry Smirnov <only...@member.fsf.org> ;; ;; $Author: chris $ $Date: 2009/07/23 10:42:08 $ $Revision: 1.33 $ ;; Modified by Dmitry Smirnov <only...@member.fsf.org> 16 Feb 2012 ;; ;; This file is a mixture of HTML and Guile -- ;; see eguile-gnc.scm for details. ;; ;; 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, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA ;; 02111-1307 USA (define (display-report opt-invoice owner endowner ownertype) ;; Main function that creates the tax invoice report (let* (; invoice and company details (invoiceid (gncInvoiceGetID opt-invoice)) (credit-note? (gncInvoiceGetIsCreditNote opt-invoice)) (book (gncInvoiceGetBook opt-invoice)) (postdate (gncInvoiceGetDatePosted opt-invoice)) (duedate (gncInvoiceGetDateDue opt-invoice)) (billingid (gncInvoiceGetBillingID opt-invoice)) (notes (gncInvoiceGetNotes opt-invoice)) (terms (gncInvoiceGetTerms opt-invoice)) (termsdesc (gncBillTermGetDescription terms)) (lot (gncInvoiceGetPostedLot opt-invoice)) (txn (gncInvoiceGetPostedTxn opt-invoice)) (currency (gncInvoiceGetCurrency opt-invoice)) (entries (gncInvoiceGetEntries opt-invoice)) (splits '()) (coyname (gnc:company-info book gnc:*company-name*)) (coycontact (gnc:company-info book gnc:*company-contact*)) (coyaddr (gnc:company-info book gnc:*company-addy*)) (coyid (gnc:company-info book gnc:*company-id*)) (coyphone (gnc:company-info book gnc:*company-phone*)) (coyfax (gnc:company-info book gnc:*company-fax*)) (coyurl (gnc:company-info book gnc:*company-url*)) (coyemail (gnc:company-info book gnc:*company-email*)) (owneraddr (gnc:owner-get-address-dep owner)) (ownername (gnc:owner-get-name-dep owner)) (jobnumber (gncJobGetID (gncOwnerGetJob (gncInvoiceGetOwner opt-invoice)))) (jobname (gncJobGetName (gncOwnerGetJob (gncInvoiceGetOwner opt-invoice)))) (billcontact (gncAddressGetName (gnc:owner-get-address owner))) ; flags and counters (discount? #f) ; any discounts on this invoice? (tax? #f) ; any taxable entries on this invoice? (taxtables? #t) ; are tax tables available in this version? (payments? #f) ; have any payments been made on this invoice? (units? #f) ; does any row specify units? (qty? #f) ; does any row have qty <> 1? (tbl_cols 0)) ; number of columns for 'colspan' attributes ; load splits, if any (if (not (null? lot)) (set! splits (sort-list (gnc-lot-get-split-list lot) ; sort by date (lambda (s1 s2) (let ((t1 (xaccSplitGetParent s1)) (t2 (xaccSplitGetParent s2))) (< (car (gnc-transaction-get-date-posted t1)) (car (gnc-transaction-get-date-posted t2)))))))) ; pre-scan invoice entries to look for discounts and taxes (for entry in entries do (let ((action (gncEntryGetAction entry)) (qty (gncEntryGetDocQuantity entry credit-note?)) (discount (gncEntryGetInvDiscount entry)) (taxable? (gncEntryGetInvTaxable entry)) (taxtable (gncEntryGetInvTaxTable entry))) (if (not (string=? action "")) (set! units? #t)) (if (not (= (gnc-numeric-to-double qty) 1.0)) (set! qty? #t)) (if (not (gnc-numeric-zero-p discount)) (set! discount? #t)) ;(if taxable - no, this flag is redundant (if taxable? ; Also check if the taxable flag is set (if (not (eq? taxtable '())) (begin ; presence of a tax table AND taxable flag means it's taxed (set! tax? #t)))))) ; pre-scan invoice splits to see if any payments have been made (for split in splits do (let* ((t (xaccSplitGetParent split))) (if (not (equal? t txn)) (set! payments? #t)))) ?> <!-- ====================================================================== --> <!-- The HTML for the invoice starts here --> <html> <head> <meta http-equiv="Content-Type" content="text/html;charset=utf-8" > <title><?scm:d (_ "Invoice") ?> <?scm:d invoiceid ?></title> <?scm (if css? (begin ?> <link rel="stylesheet" href="<?scm:d (make-file-url opt-css-file) ?>" type="text/css"> <!-- Note that the external stylesheet file is overridden by this following: --> <style type="text/css"> body { <?scm:d opt-text-font ?> } table { /* table does not inherit font */ <?scm:d opt-text-font ?> <?scm:d opt-css-border-collapse ?> } table[border="1"] th { border-color:<?scm:d opt-css-border-color-th ?>; } table[border="1"] td { border-color:<?scm:d opt-css-border-color-td ?>; } h1.coyname { <?scm:d opt-heading-font ?> } <?scm:d opt-extra-css ?> </style> <?scm )) ?> </head> <body> <div class="main"> <!-- company info --> <table class="coytable" border="0" width="100%"> <tr valign="top" style="vertical-align: top"> <?scm (if (access? opt-logofile R_OK) (begin ?> <td align="left"> <img align="left" src="<?scm:d (make-file-url opt-logofile) ?>" alt="logo" class="logo" <?scm (if opt-logo-width (begin ?> style="width: <?scm:d opt-logo-width ?>" <?scm )) ?> > </td> <?scm )) ?> <td align="left"> <h1 class="coyname"><?scm:d (or coyname (_ " ")) ?></h1> </td> <td align="right"><h2 class="invoice"><?scm:d opt-report-title ?> <?scm (if opt-invnum-next-to-title (begin ?><?scm:d (nbsp opt-invoice-number-text) ?><?scm:d invoiceid ?><?scm )) ?> </h2></td> </tr> </table> <table border="0" width="100%"> <tr valign="top"> <td align="left"> <?scm (if (and opt-row-address coyaddr) (begin ?> <?scm:d (nl->br coyaddr) ?><br> <?scm )) ?> <?scm (if coyid (begin ?> <strong><?scm:d coyid ?></strong><br> <?scm )) ?> </td> <td align="right"> <table border="0"> <?scm (if (and opt-row-contact coycontact) (begin ?> <tr> <th colspan="2" align="right"><?scm:d coycontact ?></th> </tr> <?scm )) ?> <?scm (if coyphone (begin ?> <tr> </br> <td align="right"><?scm:d (_ "Phone") ?>: </td> <td align="right"><?scm:d coyphone ?></td> </tr> <?scm )) ?> <?scm (if coyfax (begin ?> <tr> <td align="right"><?scm:d (_ "Fax") ?>: </td> <td align="right"><?scm:d coyfax ?></td> </tr> <?scm )) ?> <?scm (if coyemail (begin ?> <tr> <td align="right"><?scm:d (_ "Email") ?>: </td> <td align="right"><?scm:d coyemail ?></td> </tr> <?scm )) ?> <?scm (if coyurl (begin ?> <tr> <td align="right"><?scm:d (_ "Website") ?>: </td> <td align="right"><?scm:d coyurl ?></td> </tr> <?scm )) ?> </table> </tr> </table> <hr> <table border="0" width="100%"> <tr valign="top"> <!-- customer info --> <th align="right" width="1%"><?scm:d opt-to-text ?></th> <td align="left"><big><strong> <?scm (if (and opt-row-company-name (not (string=? ownername ""))) (begin ?><big><strong> <?scm:d ownername ?><br> <?scm )) ?> <?scm (if (not (string=? owneraddr "")) (begin ?> <?scm:d (nl->br owneraddr) ?> <?scm )) ?> </td> <!-- invoice number etc. --> <td align="right"> <table border="0"> <?scm (if opt-row-invoice-number (begin ?> <tr> <td align="right" class="invnum"><big><strong><?scm:d (nbsp opt-invoice-number-text) ?></strong></big></td> <td align="right" class="invnum"><big><strong><?scm:d invoiceid ?></strong></big></td> </tr> <?scm )) ?> <?scm (if (equal? postdate (cons 0 0)) (begin ?> <tr> <td colspan="2" align="right"><?scm:d (_ "Invoice in progress...") ?></td> </tr> <?scm ) (begin ?> <tr> <td align="right"><?scm:d (nbsp (_ "Invoice Date")) ?>: </td> <td align="right"><?scm:d (gnc-print-date postdate) ?></td> </tr> <tr> <td align="right"><?scm:d (nbsp (_ "Due Date")) ?>: </td> <td align="right"><?scm:d (gnc-print-date duedate) ?></td> </tr> <?scm )) ?> <?scm (if (not (string=? billingid "")) (begin ?> <tr> <td align="right"><?scm:d opt-ref-text ?></td> <td align="right"><?scm:d billingid ?></td> </tr> <?scm )) ?> <?scm (if (and opt-jobname-show (not (string=? jobname ""))) (begin ?> <tr> <td align="right"><?scm:d opt-jobname-text ?></td> <td align="right"><?scm:d jobname ?></td> </tr> <?scm )) ?> <?scm (if (and opt-jobnumber-show (not (string=? jobnumber ""))) (begin ?> <tr> <td align="right"><?scm:d opt-jobnumber-text ?></td> <td align="right"><?scm:d jobnumber ?></td> </tr> <?scm )) ?> <?scm (if (not (string=? termsdesc "")) (begin ?> <tr><td colspan="2" align="right"><?scm:d termsdesc ?></td></tr> <?scm )) ?> </table> </td> </tr> </table> <!-- invoice lines table --> <p> <table border="1" width="100%" cellpadding="4" class="entries"> <thead> <tr bgcolor="#ccc" valign="bottom"> <?scm (if opt-col-date (begin ?> <th align="center" ><?scm:d (_ "Date") ?></th> <?scm (set! tbl_cols (+ tbl_cols 1)) )) ?> <th align="left" width="80%"><?scm:d (_ "Description") ?></th> <?scm (if (and units? opt-col-units) (begin ?> <th align="left"><?scm:d opt-units-heading ?></th> <?scm (set! tbl_cols (+ tbl_cols 1)) )) ?> <?scm (if (or units? qty?) (begin ?> <th align="right"><?scm:d opt-qty-heading ?></th> <?scm (set! tbl_cols (+ tbl_cols 1)) )) ?> <?scm (if (or units? qty? discount?) (begin ?> <th align="right"><?scm:d opt-unit-price-heading ?></th> <?scm (set! tbl_cols (+ tbl_cols 1)) )) ?> <?scm (if discount? (begin ?> <th align="right"><?scm:d opt-disc-rate-heading ?></th> <th align="right"><?scm:d opt-disc-amount-heading ?></th> <?scm (set! tbl_cols (+ tbl_cols 2)) )) ?> <?scm (if (and tax? taxtables?) (begin ?> <th align="right"><?scm:d opt-net-price-heading ?></th> <?scm (set! tbl_cols (+ tbl_cols 1)) ?> <?scm (if opt-col-taxrate (begin ?> <th align="right"><?scm:d opt-tax-rate-heading ?></th> <?scm (set! tbl_cols (+ tbl_cols 1)) )) ?> <th align="right"><?scm:d opt-tax-amount-heading ?></th> <?scm (set! tbl_cols (+ tbl_cols 1)) )) ?> <th align="right"><?scm:d opt-total-price-heading ?></th> </tr> </thead> <tbody> <!-- display invoice entry lines, keeping running totals --> <?scm (let ((tax-total (gnc:make-commodity-collector)) (sub-total (gnc:make-commodity-collector)) (dsc-total (gnc:make-commodity-collector)) (inv-total (gnc:make-commodity-collector))) (for entry in entries do (let ((qty (gncEntryGetDocQuantity entry credit-note?)) (each (gncEntryGetInvPrice entry)) (action (gncEntryGetAction entry)) (rval (gncEntryGetDocValue entry #t #t credit-note?)) (rdiscval (gncEntryGetDocDiscountValue entry #t #t credit-note?)) (rtaxval (gncEntryGetDocTaxValue entry #t #t credit-note?)) (disc (gncEntryGetInvDiscount entry)) (disctype (gncEntryGetInvDiscountType entry)) (acc (gncEntryGetInvAccount entry)) (taxable (gncEntryGetInvTaxable entry)) (taxtable (gncEntryGetInvTaxTable entry))) (inv-total 'add currency rval) (inv-total 'add currency rtaxval) (tax-total 'add currency rtaxval) (sub-total 'add currency rval) (dsc-total 'add currency rdiscval) ?> <tr valign="top"> <?scm (if opt-col-date (begin ?> <td align="center" ><nobr><?scm:d (nbsp (gnc-print-date (gncEntryGetDate entry))) ?></nobr></td> <?scm )) ?> <td align="left"><?scm:d (gncEntryGetDescription entry) ?></td> <!-- td align="left">< ?scm:d (gncEntryGetNotes entry) ?></td --> <?scm (if opt-col-units (begin ?> <?scm (if units? (begin ?> <td align="left"><?scm:d action ?></td> <?scm )) ?> <?scm )) ?> <?scm (if (or units? qty?) (begin ?> <td align="right"><?scm:d (fmtnumeric qty) ?></td> <?scm )) ?> <?scm (if (or units? qty? discount?) (begin ?> <td align="right"><?scm:d (fmtmoney currency each) ?></td> <?scm )) ?> <?scm (if discount? (begin ?> <?scm (if (equal? disctype GNC-AMT-TYPE-VALUE) (begin ?> <td align="right"><?scm:d (gnc:monetary->string (gnc:make-gnc-monetary currency disc)) ?></td> <?scm ) (begin ?> <td align="right"><?scm:d (fmtnumeric disc) ?>%</td> <?scm )) ?> <td align="right"><?scm:d (fmtmoney currency rdiscval) ?></td> <?scm )) ?> <?scm (if (and tax? taxtables?) (begin ?> <td align="right"><?scm:d (fmtmoney currency rval) ?></td> <?scm (if opt-col-taxrate (begin ?> <td align="right"><?scm (taxrate taxable taxtable currency) ?></td> <?scm )) ?> <td align="right"><?scm:d (fmtmoney currency rtaxval) ?></td> <?scm )) ?> <!-- TO DO: need an option about whether to display the tax-inclusive total? --> <td align="right"><?scm:d (fmtmoney currency (gnc-numeric-add rval rtaxval GNC-DENOM-AUTO GNC-RND-ROUND)) ?></td> </tr> <?scm )) ?> <!-- subtotals row --> <?scm (if (or tax? discount? payments?) (begin ?> <tr valign="top"> <td align="left" class="subtotal" colspan="<?scm:d (- tbl_cols (if (and tax? taxtables? opt-col-taxrate) 1 0) (if (and tax? taxtables?) 1 -1) (if (and discount?) 1 0) ) ?>"><strong><?scm:d opt-subtotal-heading ?></strong></td> <?scm (if discount? (begin ?> <td align="right" class="subtotal"><strong><?scm (display-comm-coll-total dsc-total #f) ?></strong></td> <?scm )) ?> <?scm (if (and tax? taxtables?) (begin ?> <td align="right" class="subtotal"><strong><?scm (display-comm-coll-total sub-total #f) ?></strong></td> <?scm (if opt-col-taxrate (begin ?> <td> </td> <?scm )) ?> <td align="right" class="subtotal"><strong><?scm (display-comm-coll-total tax-total #f) ?></strong></td> <?scm )) ?> <td align="right" class="subtotal"><strong><?scm (display-comm-coll-total inv-total #f) ?></strong></td> </tr> <?scm )) ?> <!-- payments row --> <?scm (if payments? (for split in splits do (let ((t (xaccSplitGetParent split))) (if (not (equal? t txn)) ; don't process the entry itself as a split (let ((c (xaccTransGetCurrency t)) (a (xaccSplitGetValue split))) (inv-total 'add c a) ?> <tr valign="top"> <?scm (if opt-col-date (begin ?> <td align="center"><?scm:d (gnc-print-date (gnc-transaction-get-date-posted t)) ?></td> <?scm )) ?> <td align="left" colspan="<?scm:d (+ tbl_cols (if opt-col-date 0 1)) ?>"><?scm:d opt-payment-recd-heading ?></td> <td align="right"><?scm:d (fmtmoney c a) ?></td> </tr> <?scm ))))) ?> <!-- total row --> <tr valign="top"> <td align="left" class="total" colspan="<?scm:d (+ tbl_cols 1) ?>"><strong> <?scm:d opt-amount-due-heading ?><?scm (if (not (string=? (gnc-commodity-get-mnemonic opt-report-currency) "")) (begin ?>, <?scm:d (gnc-commodity-get-mnemonic opt-report-currency) ?><?scm )) ?></strong></td> <td align="right" class="total"><strong><?scm (display-comm-coll-total inv-total #f) ?></strong></td> </tr> </tbody> <?scm ) ?> <!-- end of (let) surrounding table body --> </table> <p><?scm:d (nl->br notes) ?> <p><?scm:d (nl->br opt-extra-notes) ?> <?scm )) ; end of display-report function ; 'mainline' code: check for a valid invoice, then display the report (if (null? opt-invoice) (begin (display (string-append "<h2>" (_ "Tax Invoice") "</h2>")) (display (string-append "<p>" (_ "No invoice has been selected -- please use the Options menu to select one.") "</p>"))) (let* ((owner (gncInvoiceGetOwner opt-invoice)) (endowner (gncOwnerGetEndOwner owner)) (ownertype (gncOwnerGetType endowner))) (if (not (eqv? ownertype GNC-OWNER-CUSTOMER)) (begin (display (string-append "<h2>" (_ "Tax Invoice") "</h2>")) (display (string-append "<p>" (_ "This report is designed for customer (sales) invoices only. Please use the Options menu to select an <em>Invoice</em>, not a Bill or Expense Voucher.") "</p>"))) (display-report opt-invoice owner endowner ownertype)))) ?> </div> </body> </html> <?scm ) ; end of enclosing let ?>
_______________________________________________ gnucash-user mailing list gnucash-user@gnucash.org To update your subscription preferences or to unsubscribe: https://lists.gnucash.org/mailman/listinfo/gnucash-user If you are using Nabble or Gmane, please see https://wiki.gnucash.org/wiki/Mailing_Lists for more information. ----- Please remember to CC this list on all your replies. You can do this by using Reply-To-List or Reply-All.
