notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

fixing balance sheet mistake.

Browse Source
This commit is contained in:
Bryce
2024-06-07 20:23:00 -07:00
parent bb9c4cafa9
commit fb6f5a5fc3
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/cljc/auto_ap/ledger/reports.cljc
View File

@@ -808,11 +808,10 @@
{:value "+/-"}])))))))) {:value "+/-"}]))))))))
(defn append-deltas [table] (defn append-deltas [table]
(println "APENDATION")
(->> table (->> table
(map (fn [[title a b]] (map (fn [[title a b]]
[title a b (and (:value a) (:value b) [title a b (and (:value a) (:value b)
(number? a) (number? b) (number? (:value a)) (number? (:value b))
{:border (:border b) {:border (:border b)
:format :dollar :format :dollar
:value (- (doto (or (:value a) 0.0) println) :value (- (doto (or (:value a) 0.0) println)