47 lines
1.1 KiB
Clojure
47 lines
1.1 KiB
Clojure
(ns auto-ap.parse.csv
|
|
(:require [auto-ap.parse.util :as u]
|
|
[clojure.data.csv :as csv]
|
|
[clojure.java.io :as io]
|
|
[clojure.string :as str]))
|
|
|
|
(defn determine
|
|
[[header :as z]]
|
|
(prn header)
|
|
(cond (str/includes? (second header) "Customer's PO No.")
|
|
:mama-lus
|
|
|
|
:else
|
|
nil))
|
|
|
|
(defmulti parse-csv
|
|
determine
|
|
:default (fn default [rows]
|
|
nil))
|
|
|
|
(defmethod parse-csv :mama-lus
|
|
[rows]
|
|
(println "MAMA LU")
|
|
(transduce
|
|
(comp (drop 1)
|
|
(map (fn [[_ po-number despatch-number invoice-number invoice-date customer value :as row]]
|
|
{:vendor-code "Mama Lu's Foods"
|
|
:customer-identifier customer
|
|
:invoice-number (str invoice-number " " po-number)
|
|
:date (u/parse-value :clj-time "MM/dd/yy HH:ss" invoice-date)
|
|
:total value
|
|
:text (str/join " " row)})))
|
|
conj
|
|
[]
|
|
rows))
|
|
|
|
(defmethod parse-csv nil
|
|
[rows]
|
|
nil)
|
|
|
|
(defn parse-file [file filename]
|
|
(println "HEREERE")
|
|
(with-open [reader (io/reader file)]
|
|
(let [rows (csv/read-csv reader :separator \,)]
|
|
(parse-csv rows))))
|
|
|