From 795189ddd3e27b215fde8c734b013e6518c67455 Mon Sep 17 00:00:00 2001
From: Bryce <bryce@brycecovertoperations.com>
Date: Wed, 7 Jan 2026 11:32:49 -0800
Subject: [PATCH] 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]