real fix for dates

src/clj/auto_ap/graphql/ledger.clj

@@ -9,7 +9,7 @@
     :refer [->graphql <-graphql assert-admin assert-can-see-client result->page]]
    [auto-ap.parse.util :as parse]
    [auto-ap.utils :refer [by dollars=]]
-   [auto-ap.pdf.ledger :refer [print-pnl]]
+   [auto-ap.pdf.ledger :refer [print-pnl print-balance-sheet]]
    [clj-time.coerce :as coerce]
    [clojure.tools.logging :as log]
    [com.walmartlabs.lacinia.util :refer [attach-resolvers]]
@@ -214,6 +214,12 @@
 
     (->graphql result)))
 
+(defn balance-sheet-pdf [context args value]
+  (let [data   (get-balance-sheet context args value)
+        result (print-balance-sheet (:id context) args data)]
+
+    (->graphql result)))
+
 
 (defn assoc-error [f]
   (fn [entry]
@@ -512,7 +518,7 @@
              :account_type {:type :account_type}
              :name         {:type 'String}}}
 
-   :profit_and_loss_pdf
+   :report_pdf
    {:fields {:url {:type 'String}
              :name {:type 'String}}}
 
@@ -581,13 +587,20 @@
                                :include_deltas {:type 'Boolean}}
                      :resolve :get-profit-and-loss}
 
-   :profit_and_loss_pdf {:type    :profit_and_loss_pdf
+   :profit_and_loss_pdf {:type    :report_pdf
                          :args    {:client_id  {:type :id}
                                    :client_ids {:type '(list :id)}
                                    :periods    {:type '(list :date_range)}
                                    :include_deltas {:type 'Boolean}}
                          :resolve :profit-and-loss-pdf}
 
+   :balance_sheet_pdf {:type    :report_pdf
+                       :args    {:client_id          {:type :id}
+                                 :include_comparison {:type 'Boolean}
+                                 :date               {:type :iso_date}
+                                 :comparison_date    {:type :iso_date}}
+                       :resolve :balance-sheet-pdf}
+
    :ledger_page {:type    :ledger_page
                  :args    {:filters {:type :ledger_filters}}
                  :resolve :get-ledger-page}})
@@ -656,6 +669,7 @@
    :get-balance-sheet get-balance-sheet
    :get-profit-and-loss get-profit-and-loss
    :profit-and-loss-pdf profit-and-loss-pdf
+   :balance-sheet-pdf balance-sheet-pdf
    :mutation/delete-external-ledger delete-external-ledger
    :mutation/import-ledger import-ledger})