From 40616b388f35935236ec2c931284ce9701df0fc4 Mon Sep 17 00:00:00 2001 From: Chris Shoemaker Date: Sun, 13 Aug 2006 02:39:47 +0000 Subject: [PATCH] Convert the business reports to use the new SWIG bindings. Mostly, this involves using the exact name of the wrapped function, but there's also some places where NULL needs to be represented by '() instead of by #f, like the default-getters for options. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/branches/swigify@14657 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/business/business-reports/aging.scm | 16 ++-- .../business-reports/business-reports.scm | 42 ++++---- .../business-reports/easy-invoice.scm | 85 ++++++++--------- .../business-reports/fancy-invoice.scm | 95 +++++++++---------- src/business/business-reports/invoice.scm | 77 ++++++++------- .../business-reports/owner-report.scm | 62 ++++++------ 6 files changed, 185 insertions(+), 192 deletions(-) diff --git a/src/business/business-reports/aging.scm b/src/business/business-reports/aging.scm index babb43d02c..c637e16777 100644 --- a/src/business/business-reports/aging.scm +++ b/src/business/business-reports/aging.scm @@ -180,12 +180,12 @@ (define (do-update value) (let* ((transaction (gnc:split-get-parent split)) - (temp-owner (gnc:owner-create)) + (temp-owner (gncOwnerCreate)) (owner (gnc:owner-from-split split temp-owner))) (if owner - (let* ((guid (gnc:owner-get-guid owner)) + (let* ((guid (gncOwnerReturnGUID owner)) (this-currency (gnc:transaction-get-currency transaction)) (this-date (gnc:transaction-get-date-posted transaction)) (company-info (hash-ref hash guid))) @@ -198,13 +198,13 @@ ;; if it's an existing company, destroy the temp owner and ;; then make sure the currencies match (begin - (gnc:owner-destroy temp-owner) + (gncOwnerDestroy temp-owner) (if (not (gnc:commodity-equiv? this-currency (company-get-currency company-info))) (cons #f (sprintf (_ "Transactions relating to '%s' contain \ -more than one currency. This report is not designed to cope with this possibility.") (gnc:owner-get-name owner))) +more than one currency. This report is not designed to cope with this possibility.") (gncOwnerGetName owner))) (begin (gnc:debug "it's an old company") (if (gnc:numeric-negative-p value) @@ -223,7 +223,7 @@ more than one currency. This report is not designed to cope with this possibili (hash-set! hash guid new-company)) (cons #t guid)))) ; else (no owner) - (gnc:owner-destroy temp-owner)))) + (gncOwnerDestroy temp-owner)))) ;; figure out if this split is part of a closed lot ;; also save the split value... @@ -386,7 +386,7 @@ totals to report currency") (define (get-name a) (let* ((owner (company-get-owner-obj (cdr a)))) - (gnc:owner-get-name owner))) + (gncOwnerGetName owner))) ;; Predicates for sorting the companys once the data has been collected @@ -602,7 +602,7 @@ totals to report currency") (cdr company-list-entry)))) (owner (company-get-owner-obj (cdr company-list-entry))) - (company-name (gnc:owner-get-name owner))) + (company-name (gncOwnerGetName owner))) (add-to-column-totals total-collector-list monetary-list) @@ -627,7 +627,7 @@ totals to report currency") (gnc:owner-anchor-text owner) company-name)) monetary-list)) - (gnc:owner-destroy owner))) + (gncOwnerDestroy owner))) company-list) ;; add the totals diff --git a/src/business/business-reports/business-reports.scm b/src/business/business-reports/business-reports.scm index eb3eaa556c..8a340b341a 100644 --- a/src/business/business-reports/business-reports.scm +++ b/src/business/business-reports/business-reports.scm @@ -38,60 +38,58 @@ (gnc:html-build-url type (string-append idstr guid) #f)) (define (gnc:customer-anchor-text customer) - (guid-ref "customer=" gnc:url-type-customer (gnc:customer-get-guid customer))) + (guid-ref "customer=" gnc:url-type-customer (gncCustomerReturnGUID customer))) (define (gnc:job-anchor-text job) - (guid-ref "job=" gnc:url-type-job (gnc:job-get-guid job))) + (guid-ref "job=" gnc:url-type-job (gncJobReturnGUID job))) (define (gnc:vendor-anchor-text vendor) - (guid-ref "vendor=" gnc:url-type-vendor (gnc:vendor-get-guid vendor))) + (guid-ref "vendor=" gnc:url-type-vendor (gncVendorReturnGUID vendor))) (define (gnc:employee-anchor-text employee) - (guid-ref "employee=" gnc:url-type-employee (gnc:employee-get-guid employee))) + (guid-ref "employee=" gnc:url-type-employee (gncEmployeeReturnGUID employee))) (define (gnc:invoice-anchor-text invoice) - (guid-ref "invoice=" gnc:url-type-invoice (gnc:invoice-get-guid invoice))) + (guid-ref "invoice=" gnc:url-type-invoice (gncInvoiceReturnGUID invoice))) (define (gnc:owner-anchor-text owner) - (let ((type (gw:enum--val->sym - (gnc:owner-get-type (gnc:owner-get-end-owner owner)) #f))) + (let ((type (gncOwnerGetType (gncOwnerGetEndOwner owner)))) (case type - ((gnc-owner-customer) - (gnc:customer-anchor-text (gnc:owner-get-customer owner))) + ((GNC-OWNER-CUSTOMER) + (gnc:customer-anchor-text (gncOwnerGetCustomer owner))) - ((gnc-owner-vendor) - (gnc:vendor-anchor-text (gnc:owner-get-vendor owner))) + ((GNC-OWNER-VENDOR) + (gnc:vendor-anchor-text (gncOwnerGetVendor owner))) - ((gnc-owner-employee) - (gnc:employee-anchor-text (gnc:owner-get-employee owner))) + ((GNC-OWNER-EMPLOYEE) + (gnc:employee-anchor-text (gncOwnerGetEmployee owner))) - ((gnc-owner-job) - (gnc:job-anchor-text (gnc:owner-get-job owner))) + ((GNC-OWNER-JOB) + (gnc:job-anchor-text (gncOwnerGetJob owner))) (else "")))) (define (gnc:owner-report-text owner acc) - (let* ((end-owner (gnc:owner-get-end-owner owner)) - (type (gw:enum--val->sym - (gnc:owner-get-type end-owner) #f)) + (let* ((end-owner (gncOwnerGetEndOwner owner)) + (type (gncOwnerGetType end-owner)) (ref #f)) (case type - ((gnc-owner-customer) + ((GNC-OWNER-CUSTOMER) (set! ref "owner=c:")) - ((gnc-owner-vendor) + ((GNC-OWNER-VENDOR) (set! ref "owner=v:")) - ((gnc-owner-employee) + ((GNC-OWNER-EMPLOYEE) (set! ref "owner=e:")) (else (set! ref "unknown-type="))) (if ref (begin - (set! ref (string-append ref (gnc:owner-get-guid end-owner))) + (set! ref (string-append ref (gncOwnerReturnGUID end-owner))) (if acc (set! ref (string-append ref "&acct=" (gnc:account-get-guid acc)))) diff --git a/src/business/business-reports/easy-invoice.scm b/src/business/business-reports/easy-invoice.scm index 194e8d1f1e..fb7144bdad 100644 --- a/src/business/business-reports/easy-invoice.scm +++ b/src/business/business-reports/easy-invoice.scm @@ -167,54 +167,54 @@ (let* ((row-contents '()) (entry-value (gnc:make-gnc-monetary currency - (gnc:entry-get-value entry invoice?))) + (gncEntryReturnValue entry invoice?))) (entry-tax-value (gnc:make-gnc-monetary currency - (gnc:entry-get-tax-value entry invoice?)))) + (gncEntryReturnTaxValue entry invoice?)))) (if (date-col column-vector) (addto! row-contents - (gnc:print-date (gnc:entry-get-date entry)))) + (gnc:print-date (gncEntryGetDate entry)))) (if (description-col column-vector) (addto! row-contents - (gnc:entry-get-description entry))) + (gncEntryGetDescription entry))) (if (action-col column-vector) (addto! row-contents - (gnc:entry-get-action entry))) + (gncEntryGetAction entry))) (if (quantity-col column-vector) (addto! row-contents (gnc:make-html-table-cell/markup "number-cell" - (gnc:entry-get-quantity entry)))) + (gncEntryGetQuantity entry)))) (if (price-col column-vector) (addto! row-contents (gnc:make-html-table-cell/markup "number-cell" (gnc:make-gnc-monetary - currency (if invoice? (gnc:entry-get-inv-price entry) - (gnc:entry-get-bill-price entry)))))) + currency (if invoice? (gncEntryGetInvPrice entry) + (gncEntryGetBillPrice entry)))))) (if (discount-col column-vector) (addto! row-contents (if invoice? (gnc:make-html-table-cell/markup "number-cell" - (monetary-or-percent (gnc:entry-get-inv-discount entry) + (monetary-or-percent (gncEntryGetInvDiscount entry) currency - (gnc:entry-get-inv-discount-type entry))) + (gncEntryGetInvDiscountType entry))) ""))) (if (tax-col column-vector) (addto! row-contents (if (if invoice? - (and (gnc:entry-get-inv-taxable entry) - (gnc:entry-get-inv-tax-table entry)) - (and (gnc:entry-get-bill-taxable entry) - (gnc:entry-get-bill-tax-table entry))) + (and (gncEntryGetInvTaxable entry) + (gncEntryGetInvTaxTable entry)) + (and (gncEntryGetBillTaxable entry) + (gncEntryGetBillTaxTable entry))) ;; This "T" is supposed to be an abbrev. for Tax? (_ "T") ""))) @@ -244,7 +244,7 @@ (gnc:register-inv-option (gnc:make-invoice-option invoice-page invoice-name "x" "" - (lambda () #f) #f)) + (lambda () '()) #f)) (gnc:register-inv-option (gnc:make-simple-boolean-option @@ -376,9 +376,9 @@ (let ((show-payments (opt-val "Display" "Payments")) (display-all-taxes (opt-val "Display" "Individual Taxes")) - (lot (gnc:invoice-get-posted-lot invoice)) - (txn (gnc:invoice-get-posted-txn invoice)) - (currency (gnc:invoice-get-currency invoice))) + (lot (gncInvoiceGetPostedLot invoice)) + (txn (gncInvoiceGetPostedTxn invoice)) + (currency (gncInvoiceGetCurrency invoice))) (define (colspan monetary used-columns) (cond @@ -506,7 +506,7 @@ invoice?))) (if display-all-taxes - (let ((tax-list (gnc:entry-get-tax-values current invoice?))) + (let ((tax-list (gncEntryReturnTaxValues current invoice?))) (update-account-hash acct-hash tax-list)) (tax-collector 'add (gnc:gnc-monetary-commodity (cdr entry-values)) @@ -539,7 +539,7 @@ (let* ((table (gnc:make-html-table)) (used-columns (build-column-used options)) (width (num-columns-required used-columns)) - (entries (gnc:invoice-get-entries invoice)) + (entries (gncInvoiceGetEntries invoice)) (totals (gnc:make-commodity-collector))) (gnc:html-table-set-col-headers! @@ -591,7 +591,7 @@ (list "
")) (for-each (lambda (order) - (let* ((reference (gnc:order-get-reference order))) + (let* ((reference (GncOrderGetReference order))) (if (and reference (> (string-length reference) 0)) (gnc:html-table-append-row! table @@ -624,11 +624,11 @@ (define (make-myname-table book) (let* ((table (gnc:make-html-table)) - (slots (gnc:book-get-slots book)) - (name (gnc:kvp-frame-get-slot-path + (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 (gnc:kvp-frame-get-slot-path + (addy (kvp-frame-get-slot-path-gslist slots (append gnc:*kvp-option-path* (list gnc:*business-label* gnc:*company-addy*))))) @@ -685,19 +685,18 @@ (if invoice (begin - (set! owner (gnc:invoice-get-owner invoice)) - (let ((type (gw:enum--val->sym - (gnc:owner-get-type - (gnc:owner-get-end-owner owner)) #f))) + (set! owner (gncInvoiceGetOwner invoice)) + (let ((type (gncOwnerGetType + (gncOwnerGetEndOwner owner)))) (case type - ((gnc-owner-customer) + ((GNC-OWNER-CUSTOMER) (set! invoice? #t)) - ((gnc-owner-vendor) + ((GNC-OWNER-VENDOR) (set! title (_ "Bill"))) - ((gnc-owner-employee) + ((GNC-OWNER-EMPLOYEE) (set! title (_ "Expense Voucher"))))) (set! title (sprintf #f (_"%s #%d") title - (gnc:invoice-get-id invoice))))) + (gncInvoiceGetID invoice))))) ; (gnc:html-document-set-title! document title) @@ -715,14 +714,14 @@ (add-html! document "") (add-html! document "") (add-html! document (sprintf #f (_ "Invoice #%d") - (gnc:invoice-get-id invoice))) + (gncInvoiceGetID invoice))) (add-html! document "") (add-html! document "") (if (opt-val "Display" "My Company ID") - (let* ((book (gnc:invoice-get-book invoice)) - (slots (gnc:book-get-slots book)) - (taxid (gnc:kvp-frame-get-slot-path + (let* ((book (gncInvoiceGetBook invoice)) + (slots (gnc-book-get-slots book)) + (taxid (kvp-frame-get-slot-path-gslist slots (append gnc:*kvp-option-path* (list gnc:*business-label* gnc:*company-id*))))) (if (and taxid (> (string-length taxid) 0)) @@ -738,7 +737,7 @@ (make-break! document) ; add the client and company name table - (let ((book (gnc:invoice-get-book invoice))) + (let ((book (gncInvoiceGetBook invoice))) (set! table (make-entry-table invoice (gnc:report-options report-obj) add-order invoice?)) @@ -761,8 +760,8 @@ ; add the date (let ((date-table #f) - (post-date (gnc:invoice-get-date-posted invoice)) - (due-date (gnc:invoice-get-date-due invoice))) + (post-date (gncInvoiceGetDatePosted invoice)) + (due-date (gncInvoiceGetDateDue invoice))) (if (not (equal? post-date (cons 0 0))) (begin (add-html! document "") @@ -791,7 +790,7 @@ (make-break! document) (if (opt-val "Display" "Billing ID") - (let ((billing-id (gnc:invoice-get-billing-id invoice))) + (let ((billing-id (gncInvoiceGetBillingID invoice))) (if (and billing-id (> (string-length billing-id) 0)) (begin (gnc:html-document-add-object! @@ -803,8 +802,8 @@ (make-break! document))))) (if (opt-val "Display" "Billing Terms") - (let* ((term (gnc:invoice-get-terms invoice)) - (terms (gnc:bill-term-get-description term))) + (let* ((term (gncInvoiceGetTerms invoice)) + (terms (gncBillTermGetDescription term))) (if (and terms (> (string-length terms) 0)) (gnc:html-document-add-object! document @@ -829,7 +828,7 @@ (if (opt-val "Display" "Invoice Notes") (begin - (let ((notes (gnc:invoice-get-notes invoice))) + (let ((notes (gncInvoiceGetNotes invoice))) (gnc:html-document-add-object! document (gnc:make-html-text diff --git a/src/business/business-reports/fancy-invoice.scm b/src/business/business-reports/fancy-invoice.scm index d8ed7e0a02..7ef2563f8a 100644 --- a/src/business/business-reports/fancy-invoice.scm +++ b/src/business/business-reports/fancy-invoice.scm @@ -173,54 +173,54 @@ (let* ((row-contents '()) (entry-value (gnc:make-gnc-monetary currency - (gnc:entry-get-value entry invoice?))) + (gncEntryReturnValue entry invoice?))) (entry-tax-value (gnc:make-gnc-monetary currency - (gnc:entry-get-tax-value entry invoice?)))) + (gncEntryReturnTaxValue entry invoice?)))) (if (date-col column-vector) (addto! row-contents - (gnc:print-date (gnc:entry-get-date entry)))) + (gnc:print-date (gncEntryGetDate entry)))) (if (description-col column-vector) (addto! row-contents - (gnc:entry-get-description entry))) + (gncEntryGetDescription entry))) (if (action-col column-vector) (addto! row-contents - (gnc:entry-get-action entry))) + (gncEntryGetAction entry))) (if (quantity-col column-vector) (addto! row-contents (gnc:make-html-table-cell/markup "number-cell" - (gnc:entry-get-quantity entry)))) + (gncEntryGetQuantity entry)))) (if (price-col column-vector) (addto! row-contents (gnc:make-html-table-cell/markup "number-cell" (gnc:make-gnc-monetary - currency (if invoice? (gnc:entry-get-inv-price entry) - (gnc:entry-get-bill-price entry)))))) + currency (if invoice? (gncEntryGetInvPrice entry) + (gncEntryGetBillPrice entry)))))) (if (discount-col column-vector) (addto! row-contents (if invoice? (gnc:make-html-table-cell/markup "number-cell" - (monetary-or-percent (gnc:entry-get-inv-discount entry) + (monetary-or-percent (gncEntryGetInvDiscount entry) currency - (gnc:entry-get-inv-discount-type entry))) + (gncEntryGetInvDiscountType entry))) ""))) (if (tax-col column-vector) (addto! row-contents (if (if invoice? - (and (gnc:entry-get-inv-taxable entry) - (gnc:entry-get-inv-tax-table entry)) - (and (gnc:entry-get-bill-taxable entry) - (gnc:entry-get-bill-tax-table entry))) + (and (gncEntryGetInvTaxable entry) + (gncEntryGetInvTaxTable entry)) + (and (gncEntryGetBillTaxable entry) + (gncEntryGetBillTaxTable entry))) (_ "T") ""))) (if (taxvalue-col column-vector) @@ -251,7 +251,7 @@ (gnc:register-inv-option (gnc:make-invoice-option invoice-page invoice-name "x" "" - (lambda () #f) #f)) + (lambda () '()) #f)) (gnc:register-inv-option (gnc:make-simple-boolean-option @@ -389,9 +389,9 @@ (let ((show-payments (opt-val "Display" "Payments")) (display-all-taxes (opt-val "Display" "Individual Taxes")) - (lot (gnc:invoice-get-posted-lot invoice)) - (txn (gnc:invoice-get-posted-txn invoice)) - (currency (gnc:invoice-get-currency invoice)) + (lot (gncInvoiceGetPostedLot invoice)) + (txn (gncInvoiceGetPostedTxn invoice)) + (currency (gncInvoiceGetCurrency invoice)) (entries-added 0)) (define (colspan monetary used-columns) @@ -534,7 +534,7 @@ invoice?))) (if display-all-taxes - (let ((tax-list (gnc:entry-get-tax-values current invoice?))) + (let ((tax-list (gncEntryReturnTaxValues current invoice?))) (update-account-hash acct-hash tax-list)) (tax-collector 'add (gnc:gnc-monetary-commodity (cdr entry-values)) @@ -569,7 +569,7 @@ (let* ((table (gnc:make-html-table)) (used-columns (build-column-used options)) (width (num-columns-required used-columns)) - (entries (gnc:invoice-get-entries invoice)) + (entries (gncInvoiceGetEntries invoice)) (totals (gnc:make-commodity-collector))) (gnc:html-table-set-col-headers! @@ -628,7 +628,7 @@ (list "
")) (for-each (lambda (order) - (let* ((reference (gnc:order-get-reference order))) + (let* ((reference (GncOrderGetReference order))) (if (and reference (> (string-length reference) 0)) (gnc:html-table-append-row! table @@ -665,26 +665,26 @@ (define (make-myname-table book date-format) (let* ((table (gnc:make-html-table)) - (slots (gnc:book-get-slots book)) - (name (gnc:kvp-frame-get-slot-path + (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*)))) -;; (contact (gnc:kvp-frame-get-slot-path +;; (contact (kvp-frame-get-slot-path-gslist ;; slots (append gnc:*kvp-option-path* ;; (list gnc:*business-label* gnc:*company-contact*)))) - (addy (gnc:kvp-frame-get-slot-path + (addy (kvp-frame-get-slot-path-gslist slots (append gnc:*kvp-option-path* (list gnc:*business-label* gnc:*company-addy*)))) - (id (gnc:kvp-frame-get-slot-path + (id (kvp-frame-get-slot-path-gslist slots (append gnc:*kvp-option-path* (list gnc:*business-label* gnc:*company-id*)))) - (phone (gnc:kvp-frame-get-slot-path + (phone (kvp-frame-get-slot-path-gslist slots (append gnc:*kvp-option-path* (list gnc:*business-label* gnc:*company-phone*)))) - (fax (gnc:kvp-frame-get-slot-path + (fax (kvp-frame-get-slot-path-gslist slots (append gnc:*kvp-option-path* (list gnc:*business-label* gnc:*company-fax*)))) - (url (gnc:kvp-frame-get-slot-path + (url (kvp-frame-get-slot-path-gslist slots (append gnc:*kvp-option-path* (list gnc:*business-label* gnc:*company-url*)))) (invoice-cell (gnc:make-html-table-cell)) @@ -768,26 +768,25 @@ (if invoice (begin - (set! owner (gnc:invoice-get-owner invoice)) - (let ((type (gw:enum--val->sym - (gnc:owner-get-type - (gnc:owner-get-end-owner owner)) #f))) + (set! owner (gncInvoiceGetOwner invoice)) + (let ((type (gncOwnerGetType + (gncOwnerGetEndOwner owner)))) (case type - ((gnc-owner-customer) + ((GNC-OWNER-CUSTOMER) (set! invoice? #t)) - ((gnc-owner-vendor) + ((GNC-OWNER-VENDOR) (set! title (_ "Bill"))) - ((gnc-owner-employee) + ((GNC-OWNER-EMPLOYEE) (set! title (_ "Expense Voucher"))))) (set! title (sprintf #f (_"%s #%d") title - (gnc:invoice-get-id invoice))))) + (gncInvoiceGetID invoice))))) ;; oli-custom - title redundant, "Invoice" moved to myname-table, ;; invoice number moved below ;;(gnc:html-document-set-title! document title) (if invoice - (let* ((book (gnc:invoice-get-book invoice)) - (slots (gnc:book-get-slots book)) + (let* ((book (gncInvoiceGetBook invoice)) + (slots (gnc-book-get-slots book)) (date-object #f) (helper-table (gnc:make-html-table))) (set! table (make-entry-table invoice @@ -835,8 +834,8 @@ 'attribute (list "width" "100%")) (set! date-object (let ((date-table #f) - (post-date (gnc:invoice-get-date-posted invoice)) - (due-date (gnc:invoice-get-date-due invoice))) + (post-date (gncInvoiceGetDatePosted invoice)) + (due-date (gncInvoiceGetDateDue invoice))) (if (not (equal? post-date (cons 0 0))) (begin @@ -844,7 +843,7 @@ ;; oli-custom - moved invoice number here (gnc:html-table-append-row! date-table (list (sprintf #f (_ "Invoice # %d") - (gnc:invoice-get-id invoice)))) + (gncInvoiceGetID invoice)))) (make-date-row! date-table (_ "Invoice Date") post-date) (make-date-row! date-table (_ "Due Date") due-date) date-table) @@ -876,7 +875,7 @@ (make-break! document) (if (opt-val "Display" "Billing ID") - (let ((billing-id (gnc:invoice-get-billing-id invoice))) + (let ((billing-id (gncInvoiceGetBillingID invoice))) (if (and billing-id (> (string-length billing-id) 0)) (begin (gnc:html-document-add-object! @@ -888,8 +887,8 @@ (make-break! document))))) (if (opt-val "Display" "Billing Terms") - (let* ((term (gnc:invoice-get-terms invoice)) - (terms (gnc:bill-term-get-description term))) + (let* ((term (gncInvoiceGetTerms invoice)) + (terms (gncBillTermGetDescription term))) (if (and terms (> (string-length terms) 0)) (gnc:html-document-add-object! document @@ -906,7 +905,7 @@ (make-break! document) (if (opt-val "Display" "Invoice Notes") - (let ((notes (gnc:invoice-get-notes invoice))) + (let ((notes (gncInvoiceGetNotes invoice))) (gnc:html-document-add-object! document (gnc:make-html-text @@ -915,7 +914,7 @@ (make-break! document) (if (opt-val "Display" "Payable to") - (let* ((name (gnc:kvp-frame-get-slot-path + (let* ((name (kvp-frame-get-slot-path-gslist slots (append gnc:*kvp-option-path* (list gnc:*business-label* gnc:*company-name*)))) @@ -930,7 +929,7 @@ (make-break! document) (if (opt-val "Display" "Company contact") - (let* ((contact (gnc:kvp-frame-get-slot-path + (let* ((contact (kvp-frame-get-slot-path-gslist slots (append gnc:*kvp-option-path* (list gnc:*business-label* gnc:*company-contact*)))) diff --git a/src/business/business-reports/invoice.scm b/src/business/business-reports/invoice.scm index 004686dde0..b609bb592f 100644 --- a/src/business/business-reports/invoice.scm +++ b/src/business/business-reports/invoice.scm @@ -161,54 +161,54 @@ (let* ((row-contents '()) (entry-value (gnc:make-gnc-monetary currency - (gnc:entry-get-value entry invoice?))) + (gncEntryReturnValue entry invoice?))) (entry-tax-value (gnc:make-gnc-monetary currency - (gnc:entry-get-tax-value entry invoice?)))) + (gncEntryReturnTaxValue entry invoice?)))) (if (date-col column-vector) (addto! row-contents - (gnc:print-date (gnc:entry-get-date entry)))) + (gnc:print-date (gncEntryGetDate entry)))) (if (description-col column-vector) (addto! row-contents - (gnc:entry-get-description entry))) + (gncEntryGetDescription entry))) (if (action-col column-vector) (addto! row-contents - (gnc:entry-get-action entry))) + (gncEntryGetAction entry))) (if (quantity-col column-vector) (addto! row-contents (gnc:make-html-table-cell/markup "number-cell" - (gnc:entry-get-quantity entry)))) + (gncEntryGetQuantity entry)))) (if (price-col column-vector) (addto! row-contents (gnc:make-html-table-cell/markup "number-cell" (gnc:make-gnc-monetary - currency (if invoice? (gnc:entry-get-inv-price entry) - (gnc:entry-get-bill-price entry)))))) + currency (if invoice? (gncEntryGetInvPrice entry) + (gncEntryGetBillPrice entry)))))) (if (discount-col column-vector) (addto! row-contents (if invoice? (gnc:make-html-table-cell/markup "number-cell" - (monetary-or-percent (gnc:entry-get-inv-discount entry) + (monetary-or-percent (gncEntryGetInvDiscount entry) currency - (gnc:entry-get-inv-discount-type entry))) + (gncEntryGetInvDiscountType entry))) ""))) (if (tax-col column-vector) (addto! row-contents (if (if invoice? - (and (gnc:entry-get-inv-taxable entry) - (gnc:entry-get-inv-tax-table entry)) - (and (gnc:entry-get-bill-taxable entry) - (gnc:entry-get-bill-tax-table entry))) + (and (gncEntryGetInvTaxable entry) + (gncEntryGetInvTaxTable entry)) + (and (gncEntryGetBillTaxable entry) + (gncEntryGetBillTaxTable entry))) (_ "T") ""))) (if (taxvalue-col column-vector) @@ -237,7 +237,7 @@ (gnc:register-inv-option (gnc:make-invoice-option invoice-page invoice-name "x" "" - (lambda () #f) #f)) + (lambda () '()) #f)) (gnc:register-inv-option (gnc:make-simple-boolean-option @@ -342,9 +342,9 @@ (let ((show-payments (opt-val "Display" "Payments")) (display-all-taxes (opt-val "Display" "Individual Taxes")) - (lot (gnc:invoice-get-posted-lot invoice)) - (txn (gnc:invoice-get-posted-txn invoice)) - (currency (gnc:invoice-get-currency invoice))) + (lot (gncInvoiceGetPostedLot invoice)) + (txn (gncInvoiceGetPostedTxn invoice)) + (currency (gncInvoiceGetCurrency invoice))) (define (colspan monetary used-columns) (cond @@ -470,7 +470,7 @@ invoice?))) (if display-all-taxes - (let ((tax-list (gnc:entry-get-tax-values current invoice?))) + (let ((tax-list (gncEntryReturnTaxValues current invoice?))) (update-account-hash acct-hash tax-list)) (tax-collector 'add (gnc:gnc-monetary-commodity (cdr entry-values)) @@ -503,7 +503,7 @@ (let* ((table (gnc:make-html-table)) (used-columns (build-column-used options)) (width (num-columns-required used-columns)) - (entries (gnc:invoice-get-entries invoice)) + (entries (gncInvoiceGetEntries invoice)) (totals (gnc:make-commodity-collector))) (gnc:html-table-set-col-headers! @@ -555,7 +555,7 @@ (list "
")) (for-each (lambda (order) - (let* ((reference (gnc:order-get-reference order))) + (let* ((reference (GncOrderGetReference order))) (if (and reference (> (string-length reference) 0)) (gnc:html-table-append-row! table @@ -587,11 +587,11 @@ (define (make-myname-table book date-format) (let* ((table (gnc:make-html-table)) - (slots (gnc:book-get-slots book)) - (name (gnc:kvp-frame-get-slot-path + (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 (gnc:kvp-frame-get-slot-path + (addy (kvp-frame-get-slot-path-gslist slots (append gnc:*kvp-option-path* (list gnc:*business-label* gnc:*company-addy*))))) @@ -638,24 +638,23 @@ (if invoice (begin - (set! owner (gnc:invoice-get-owner invoice)) - (let ((type (gw:enum--val->sym - (gnc:owner-get-type - (gnc:owner-get-end-owner owner)) #f))) + (set! owner (gncInvoiceGetOwner invoice)) + (let ((type (gncOwnerGetType + (gncOwnerGetEndOwner owner)))) (case type - ((gnc-owner-customer) + ((GNC-OWNER-CUSTOMER) (set! invoice? #t)) - ((gnc-owner-vendor) + ((GNC-OWNER-VENDOR) (set! title (_ "Bill"))) - ((gnc-owner-employee) + ((GNC-OWNER-EMPLOYEE) (set! title (_ "Expense Voucher"))))) (set! title (sprintf #f (_"%s #%d") title - (gnc:invoice-get-id invoice))))) + (gncInvoiceGetID invoice))))) (gnc:html-document-set-title! document title) (if invoice - (let ((book (gnc:invoice-get-book invoice))) + (let ((book (gncInvoiceGetBook invoice))) (set! table (make-entry-table invoice (gnc:report-options report-obj) add-order invoice?)) @@ -671,8 +670,8 @@ (make-myname-table book (opt-val "Display" "Today Date Format"))) (let ((date-table #f) - (post-date (gnc:invoice-get-date-posted invoice)) - (due-date (gnc:invoice-get-date-due invoice))) + (post-date (gncInvoiceGetDatePosted invoice)) + (due-date (gncInvoiceGetDateDue invoice))) (if (not (equal? post-date (cons 0 0))) (begin @@ -696,7 +695,7 @@ (make-break! document) (if (opt-val "Display" "Billing ID") - (let ((billing-id (gnc:invoice-get-billing-id invoice))) + (let ((billing-id (gncInvoiceGetBillingID invoice))) (if (and billing-id (> (string-length billing-id) 0)) (begin (gnc:html-document-add-object! @@ -708,8 +707,8 @@ (make-break! document))))) (if (opt-val "Display" "Billing Terms") - (let* ((term (gnc:invoice-get-terms invoice)) - (terms (gnc:bill-term-get-description term))) + (let* ((term (gncInvoiceGetTerms invoice)) + (terms (gncBillTermGetDescription term))) (if (and terms (> (string-length terms) 0)) (gnc:html-document-add-object! document @@ -726,7 +725,7 @@ (make-break! document) (if (opt-val "Display" "Invoice Notes") - (let ((notes (gnc:invoice-get-notes invoice))) + (let ((notes (gncInvoiceGetNotes invoice))) (gnc:html-document-add-object! document (gnc:make-html-text diff --git a/src/business/business-reports/owner-report.scm b/src/business/business-reports/owner-report.scm index 83a4419789..4ba675fd08 100644 --- a/src/business/business-reports/owner-report.scm +++ b/src/business/business-reports/owner-report.scm @@ -156,8 +156,8 @@ (for-each (lambda (lot) (let* ((bal (gnc:lot-get-balance lot)) - (invoice (gnc:invoice-get-invoice-from-lot lot)) - (post-date (gnc:invoice-get-date-posted invoice))) + (invoice (gncInvoiceGetInvoiceFromLot lot)) + (post-date (gncInvoiceGetDatePosted invoice))) (if (not (gnc:numeric-zero-p bal)) (begin @@ -197,7 +197,7 @@ (due-date #f) (value (gnc:transaction-get-account-value txn acc)) (split (gnc:transaction-get-split txn 0)) - (invoice (gnc:invoice-get-invoice-from-txn txn)) + (invoice (gncInvoiceGetInvoiceFromTxn txn)) (currency (gnc:transaction-get-currency txn)) (type-str (cond @@ -256,7 +256,7 @@ ; Now print out the invoice row (if invoice - (set! due-date (gnc:invoice-get-date-due invoice))) + (set! due-date (gncInvoiceGetDateDue invoice))) (let ((row (make-row date due-date (gnc:transaction-get-num txn) type-str (gnc:split-get-memo split) value)) @@ -348,7 +348,7 @@ (gnc:register-inv-option (gnc:make-owner-option owner-page owner-string "v" (N_ "The company for this report") - (lambda () #f) #f owner-type)) + (lambda () '()) #f owner-type)) (gnc:register-inv-option (gnc:make-internal-option "__reg" "owner-type" owner-type)) @@ -403,13 +403,13 @@ gnc:*report-options*) (define (customer-options-generator) - (options-generator '(receivable) 'gnc-owner-customer (_ "Invoice") #f)) + (options-generator '(receivable) GNC-OWNER-CUSTOMER (_ "Invoice") #f)) (define (vendor-options-generator) - (options-generator '(payable) 'gnc-owner-vendor (_ "Bill") #t)) + (options-generator '(payable) GNC-OWNER-VENDOR (_ "Bill") #t)) (define (employee-options-generator) - (options-generator '(payable) 'gnc-owner-employee (_ "Expense Report") #t)) + (options-generator '(payable) GNC-OWNER-EMPLOYEE (_ "Expense Report") #t)) (define (string-expand string character replace-string) (define (car-line chars) @@ -430,7 +430,7 @@ (line-helper (string->list string))) (define (setup-query q owner account end-date) - (let* ((guid (gnc:owner-get-guid (gnc:owner-get-end-owner owner)))) + (let* ((guid (gncOwnerReturnGUID (gncOwnerGetEndOwner owner)))) (gnc:query-add-guid-match q @@ -491,11 +491,11 @@ (define (make-myname-table book date-format) (let* ((table (gnc:make-html-table)) - (slots (gnc:book-get-slots book)) - (name (gnc:kvp-frame-get-slot-path + (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 (gnc:kvp-frame-get-slot-path + (addy (kvp-frame-get-slot-path-gslist slots (append gnc:*kvp-option-path* (list gnc:*business-label* gnc:*company-addy*))))) @@ -545,23 +545,23 @@ (type-str "")) (case owner-type - ((gnc-owner-customer) + ((GNC-OWNER-CUSTOMER) (set! type-str (N_ "Customer"))) - ((gnc-owner-vendor) + ((GNC-OWNER-VENDOR) (set! type-str (N_ "Vendor"))) - ((gnc-owner-employee) + ((GNC-OWNER-EMPLOYEE) (set! type-str (N_ "Employee")))) (gnc:html-document-set-title! document (string-append (_ type-str) " " (_ "Report"))) - (if (gnc:owner-is-valid? owner) + (if (gncOwnerIsValid owner) (begin (setup-query query owner account end-date) (gnc:html-document-set-title! document - (string-append (_ type-str ) " " (_ "Report:") " " (gnc:owner-get-name owner))) + (string-append (_ type-str ) " " (_ "Report:") " " (gncOwnerGetName owner))) (gnc:html-document-set-headline! document (gnc:html-markup @@ -570,7 +570,7 @@ " " (_ "Report:") " " (gnc:html-markup-anchor (gnc:owner-anchor-text owner) - (gnc:owner-get-name owner)))) + (gncOwnerGetName owner)))) (if account (begin @@ -641,20 +641,19 @@ #f))) (define (find-first-account-for-owner owner) - (let ((type (gw:enum--val->sym - (gnc:owner-get-type (gnc:owner-get-end-owner owner)) #f))) + (let ((type (gncOwnerGetType (gncOwnerGetEndOwner owner)))) (case type - ((gnc-owner-customer) + ((GNC-OWNER-CUSTOMER) (find-first-account 'receivable)) - ((gnc-owner-vendor) + ((GNC-OWNER-VENDOR) (find-first-account 'payable)) - ((gnc-owner-employee) + ((GNC-OWNER-EMPLOYEE) (find-first-account 'payable)) - ((gnc-owner-job) - (find-first-account-for-owner (gnc:owner-get-end-owner owner))) + ((GNC-OWNER-JOB) + (find-first-account-for-owner (gncOwnerGetEndOwner owner))) (else #f)))) @@ -693,16 +692,15 @@ (gnc:make-report report-name options))) (define (owner-report-create owner account) - (let ((type (gw:enum--val->sym - (gnc:owner-get-type (gnc:owner-get-end-owner owner)) #f))) + (let ((type (gncOwnerGetType (gncOwnerGetEndOwner owner)))) (case type - ((gnc-owner-customer) + ((GNC-OWNER-CUSTOMER) (owner-report-create-internal (N_ "Customer Report") owner account)) - ((gnc-owner-vendor) + ((GNC-OWNER-VENDOR) (owner-report-create-internal (N_ "Vendor Report") owner account)) - ((gnc-owner-employee) + ((GNC-OWNER-EMPLOYEE) (owner-report-create-internal (N_ "Employee Report") owner account)) (else #f)))) @@ -718,14 +716,14 @@ account split query journal? double? title debit-string credit-string) - (let* ((temp-owner (gnc:owner-create)) + (let* ((temp-owner (gncOwnerCreate)) (owner (gnc:owner-from-split split temp-owner)) (res #f)) (if owner (set! res (gnc:owner-report-create owner account))) - (gnc:owner-destroy temp-owner) + (gncOwnerDestroy temp-owner) res)) (gnc:register-report-hook 'receivable #t