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

ledger improvements to handle credit cards

Browse Source
This commit is contained in:
Bryce Covert
2021-08-30 19:48:35 -07:00
parent 8b0bc6fdfa
commit 439e552ea1
1 changed files with 25 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
src/clj/auto_ap/datomic/ledger.clj
View File

@@ -59,12 +59,29 @@
'[(<= ?date ?end-date)]]}
:args [(c/to-date (:end (:date-range args)))]})
(or (:from-numeric-code args)
(:to-numeric-code args)
(:bank-account-id args)
(not-empty (:location args)))
(merge-query {:query {:where ['[?e :journal-entry/line-items ?li]]}})
(or (:from-numeric-code args)
(:to-numeric-code args))
(merge-query {:query {:in []
:where ['[?li :journal-entry-line/account ?a]
'(or-join [?c]
[?a :account/numeric-code ?c]
(and [?a :bank-account/type :bank-account-type/check]
[?c 11100])
(and [?a :bank-account/type :bank-account-type/cash]
[?c 11100])
(and [?a :bank-account/type :bank-account-type/credit]
[?c 28000]))]}
:args []})
(:from-numeric-code args)
(merge-query {:query {:in ['?from-numeric-code]
:where ['[?e :journal-entry/line-items ?li]
'[?li :journal-entry-line/account ?a]
'[?a :account/numeric-code ?c]
'[(>= ?c ?from-numeric-code)]]}
:where ['[(>= ?c ?from-numeric-code)]]}
:args [(:from-numeric-code args)]})
(:amount-gte args)
@@ -81,8 +98,7 @@
(:bank-account-id args)
(merge-query {:query {:in ['?a]
:where ['[?e :journal-entry/line-items ?li]
'[?li :journal-entry-line/account ?a]]}
:where ['[?li :journal-entry-line/account ?a]]}
:args [(:bank-account-id args)]})
(:account-id args)
@@ -93,17 +109,14 @@
(:to-numeric-code args)
(merge-query {:query {:in ['?to-numeric-code]
:where ['[?e :journal-entry/line-items ?li]
'[?li :journal-entry-line/account ?a]
'[?a :account/numeric-code ?c]
'[(<= ?c ?to-numeric-code)]]}
:where ['[(<= ?c ?to-numeric-code)]]}
:args [(:to-numeric-code args)]})
(not-empty (:location args))
(merge-query {:query {:in ['?location]
:where ['[?e :journal-entry/line-items ?li]
'[?li :journal-entry-line/location ?location]]}
:where ['[?li :journal-entry-line/location ?location]]}
:args [(:location args)]})
(limited-clients (:id args))
(merge-query {:query {:in ['[?xx ...]]
:where ['[?e :journal-entry/client ?xx]]}