Wolfram Language™

Carregue arquivos em uma API de análise de impostos sobre vendas

Você pode carregar arquivos para um servidor da web usando URLRead.

Crie um objeto de nuvem que analise um relatório de imposto sobre vendas de um varejista on-line.

In[1]:=

salesTaxReportAsText[rawdata_] := With[{data = Map[extract, Rest[rawdata]]}, StringReplace[ ToString[ Column[{"Order Report", Grid[Join[{extract[First[rawdata]]}, Map[format, data, {2}], {{"Total:", format@Total[data[[All, 2]]], format@Total[data[[All, 3]]]}}], Alignment -> Right], "", "", Row[{"Total orders with no tax: ", Total[Cases[data, {_, n_ /; n == 0, _}][[All, 3]]]}]}], OutputForm], "\n\n" -> "\n"]] extract[r_] := {First[r], r[[20]], r[[21]]} format[x_] := Replace[x, {n_?NumericQ :> NumberForm[n, {Infinity, 2}]}] orders = CloudDeploy[ APIFunction[{"orders" -> "CSV"}, salesTaxReportAsText[#orders] &, "Text"], "orders.api", Permissions -> "Public"]

Out[1]=

Visite https://www.amazon.com/gp/b2b/reports para executar um relatório de pedidos em um intervalo de tempo. Baixe o arquivo CSV. Ou crie um arquivo com dados de demonstração.

In[2]:=

Export["orders.csv", "Order Date,Order ID,Payment Instrument Type,Website,Purchase Order \ Number,Ordering Customer Email,Shipment Date,Shipping Address \ Name,Shipping Address Street 1,Shipping Address Street 2,Shipping \ Address City,Shipping Address State,Shipping Address Zip,Order \ Status,Carrier Name & Tracking Number,Subtotal,Shipping Charge,Tax \ Before Promotions,Total Promotions,Tax Charged,Total Charged,Buyer \ Name,Group Name 01/12/16,610,Visa - \ 2493,Amazon.com,,customer@example.com,01/14/16,Alf B. Charlie,34 W \ Reindeer Tr,,Slaterock,KS,66083,Shipped,SUREPOST(1ZW532553XVFG),$36.\ 11,$5.55,$0.00,$5.55,$0.00,$36.11,Alf B. Charlie,none 01/22/16,111,Visa - \ 2493,Amazon.com,,customer@example.com,01/23/16,Alf B. Charlie,34 W \ Reindeer Tr,,Slaterock,KS,66083,Shipped,QUICKSHIP(28zvW),$215.90,$3.\ 86,$0.00,$3.86,$0.00,$215.90,Alf B. Charlie,none 03/07/16,729,Visa - \ 0832,Amazon.com,,customer@example.com,03/07/16,Alf B. Charlie,34 W \ Reindeer Tr,,Slaterock,KS,66083,Shipped,QUIKSHIP(29xcdQ),$48.95,$3.86,\ $4.28,$3.86,$4.28,$48.95,Alf B. Charlie,none 08/25/16,729,Visa - \ 0832,Amazon.com,,customer@example.com,08/25/16,Alf B. Charlie,34 W \ Reindeer Tr,,Slaterock,KS,66083,Shipped,QUIKSHIP(53fGkM),$69.48,$3.86,\ $6.08,$3.86,$6.08,$69.48,Alf B. Charlie,none", "Text"]

Out[2]=

Solicite o relatório da API, fazendo input carregando o arquivo de dados de pedidos.

In[3]:=

URLRead[HTTPRequest[ orders, <|"Body" -> {"orders" -> File["orders.csv"]}|>], "Body"]

Out[3]=