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

Check the employees named with --project are in the pay run

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

16
src/core.clj
View file

@ -3,7 +3,8 @@
(ns core (ns core
"Beancount importer for Paychex Pay Item Details report." "Beancount importer for Paychex Pay Item Details report."
(:require [clojure.string :as str] (:require [clojure.set :as set]
[clojure.string :as str]
[clojure.tools.cli :refer [parse-opts]] [clojure.tools.cli :refer [parse-opts]]
[import :as import]) [import :as import])
(:gen-class)) (:gen-class))
@ -36,6 +37,11 @@
:assoc-fn (fn [m k [name proj]] (assoc-in m [k name] proj))] :assoc-fn (fn [m k [name proj]] (assoc-in m [k name] proj))]
["-h" "--help"]]) ["-h" "--help"]])
(defn unmatched-employees
"Identify any mismatches between employees in the pay run and --project employee allocations."
[data projects]
(set/difference (set (keys projects)) (->> data (map :name) set)))
(defn -main [& args] (defn -main [& args]
(let [{:keys [options errors summary]} (parse-opts args cli-options) (let [{:keys [options errors summary]} (parse-opts args cli-options)
{:keys [date period pay-receipt-no total-fees fees-receipt-no fees-invoice-no retirement-receipt-no retirement-invoice-no project]} options] {:keys [date period pay-receipt-no total-fees fees-receipt-no fees-invoice-no retirement-receipt-no retirement-invoice-no project]} options]
@ -52,7 +58,13 @@
(import/individual-taxes date period pay-receipt-no retirement-invoice-no project data) (import/individual-taxes date period pay-receipt-no retirement-invoice-no project data)
(import/employer-taxes date period pay-receipt-no project data) (import/employer-taxes date period pay-receipt-no project data)
(import/payroll-fees date period fees-receipt-no fees-invoice-no total-fees project data) (import/payroll-fees date period fees-receipt-no fees-invoice-no total-fees project data)
(import/retirement date period retirement-receipt-no retirement-invoice-no data))] (import/retirement date period retirement-receipt-no retirement-invoice-no data))
unmatched (unmatched-employees data project)]
(when-not (empty? unmatched)
(println
(str "Could not find these employees in the payroll:\n\n"
(str/join ", " unmatched)))
(System/exit 1))
(doseq [i imported] (doseq [i imported]
(println (import/render-transaction i)))))) (println (import/render-transaction i))))))