29a30 > ;; Added a user changeable title and tax name, total ex tax and friendlier no invoice prompt Sept 2007. Bryan Cebuliak 112c113 < (define (make-heading-list column-vector) --- > (define (make-heading-list column-vector taxname) 130c131 < (addto! heading-list (_ "Tax Amount"))) --- > (addto! heading-list (_ taxname))) 132c133 < (addto! heading-list (_ "Total"))) --- > (addto! heading-list (string-append (_ "Total ex ") (_ taxname)))) 261c262 < "g" (N_ "Display the action?") #t)) --- > "g" (N_ "Display the action?") #f)) 276c277 < "k" (N_ "Display the entry's discount") #t)) --- > "k" (N_ "Display the entry's discount") #f)) 281c282 < "l" (N_ "Display the entry's taxable status") #t)) --- > "l" (N_ "Display the entry's taxable status") #f)) 286c287 < "m" (N_ "Display each entry's total total tax") #f)) --- > "m" (N_ "Display each entry's total total tax") #t)) 353a355,364 > (gnc:register-inv-option > (gnc:make-string-option > (N_ "Text") (N_ "Invoice Title") > "ua" (N_ "Enter invoice title here") (N_ "Invoice"))) > > (gnc:register-inv-option > (gnc:make-string-option > (N_ "Text") (N_ "Tax Name") > "ub" (N_ "Enter tax name: Tax, GST, VAT, Sales Tax, etc, here.") (N_ "Tax"))) > 380c391,392 < (currency (gncInvoiceGetCurrency invoice))) --- > (currency (gncInvoiceGetCurrency invoice)) > (taxname (opt-val "Text" "Tax Name"))) 473c485 < "grand-total" (_ "Tax"))) --- > "grand-total" taxname)) 546c558 < (make-heading-list used-columns)) --- > (make-heading-list used-columns taxname)) 678c690 < (title (_ "Invoice")) --- > (title (opt-val "Text" "Invoice Title")) 715,716c727,730 < (add-html! document (sprintf #f (_ "Invoice #%d") < (gncInvoiceGetID invoice))) --- > ;(add-html! document (sprintf #f (_ "Invoice #%d") > ; (gncInvoiceGetID invoice))) > (add-html! document (sprintf #f (_ title) > (gncInvoiceGetID invoice))) 850,851c864,865 < (_ "No Valid Invoice Selected")))) < --- > ;(_ "No Valid Invoice Selected")))) This is not very user friendly. Be informative here: > (_ "Select an invoice with Options > General > Select"))))