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]