several fixes for invoices.

2020-05-26 07:39:33 -07:00
parent 4429fa384a
commit f78133cbea
4 changed files with 101 additions and 57 deletions
--- a/src/clj/auto_ap/parse/util.clj
+++ b/src/clj/auto_ap/parse/util.clj
@@ -27,8 +27,20 @@

 (defmethod parse-value :clj-time
  [_ format value]
-  (time/from-time-zone (f/parse (f/formatter format) value)
-                       (time/time-zone-for-id "America/Los_Angeles")))
+  (let [format (if (sequential? format)
+                 format
+                 [format])]
+    (reduce
+     (fn [_ format]
+       (try 
+         (reduced (time/from-time-zone (f/parse (f/formatter format) value)
+                                       (time/time-zone-for-id "America/Los_Angeles")))
+         (catch Exception e
+           (println e)
+           nil)))
+     nil
+     format)
+    ))

 (defmethod parse-value nil
  [_ _ value]