improvements for invoices.

src/clj/auto_ap/parse/csv.clj

@@ -18,6 +18,17 @@
   :default (fn default [rows]
              nil))
 
+(defn parse-date-fallover [d fmts]
+  (if-let [valid-fmt (->> fmts
+                          (filter (fn [f]
+                                    (try
+                                      (u/parse-value :clj-time f d)
+                                      (catch Exception e
+                                        nil))
+                                    ))
+                          (first))]
+    (u/parse-value :clj-time valid-fmt d)))
+
 (defmethod parse-csv :mama-lus
   [rows]
   (println "MAMA LU4")
@@ -27,9 +38,7 @@
                 {:vendor-code "Mama Lu's Foods"
                  :customer-identifier customer
                  :invoice-number (str po-number "-" invoice-number )
-                 :date (try (u/parse-value :clj-time "M/d/yyyy HH:ss" invoice-date)
-                            (catch Exception _
-                              (u/parse-value :clj-time "M/d/yyyy" invoice-date)))
+                 :date (parse-date-fallover invoice-date ["M/d/yyyy HH:ss"  "M/d/yyyy HH:mm:ss aa" "M/d/yyyy"])
                  :total (str/replace value #"," "")
                  :text (str/join " " row)
                  :full-text (str/join " " row)})))