NPO-Accounting/payroll-import
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix indentation

Browse source
This commit is contained in:
Ben Sturmfels 2024-03-15 08:53:45 +11:00
parent 2d65abbd58
commit 85ce83f0b6
Signed by: bsturmfels
GPG key ID: 023C05E2C9C068F0
1 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
src/import.clj
View file

@ -206,10 +206,10 @@
:currency "USD"}]] :currency "USD"}]]
{:date date :desc (format "Monthly Payroll - %s - TAXES - %s" period name) {:date date :desc (format "Monthly Payroll - %s - TAXES - %s" period name)
:meta (assoc-project projects name {:project "Conservancy" :meta (assoc-project projects name {:project "Conservancy"
:program "Conservancy:Payroll" :program "Conservancy:Payroll"
:entity name :entity name
:receipt receipt-no :receipt receipt-no
:approval "Financial/Employment-Records/memo-re-board-approval-of-payroll.txt"}) :approval "Financial/Employment-Records/memo-re-board-approval-of-payroll.txt"})
:postings (concat :postings (concat
retirement-postings retirement-postings
liability-postings liability-postings
@ -231,9 +231,9 @@
;; Use eg. "US:Medicare", not "US:Tax:Medicare" as ;; Use eg. "US:Medicare", not "US:Tax:Medicare" as
;; in individual-taxes as confirmed by Rosanne. ;; in individual-taxes as confirmed by Rosanne.
:meta (assoc-project projects :meta (assoc-project projects
name name
{:entity name {:entity name
:payroll-type (str/replace (cat->payroll-type category) "Tax:" "")})}) :payroll-type (str/replace (cat->payroll-type category) "Tax:" "")})})
total-liabilities (->> liability-postings (map :amount) (reduce + 0M)) total-liabilities (->> liability-postings (map :amount) (reduce + 0M))
unemploy-lines (filter (fn [{:keys [category type]}] unemploy-lines (filter (fn [{:keys [category type]}]
(and (= type "Liability") (and (= type "Liability")
@ -243,10 +243,10 @@
:amount amount :amount amount
:currency "USD" :currency "USD"
:meta (assoc-project projects :meta (assoc-project projects
name name
{:entity (first (str/split category #" ")) {:entity (first (str/split category #" "))
:memo name ; distinguishes multiple employees in one state :memo name ; distinguishes multiple employees in one state
:payroll-type (str "US:" (cat->payroll-type category))})}) :payroll-type (str "US:" (cat->payroll-type category))})})
total-unemploy (->> unemploy-postings (map :amount) (reduce + 0M)) total-unemploy (->> unemploy-postings (map :amount) (reduce + 0M))
asset-postings [{:account "Assets:FR:Check2721" asset-postings [{:account "Assets:FR:Check2721"
:amount (- (+ total-liabilities total-unemploy)) :amount (- (+ total-liabilities total-unemploy))