Adding ability to choose comparison date for balance sheet

2021-08-31 07:35:14 -07:00
parent 4a93a9ce4d
commit e661c03206
3 changed files with 62 additions and 24 deletions
--- a/src/clj/auto_ap/graphql/ledger.clj
+++ b/src/clj/auto_ap/graphql/ledger.clj
@@ -175,7 +175,7 @@
  (let [client-id (:client_id args)
        _ (assert-can-see-client (:id context) client-id)
        end-date (coerce/to-date (:date args))
-        comparable-date (coerce/to-date (time/minus (:date args) (time/years 1)))
+        comparable-date (coerce/to-date (:comparison_date args))
        all-ledger-entries (full-ledger-for-client client-id)
        lookup-account (build-account-lookup client-id)]
    (log/info "Running balance sheet with " args)