fix sysco.
This commit is contained in:
@@ -70,6 +70,7 @@
|
|||||||
(and customer-identifier
|
(and customer-identifier
|
||||||
(parse/best-match clients customer-identifier)))
|
(parse/best-match clients customer-identifier)))
|
||||||
total (Double/parseDouble (summary-row "TotalExtendedPrice"))
|
total (Double/parseDouble (summary-row "TotalExtendedPrice"))
|
||||||
|
tax (Double/parseDouble (summary-row "TotalTaxAmount"))
|
||||||
date (t/parse
|
date (t/parse
|
||||||
(header-row "InvoiceDate")
|
(header-row "InvoiceDate")
|
||||||
"yyMMdd")
|
"yyMMdd")
|
||||||
@@ -79,7 +80,7 @@
|
|||||||
(log/infof "Importing %s for %s" (header-row "InvoiceNumber") (header-row "CustomerName"))
|
(log/infof "Importing %s for %s" (header-row "InvoiceNumber") (header-row "CustomerName"))
|
||||||
|
|
||||||
[:propose-invoice (cond-> #:invoice {:invoice-number (header-row "InvoiceNumber")
|
[:propose-invoice (cond-> #:invoice {:invoice-number (header-row "InvoiceNumber")
|
||||||
:total total
|
:total (+ total tax)
|
||||||
:outstanding-balance total
|
:outstanding-balance total
|
||||||
:date (coerce/to-date date)
|
:date (coerce/to-date date)
|
||||||
:vendor (:db/id sysco-vendor )
|
:vendor (:db/id sysco-vendor )
|
||||||
|
|||||||
Reference in New Issue
Block a user