From 2801c1469ec5522906c948718b276edfade54f91 Mon Sep 17 00:00:00 2001 From: Bryce Date: Fri, 7 Jun 2024 10:57:42 -0700 Subject: [PATCH] Fixes balance sheet export --- src/cljc/auto_ap/ledger/reports.cljc | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/cljc/auto_ap/ledger/reports.cljc b/src/cljc/auto_ap/ledger/reports.cljc index 9773131c..d86df553 100644 --- a/src/cljc/auto_ap/ledger/reports.cljc +++ b/src/cljc/auto_ap/ledger/reports.cljc @@ -808,13 +808,15 @@ {:value "+/-"}])))))))) (defn append-deltas [table] + (println "APENDATION") (->> table (map (fn [[title a b]] [title a b (and (:value a) (:value b) + (number? a) (number? b) {:border (:border b) :format :dollar - :value (- (or (:value a) 0.0) - (or (:value b) 0.0))})])))) + :value (- (doto (or (:value a) 0.0) println) + (doto (or (:value b) 0.0) println))})])))) #_(defn summarize-balance-sheet [pnl-data]