From b1273835d5228d0ffed4c3a274004c39899e6528 Mon Sep 17 00:00:00 2001 From: Bryce Date: Wed, 7 Jan 2026 10:45:35 -0800 Subject: [PATCH 1/6] 2025 1099s --- src/clj/auto_ap/ssr/company/company_1099.clj | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/clj/auto_ap/ssr/company/company_1099.clj b/src/clj/auto_ap/ssr/company/company_1099.clj index 57e0547d..01eecd18 100644 --- a/src/clj/auto_ap/ssr/company/company_1099.clj +++ b/src/clj/auto_ap/ssr/company/company_1099.clj @@ -49,8 +49,8 @@ :where [?p :payment/client ?c] [?p :payment/date ?d ] - [(>= ?d #inst "2024-01-01T08:00")] - [(< ?d #inst "2025-01-01T08:00")] + [(>= ?d #inst "2025-01-01T08:00")] + [(< ?d #inst "2026-01-01T08:00")] [?p :payment/type :payment-type/check] [?p :payment/amount ?a] [?p :payment/vendor ?v]] @@ -68,8 +68,8 @@ :where [?p :payment/client ?c] [?p :payment/date ?d ] - [(>= ?d #inst "2024-01-01T08:00")] - [(< ?d #inst "2025-01-01T08:00")] + [(>= ?d #inst "2025-01-01T08:00")] + [(< ?d #inst "2026-01-01T08:00")] [?p :payment/type :payment-type/check] [?p :payment/amount ?a] [?p :payment/vendor ?v]] From 4ef2190570792fd69a1d0044be6141624af0743b Mon Sep 17 00:00:00 2001 From: Bryce Date: Wed, 7 Jan 2026 11:26:20 -0800 Subject: [PATCH 2/6] template for sushi. --- src/clj/auto_ap/parse/templates.clj | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/clj/auto_ap/parse/templates.clj b/src/clj/auto_ap/parse/templates.clj index 06d1d474..195b9137 100644 --- a/src/clj/auto_ap/parse/templates.clj +++ b/src/clj/auto_ap/parse/templates.clj @@ -736,15 +736,15 @@ :parser {:date [:clj-time "MM/dd/yyyy"] :total [:trim-commas-and-negate nil]}} {:vendor "Reel Produce" - :keywords [#"reelproduce.com" #"Statem"] - :extract {:date #"\s*([0-9]+/[0-9]+/[0-9]+)" - :customer-identifier #"ELECTRONICALLY.*\n\s*(.*?)\s{2,}" - :invoice-number #"#(\d+)" + :keywords [#"Reel Produce" #"Statem"] + :extract {:date #"\s*([0-9]+\-[0-9]+\-[0-9]+)" + :customer-identifier #"Customer.*\n(.*?)\n" + :invoice-number #"^(\d+)" :total #"([\d\-,]+\.\d{2,2})"} - :parser {:date [:clj-time "MM/dd/yyyy"] + :parser {:date [:clj-time "yyyy-MM-dd"] :total [:trim-commas-and-negate nil]} :multi #"\n" - :multi-match? #"INV #"} + :multi-match? #"^\d+"} {:vendor "Paulino's Bakery" :keywords [#"paulinosbakery"] :extract {:date #"\s*([0-9]+/[0-9]+/[0-9]+)" From 795189ddd3e27b215fde8c734b013e6518c67455 Mon Sep 17 00:00:00 2001 From: Bryce Date: Wed, 7 Jan 2026 11:32:49 -0800 Subject: [PATCH 3/6] csv for worldwide produce --- src/clj/auto_ap/parse/csv.clj | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/src/clj/auto_ap/parse/csv.clj b/src/clj/auto_ap/parse/csv.clj index 2b4fd429..eb3997fd 100644 --- a/src/clj/auto_ap/parse/csv.clj +++ b/src/clj/auto_ap/parse/csv.clj @@ -32,6 +32,9 @@ (str/includes? (str header) "Due Date") :ledyard + + (str/includes? (str header) "PARENT CUSTOMER NAME") + :worldwide :else nil)] @@ -185,6 +188,23 @@ [] (drop 1 rows))) +(defmethod parse-csv :worldwide + [rows] + (transduce + (comp + (map (fn [[_ customer-name _ inv date amount :as row]] + {:vendor-code "Worldwide Produce" + :customer-identifier customer-name + :invoice-number (str/replace inv #"[=\"]" "") + :date (some-> date not-empty (parse-date-fallover ["MM/dd/yy"])) + :total (str/replace amount #"[\$,]" "") + :text (str/join " " row) + :full-text (str/join " " row)})) + ) + conj + [] + (drop 1 rows))) + #_{:clj-kondo/ignore [:unused-binding]} (defmethod parse-csv nil [rows] From a2e31d696606515f554537f26052ee0a645ce843 Mon Sep 17 00:00:00 2001 From: Bryce Date: Fri, 16 Jan 2026 15:50:36 -0800 Subject: [PATCH 4/6] 1099 expens account --- src/clj/auto_ap/ssr/company/company_1099.clj | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/src/clj/auto_ap/ssr/company/company_1099.clj b/src/clj/auto_ap/ssr/company/company_1099.clj index 01eecd18..8bb5eb06 100644 --- a/src/clj/auto_ap/ssr/company/company_1099.clj +++ b/src/clj/auto_ap/ssr/company/company_1099.clj @@ -35,6 +35,7 @@ :address/city :address/state :address/zip]} + {:vendor/account [:account/name]} :vendor/legal-entity-tin :vendor/legal-entity-name :vendor/legal-entity-first-name @@ -144,6 +145,14 @@ :color :yellow} (name tin-type)))] )} + {:key "expense-account" + :name "Expense Account" + :show-starting "md" + :render (fn [[_ vendor]] + [:div.flex.gap-4 + (when-let [tin (-> vendor :vendor/default-account :account/name)] + [:span {:class "text-xs font-medium py-0.5 "} + tin]) ])} {:key "address" :name "Address" :sort-key "address" From 7fae3717f71f78d56e5f62b1e0164304bc442aea Mon Sep 17 00:00:00 2001 From: Bryce Date: Fri, 16 Jan 2026 16:24:43 -0800 Subject: [PATCH 5/6] expense account fix --- src/clj/auto_ap/ssr/company/company_1099.clj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/clj/auto_ap/ssr/company/company_1099.clj b/src/clj/auto_ap/ssr/company/company_1099.clj index 8bb5eb06..7a6b65d9 100644 --- a/src/clj/auto_ap/ssr/company/company_1099.clj +++ b/src/clj/auto_ap/ssr/company/company_1099.clj @@ -35,7 +35,7 @@ :address/city :address/state :address/zip]} - {:vendor/account [:account/name]} + {:vendor/default-account [:account/name]} :vendor/legal-entity-tin :vendor/legal-entity-name :vendor/legal-entity-first-name From dc021b8ce0635504a3e300042f49adbab3b7a1c7 Mon Sep 17 00:00:00 2001 From: Bryce Date: Sun, 25 Jan 2026 21:40:22 -0800 Subject: [PATCH 6/6] trying simple fix for ledger changes. --- iol_ion/src/iol_ion/query.clj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/iol_ion/src/iol_ion/query.clj b/iol_ion/src/iol_ion/query.clj index 7d6cf642..8873ff86 100644 --- a/iol_ion/src/iol_ion/query.clj +++ b/iol_ion/src/iol_ion/query.clj @@ -249,7 +249,7 @@ (if start (>= (.compareTo ^java.util.Date d start) 0) true) - (< (.compareTo ^java.util.Date d end) 0))))) + (<= (.compareTo ^java.util.Date d end) 0))))) (reduce (fn step [acc ^Line l] (assoc! acc