fixing balance sheet mistake.

2024-06-07 20:23:00 -07:00
parent bb9c4cafa9
commit fb6f5a5fc3
1 changed files with 1 additions and 2 deletions
--- 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)