gnucash maint: [report-utilities] add gnc:dump-lot

[Christopher Lam]

Updated	 via  https://github.com/Gnucash/gnucash/commit/e6b3c565 (commit)
	from  https://github.com/Gnucash/gnucash/commit/88bfc8b4 (commit)



commit e6b3c56568ba72a72f14055138df65007d7612c3
Author: Christopher Lam <christopher.lck at gmail.com>
Date:   Sun Jan 26 10:31:54 2020 +0800

    [report-utilities] add gnc:dump-lot

diff --git a/gnucash/report/report-system/report-system.scm b/gnucash/report/report-system/report-system.scm
index 1153e62b0..1fdcdf92c 100644
--- a/gnucash/report/report-system/report-system.scm
+++ b/gnucash/report/report-system/report-system.scm
@@ -753,6 +753,7 @@
 (export gnc:pk)
 (export gnc:dump-book)
 (export gnc:dump-invoices)
+(export gnc:dump-lot)
 
 ;; trep-engine.scm
 (export gnc:trep-options-generator)
diff --git a/gnucash/report/report-system/report-utilities.scm b/gnucash/report/report-system/report-utilities.scm
index 21b12e018..9f40770eb 100644
--- a/gnucash/report/report-system/report-utilities.scm
+++ b/gnucash/report/report-system/report-utilities.scm
@@ -1414,3 +1414,14 @@ flawed. see report-utilities.scm. please update reports.")
                (inv-amt->string inv (gncInvoiceGetTotalTax inv)))
        (newline))
      invoices)))
+
+(define (gnc:dump-lot lot)
+  (display "gnc:dump-lot: ")
+  (display (gnc:strify lot))
+  (newline)
+  (for-each
+   (lambda (s)
+     (display "Lot-split: ")
+     (display (gnc:strify s))
+     (newline))
+   (gnc-lot-get-split-list lot)))



Summary of changes:
 gnucash/report/report-system/report-system.scm    |  1 +
 gnucash/report/report-system/report-utilities.scm | 11 +++++++++++
 2 files changed, 12 insertions(+)