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

fixing a couple of bugs.

Browse Source
This commit is contained in:
Bryce Covert
2021-12-29 17:47:01 -08:00
parent 70b90e0051
commit 8139958450
2 changed files with 12 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -205,5 +205,10 @@
{:db/ident :transaction/expected-deposit {:db/ident :transaction/expected-deposit
:db/doc "If this transaction is a deposit, the deposit that we anticipated" :db/doc "If this transaction is a deposit, the deposit that we anticipated"
:db/valueType :db.type/ref :db/valueType :db.type/ref
:db/cardinality :db.cardinality/one}]]}}) :db/cardinality :db.cardinality/one}]]}
:add-refund-type {:txes [[{:db/ident :sales-refund/type
:db/doc "The type of refund"
:db/valueType :db.type/string
:db/cardinality :db.cardinality/one}]]
:requires [:add-refunds]}})

10
src/clj/auto_ap/ledger.clj
View File

@@ -45,10 +45,12 @@
:invoice/status '[:db/ident] :invoice/status '[:db/ident]
:invoice/import-status '[:db/ident]}] id) :invoice/import-status '[:db/ident]}] id)
credit-invoice? (< (:invoice/total entity) 0.0)] credit-invoice? (< (:invoice/total entity) 0.0)]
(when-not (or (= true (:invoice/exclude-from-ledger entity)) (when-not (or
(= :import-status/pending (:db/ident (:invoice/import-status entity))) (not (:invoice/total entity))
(= :invoice-status/voided (:db/ident (:invoice/status entity))) (= true (:invoice/exclude-from-ledger entity))
(dollars-0? (:invoice/total entity))) (= :import-status/pending (:db/ident (:invoice/import-status entity)))
(= :invoice-status/voided (:db/ident (:invoice/status entity)))
(dollars-0? (:invoice/total entity)))
(remove-nils (remove-nils
{:journal-entry/source "invoice" {:journal-entry/source "invoice"
:journal-entry/client (:db/id (:invoice/client entity)) :journal-entry/client (:db/id (:invoice/client entity))