From fb6f5a5fc31e33e26ac20385232a14053437ab56 Mon Sep 17 00:00:00 2001 From: Bryce Date: Fri, 7 Jun 2024 20:23:00 -0700 Subject: [PATCH] fixing balance sheet mistake. --- src/cljc/auto_ap/ledger/reports.cljc | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/cljc/auto_ap/ledger/reports.cljc b/src/cljc/auto_ap/ledger/reports.cljc index d86df553..c5555899 100644 --- a/src/cljc/auto_ap/ledger/reports.cljc +++ b/src/cljc/auto_ap/ledger/reports.cljc @@ -808,11 +808,10 @@ {: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) + (number? (:value a)) (number? (:value b)) {:border (:border b) :format :dollar :value (- (doto (or (:value a) 0.0) println)