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

Plaid enabled for staging

Browse Source
This commit is contained in:
Bryce Covert
2021-12-27 16:10:05 -08:00
parent 55be86e97c
commit 943ed4be19
6 changed files with 32 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/clj/auto_ap/datomic/migrate/sales.clj
View File

@@ -205,5 +205,17 @@
{:db/ident :transaction/expected-deposit
:db/doc "If this transaction is a deposit, the deposit that we anticipated"
:db/valueType :db.type/ref
:db/cardinality :db.cardinality/one}]]}})
:db/cardinality :db.cardinality/one}]]}
:add-vendor-for-sales-stuff {:txes [[{:db/ident :expected-deposit/vendor
:db/doc "Which vendor is this deposit for? CCP Square?"
:db/valueType :db.type/ref
:db/cardinality :db.cardinality/one}
{:db/ident :sales-order/vendor
:db/doc "Which vendor is this sales-order for? CCP Square?"
:db/valueType :db.type/ref
:db/cardinality :db.cardinality/one}
{:db/ident :sales-refund/vendor
:db/doc "Which vendor is this refund for? CCP Square?"
:db/valueType :db.type/ref
:db/cardinality :db.cardinality/one}]]}})

2
src/clj/auto_ap/import/transactions.clj
View File

@@ -230,7 +230,7 @@
:transaction-account/amount amount
:transaction-account/location "A"}]
:transaction/approval-status :transaction-approval-status/approved
:transaction/vendor :vendor/ccp-square
:transaction/vendor (:expected-deposit/vendor expected-deposit)
))))
(defn maybe-code [{:transaction/keys [client amount] :as transaction} apply-rules valid-locations]

3
src/clj/auto_ap/square/core.clj
View File

@@ -165,6 +165,7 @@
:client [:client/code client]
:location location
:external-id (str "square/order/" client "-" location "-" (:id order))
:vendor :vendor/ccp-square
:total (-> order :net_amounts :total_money amount->money)
:tax (-> order :net_amounts :tax_money amount->money)
:tip (-> order :net_amounts :tip_money amount->money)
@@ -332,6 +333,7 @@
([client location-id]
(->> (for [settlement (settlements client location-id)]
#:expected-deposit {:external-id (str "square/settlement/" (:id settlement))
:vendor :vendor/ccp-square
:total (amount->money (:total_money settlement))
:client [:client/code client]
:location (get-in env [:square-config client :location])
@@ -362,6 +364,7 @@
(filter (fn [r] (= "COMPLETED" (:status r))))
(map (fn [r]
#:sales-refund {:external-id (str "square/refund/" (:id r))
:vendor :vendor/ccp-square
:total (amount->money (:amount_money r))
:fee (transduce
(comp (filter #(= "ADJUSTMENT" (:type %)))