From 5f6413c6c5bf323d6998ea4fced545429e7c7e02 Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Fri, 1 Nov 2019 19:15:35 +0800 Subject: [PATCH] [report-utilities] tiny reordering to remove unnecessary reference instead of split->txn->invoice->lot->invoice grab split->txn->invoice->lot directly --- gnucash/report/report-system/report-utilities.scm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/gnucash/report/report-system/report-utilities.scm b/gnucash/report/report-system/report-utilities.scm index 2eec572b8a..2180b3734e 100644 --- a/gnucash/report/report-system/report-utilities.scm +++ b/gnucash/report/report-system/report-utilities.scm @@ -1124,10 +1124,9 @@ flawed. see report-utilities.scm. please update reports.") ;; reduce the lot balance automatically. ((eqv? (xaccTransGetTxnType (xaccSplitGetParent (car splits))) TXN-TYPE-INVOICE) - (let* ((lot (gncInvoiceGetPostedLot - (gncInvoiceGetInvoiceFromTxn - (xaccSplitGetParent (car splits))))) - (invoice (gncInvoiceGetInvoiceFromLot lot)) + (let* ((invoice (gncInvoiceGetInvoiceFromTxn + (xaccSplitGetParent (car splits)))) + (lot (gncInvoiceGetPostedLot invoice)) (bal (gnc-lot-get-balance lot)) (bal (if receivable? bal (- bal))) (date (if (eq? date-type 'postdate)