weekly debits/credits.

src/clj/auto_ap/parse/csv.clj

@@ -68,7 +68,8 @@
                       (into {} (map vector header row))))
                (map (fn [row]
                       {:vendor-code nil
-                       :customer-identifier (get row "Ship-To Name")
+                       :customer-identifier (str (get row "Ship-To Name") " " (or (get row "Ship-To Number")
+                                                                                  (get row "\"Ship-To Number\"")))
                        :invoice-number (str/trim (get row "Invoice Number"))
                        :date (parse-date-fallover (get row "Invoice Date") ["yyyy-MM-dd"])
                        :total (str/replace (get row "Original Amount") #"[,\$]" "")
@@ -81,7 +82,6 @@
 
 (defmethod parse-csv :mama-lus
   [rows]
-  (println "MAMA LU4")
   (transduce
    (comp (drop 1)
          (map (fn [[_ po-number despatch-number invoice-number invoice-date customer value :as row]]