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

Fixes balance sheet export

Browse Source
This commit is contained in:
Bryce
2024-06-07 10:57:42 -07:00
parent 0cabe30999
commit 2801c1469e
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -808,13 +808,15 @@
{: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)
{:border (:border b) {:border (:border b)
:format :dollar :format :dollar
:value (- (or (:value a) 0.0) :value (- (doto (or (:value a) 0.0) println)
(or (:value b) 0.0))})])))) (doto (or (:value b) 0.0) println))})]))))
#_(defn summarize-balance-sheet [pnl-data] #_(defn summarize-balance-sheet [pnl-data]