Remove --pay-invoice-no and replace with retirement invoice value
Rosanne advised we were showing TODO-PAY-INVOICE when it should be TODO-RETIREMENT-INVOICE.
This commit is contained in:
parent
77b603a1dd
commit
6ac0a45273
1 changed files with 2 additions and 4 deletions
|
@ -19,8 +19,6 @@
|
|||
:default 0M]
|
||||
[nil "--pay-receipt-no REFERENCE" "Payroll receipt number, eg. \"rt:111/222\""
|
||||
:default "TODO-PAY-RECEIPT"]
|
||||
[nil "--pay-invoice-no REFERENCE" "Payroll invoice number, eg. \"rt:111/222\""
|
||||
:default "TODO-PAY-INVOICE"]
|
||||
[nil "--fees-receipt-no REFERENCE" "Paychex fees receipt number, eg. \"rt:111/222\""
|
||||
:default "TODO-FEES-RECEIPT"]
|
||||
[nil "--fees-invoice-no REFERENCE" "Paychex fees invoice number, eg. \"rt:111/222\""
|
||||
|
@ -33,13 +31,13 @@
|
|||
|
||||
(defn -main [& args]
|
||||
(let [{:keys [options _arguments _errors summary]} (parse-opts args cli-options)
|
||||
{:keys [date period pay-receipt-no pay-invoice-no total-fees fees-receipt-no fees-invoice-no retirement-receipt-no retirement-invoice-no]} options]
|
||||
{:keys [date period pay-receipt-no total-fees fees-receipt-no fees-invoice-no retirement-receipt-no retirement-invoice-no]} options]
|
||||
(when (:help options)
|
||||
(println summary)
|
||||
(System/exit 0))
|
||||
(let [data (import/read-csv (:csv options))
|
||||
imported (concat (import/payroll date period pay-receipt-no data)
|
||||
(import/individual-taxes date period pay-receipt-no pay-invoice-no data)
|
||||
(import/individual-taxes date period pay-receipt-no retirement-invoice-no data)
|
||||
(import/employer-taxes date period pay-receipt-no data)
|
||||
(import/payroll-fees date period fees-receipt-no fees-invoice-no total-fees data)
|
||||
(import/retirement date period retirement-receipt-no retirement-invoice-no data))]
|
||||
|
|
Loading…
Reference in a new issue