code/modules/Economy/POS.dm - Bleeding-Edge - githubmirror/vgstation13

code/modules/Economy/POS.dm
632 строки20 KB
ShiftyRail
516 compatibility for simple HTML (#37508)
05 май 2025, 23:51
05 май 2025, 23:51cdb769a
/************************
* Point Of Sale
*
* Takes cash or credit.
*************************/

/*
	For anyone confused why products["[products.len+1]"] = LI is used, it's so there's no type conversion required since href_list[] always produces a string.
	Of course, this is what I've observed and assumed - CW
*/

#define to_valid_product_price(A) (max(LOWEST_DENOMINATION, round_to_lowest_denomination(A)))

// Prevents McAsshat from cheaping out the local shop by buying a faction of something and causing the subtotal to be rounded down to zero.
#define to_valid_subtotal(A) (A>0 ? to_valid_product_price(A) : A)

/line_item
	parent_type = /datum

	var/name = ""
	var/price = 0 // Per unit
	var/units = 0

var/global/current_pos_id = 1
var/global/pos_sales = 0

var/const/RECEIPT_HEADER = {"<html>
	<head>
		<style type="text/css">
			html {
				font-family: monospace;
			}

			table {
				margin: auto;
				margin-top: 1em;
				border-collapse: collapse;
			}
			th, td {
				padding: 1px;
				margin: 0;
			}
			td,
			tr.first th {
				border-left: 1px solid #ccc;
			}
			tr.first th.first {
				border-left: none;
			}
			tr.even td,
			tr.even th {
				background: #f0f0f0;
			}
			tr.calculated {
				font-style: italic;
			}
			tr.calculated td {
				border-top: 1px solid #000;
				border-left: 1px solid #ccc;
				background: #fefefe;
			}
			tr.total {
				font-weight: bold
			}
			tr.total td {
				border-top: 1px solid #000;
				background: #dfdfdf;
			}

		</style>
	</head>
	<body>
"}
var/const/POS_HEADER = {"<html>
	<head>
		<style type="text/css">
			* {
				font-family: sans-serif;
				font-size: small;
			}

			table {
				margin: auto;
				margin-top: 1em;
				border-collapse: collapse;
			}
			th, td {
				padding: 1px;
				margin: 0;
			}
			td,
			tr.first th {
				border-left: 1px solid #ccc;
			}
			tr.first th.first {
				border-left: none;
			}
			tr.even td,
			tr.even th {
				background: #f0f0f0;
			}
			tr.calculated {
				font-style: italic;
			}
			tr.calculated td {
				border-top: 1px solid #000;
				border-left: 1px solid #ccc;
				background: #fefefe;
			}
			tr.total {
				font-weight: bold
			}
			tr.total td {
				border-top: 1px solid #000;
				background: #dfdfdf;
			}

		</style>
	</head>
	<body>
"}

#define POS_TAX_RATE 0.10 // 10%

#define POS_SCREEN_LOGIN    0
#define POS_SCREEN_ORDER    1
#define POS_SCREEN_FINALIZE 2
#define POS_SCREEN_PRODUCTS 3
#define POS_SCREEN_IMPORT   4
#define POS_SCREEN_EXPORT   5
#define POS_SCREEN_SETTINGS 6
/obj/machinery/pos
	icon = 'icons/obj/machines/pos.dmi'
	icon_state = "pos"
	density = 0
	name = "point of sale"
	desc = "Also known as a cash register, or, more commonly, \"robbery magnet\"."
	pass_flags = PASSTABLE

	var/id = 0
	var/sales = 0
	var/department
	var/mob/logged_in

	var/credits_held = 0
	var/credits_needed = 0

	var/list/products = list() // name = /line_item
	var/list/line_items = list() // # = /line_item

	var/screen=POS_SCREEN_LOGIN

	machine_flags = PURCHASER

/obj/machinery/pos/New()
	..()
	id = current_pos_id++
	if(ticker)
		initialize()
	update_icon()

/obj/machinery/pos/initialize()
	..()
	if(department)
		linked_account = department_accounts[department]
	else
		linked_account = station_account

/obj/machinery/pos/proc/dispense_change(var/amount = 0)
	if(!amount)
		amount = credits_held
		credits_held = 0
	if(amount > 0)
		var/obj/item/weapon/storage/box/B = new(loc)
		dispense_cash(amount,B)
		B.name="change"
		B.desc="A box of change."

/obj/machinery/pos/proc/AddToOrder(var/name, var/units)
	if(!(name in products))
		return 0
	var/line_item/LI = products[name]
	var/line_item/LIC = new
	LIC.name=LI.name
	LIC.price=LI.price
	LIC.units=units
	line_items.Add(LIC)

/obj/machinery/pos/proc/RemoveFromOrder(var/order_id)
	line_items.Cut(order_id,order_id+1)

/obj/machinery/pos/proc/NewOrder()
	line_items.len = 0

/obj/machinery/pos/proc/PrintReceipt(var/order_id)
	if(!linked_account)
		// Should not happen, but it happens.
		linked_account = station_account
	var/receipt = {"[RECEIPT_HEADER]<div>POINT OF SALE #[id]<br />
			Paying to: [linked_account.owner_name]<br />
			Cashier: [logged_in]<br />"}
	var/area/this_area = get_area(src)
	receipt += this_area.name
	receipt += "</div>"
	receipt += {"<br />
		<div>[worldtime2text()], [current_date_string]</div>
		<table>
			<tr class=\"first\">
				<th class=\"first\">Item</th>
				<th>Amount</th>
				<th>Unit Price</th>
				<th>Line Total</th>
			</tr>"}
	var/subtotal=0
	if(line_items.len>0)
		for(var/i=1;i<=line_items.len;i++)
			var/line_item/LI = line_items[i]
			var/linetotal=LI.units*LI.price
			receipt += "<tr class=\"[(i%2)?"even":"odd"]\"><th>[LI.name]</th><td>[LI.units]</td><td>$[num2septext(LI.price)]</td><td>$[num2septext(linetotal)]</td></tr>"
			subtotal += linetotal
		subtotal = to_valid_subtotal(subtotal)
	var/taxes = round_to_lowest_denomination(POS_TAX_RATE*subtotal)
	receipt += {"
		<tr class="calculated">
			<th colspan="3">SUBTOTAL</th><td>$[num2septext(subtotal)]</td>
		</tr>
		<tr>
			<th colspan="3">TAXES</th><td>$[num2septext(taxes)]</td>
		</tr>"}
	receipt += {"
		<tr class="calculated total">
			<th colspan="3">TOTAL</th><td>$[num2septext(taxes+subtotal)]</th>
		</tr>"}
	receipt += "</table></body></html>"

	var/obj/item/weapon/paper/P = new(loc)
	P.name="Receipt #[id]-[++sales]"
	P.info=receipt

	P = new(loc)
	P.name="Receipt #[id]-[sales] (Cashier Copy)"
	P.info=receipt


/obj/machinery/pos/proc/LoginScreen()
	return "<center><b>Please swipe ID to log in.</b></center>"

/obj/machinery/pos/proc/OrderScreen()
	if(!linked_account)
		// Should not happen, but it happens.
		linked_account = station_account
	var/receipt = {"<fieldset>
		<legend>POS Info</legend>
			POINT OF SALE #[id]<br />
			Paying to: [linked_account.owner_name]<br />
			Cashier: [logged_in]<br />"}
	var/area/this_area = get_area(src)
	receipt += this_area.name
	receipt += "</fieldset>"
	receipt += {"<fieldset><legend>Order Data</legend>
		<form action="?src=\ref[src]" method="get">
		<input type="hidden" name="src" value="\ref[src]" />
		<table>
			<tr class=\"first\">
				<th class=\"first\">Item</th>
				<th>Amount</th>
				<th>Unit Price</th>
				<th>Line Total</th>
				<th>...</th>
			</tr>"}
	var/subtotal=0
	if(line_items.len>0)
		for(var/i=1;i<=line_items.len;i++)
			var/line_item/LI = line_items[i]
			var/linetotal=LI.units*LI.price
			receipt += {"<tr class=\"[(i%2)?"even":"odd"]\">
				<th>[LI.name]</th>
				<td><a href="?src=\ref[src];setunits=[i]">[LI.units]</a></td>
				<td>$[num2septext(LI.price)]</td>
				<td>$[num2septext(linetotal)]</td>
				<td><a href="?src=\ref[src];removefromorder=[i]" style="color:red;">&times;</a></td>
			</tr>"}
			subtotal += linetotal
		subtotal = to_valid_subtotal(subtotal)
	var/taxes = round_to_lowest_denomination(POS_TAX_RATE*subtotal)
	var/presets = "<i>(No presets available)</i>"
	if(products.len>0)
		presets = {"<select name="preset">""}
		for(var/pid in products)
			var/line_item/product = products[pid]
			presets += {"<option value="[pid]">[product.name]</option>"}
		presets += "</select>"
	receipt += {"
		<tr>
			<td class="first">[presets]</td>
			<td><input type="textbox" name="units" value="1.0" /> units</td>
			<td colspan="2"><input type="submit" name="act" value="Add to Order" /></td>
		</tr>
		<tr class="calculated">
			<th colspan="3">SUBTOTAL</th><td>$[num2septext(subtotal)]</td>
		</tr>
		<tr>
			<th colspan="3">TAXES</th><td>$[num2septext(taxes)]</td>
		</tr>"}
	receipt += {"
		<tr class="calculated total">
			<th colspan="3">TOTAL</th><td>$[num2septext(taxes+subtotal)]</th>
		</tr>"}
	receipt += {"</table>
		<input type="submit" name="act" value="Finalize Sale" />
		<input type="submit" name="act" value="Reset" />
		</form>
	</fieldset>"}
	return receipt

/obj/machinery/pos/proc/ProductsScreen()
	var/dat={"<fieldset><legend>Product List</legend>
		<form action="?src=\ref[src]" method="get">
		<input type="hidden" name="src" value="\ref[src]" />
		<table>
			<tr class=\"first\">
				<th class=\"first\">Item</th>
				<th>Unit Price</th>
				<th># Sold</th>
				<th>...</th>
			</tr>"}
	for(var/i in products)
		var/line_item/LI = products[i]
		var/pid = text2num(i)
		dat += {"<tr class="[(pid%2)?"even":"odd"]">
			<th><a href="?src=\ref[src];setpname=[i]">[LI.name]</a></th>
			<td><a href="?src=\ref[src];setprice=[i]">$[num2septext(LI.price)]</a></td>
			<td>[LI.units]</td>
			<td><a href="?src=\ref[src];rmproduct=[i]" style="color:red;">&times;</a></td>
		</tr>"}
	dat += {"</table>
		<b>New Product:</b><br />
		<label for="name">Name:</label> <input type="textbox" name="name" value=""/><br />
		<label for="name">Price:</label> $<input type="textbox" name="price" value="0.00" /><br />
		<input type="submit" name="act" value="Add Product" /><br />
		<a href="?src=\ref[src];screen=[POS_SCREEN_IMPORT]">Import</a> | <a href="?src=\ref[src];screen=[POS_SCREEN_EXPORT]">Export</a>
		</form>
		</fieldset>"}
	return dat

/obj/machinery/pos/proc/ExportScreen()
	var/dat={"<fieldset><legend>Export Products as CSV</legend>
		<textarea>"}
	for(var/i in products)
		var/line_item/LI = products[i]
		dat += "[LI.name],[LI.price]\n"
	dat += {"</textarea>
		<a href="?src=\ref[src];screen=[POS_SCREEN_PRODUCTS]">OK</a>
		</fieldset>"}
	return dat

/obj/machinery/pos/proc/ImportScreen()
	var/dat={"<fieldset>
		<legend>Import Products as CSV</legend>
		<form action="?src=\ref[src]" method="get">
			<input type="hidden" name="src" value="\ref[src]" />
			<textarea name="csv"></textarea>
			<p>Data must be in the form of a CSV, with no headers or quotation marks.</p>
			<p>First column must be product names, second must be prices as an unformatted number (####.##)</p>
			<p>Deviations from this format will result in your import being rejected.</p>
			<input type="submit" name="act" value="Add Products" />
		</form>
		</fieldset>"}
	return dat

/obj/machinery/pos/proc/FinalizeScreen()
	return "<center><b>Waiting for Credit</b><br /><a href=\"?src=\ref[src];act=Reset\">Cancel</a></center>"

/obj/machinery/pos/proc/SettingsScreen()
	if(!linked_account)
		// Should not happen, but it happens.
		linked_account = station_account
	var/dat={"<form action="?src=\ref[src]" method="get">
		<input type="hidden" name="src" value="\ref[src]" />
		<fieldset>
			<legend>Account Settings</legend>
			<div>
				<b>Name of Account:</b> [linked_account.owner_name]
			</div>
			<div>
				<b>Payable Account:</b> <input type="textbox" name="payableto" value="[linked_account.account_number]" />
			</div>
		</fieldset>
		<fieldset>
			<legend>Locality Settings</legend>
			<div>
				<b>Tax Rate:</b> <input type="textbox" name="taxes" value="[POS_TAX_RATE*100]" disabled="disabled" />% (LOCKED)
			</div>
		</fieldset>
		<fieldset>
			<legend>Denomination Settings</legend>
			<div>
				<b>Lowest Denomination:</b> $<input type="textbox" name="lowestdenomination" value="[LOWEST_DENOMINATION]" disabled="disabled" /> (LOCKED)<br />
				<i>Subtotals and Taxes are rounded to the nearest, lowest denomination</i>
			</div>
		</fieldset>
		<input type="submit" name="act" value="Save Settings" />
		</form>"}
	return dat

/obj/machinery/pos/update_icon()
	overlays = 0
	if(stat & (NOPOWER|BROKEN|FORCEDISABLE))
		return
	if(logged_in)
		overlays += image(icon = icon, icon_state = "pos-working")
	else
		overlays += image(icon = icon, icon_state = "pos-standby")

/obj/machinery/pos/attack_robot(var/mob/user)
	if(isMoMMI(user))
		return attack_hand(user)
	return ..()

/obj/machinery/pos/attack_hand(var/mob/user)
	user.set_machine(src)
	var/logindata=""
	if(logged_in)
		logindata={"<a href="?src=\ref[src];logout=1">[logged_in.name]</a> |"}
	var/dat = POS_HEADER + {"
	<div class="navbar">
		[worldtime2text()], [current_date_string]<br />
		[logindata]
		<a href="?src=\ref[src];screen=[POS_SCREEN_ORDER]">Order</a> |
		<a href="?src=\ref[src];screen=[POS_SCREEN_PRODUCTS]">Products</a> |
		<a href="?src=\ref[src];screen=[POS_SCREEN_SETTINGS]">Settings</a>
	</div>"}
	switch(screen)
		if(POS_SCREEN_LOGIN)
			dat += LoginScreen()
		if(POS_SCREEN_ORDER)
			dat += OrderScreen()
		if(POS_SCREEN_FINALIZE)
			dat += FinalizeScreen()
		if(POS_SCREEN_PRODUCTS)
			dat += ProductsScreen()
		if(POS_SCREEN_EXPORT)
			dat += ExportScreen()
		if(POS_SCREEN_IMPORT)
			dat += ImportScreen()
		if(POS_SCREEN_SETTINGS)
			dat += SettingsScreen()

	dat += "</body></html>"
	user << browse(HTML_SKELETON(dat), "window=pos")
	onclose(user, "pos")
	return

/obj/machinery/pos/scan_card(var/obj/item/weapon/card/C)
	var/remaining_credits_needed = credits_needed - credits_held
	var/area/this_area = get_area(src)
	var/pos_name = "[this_area.name] POS#[id]"
	var/charge_response = charge_flow(linked_db, C, usr, remaining_credits_needed, linked_account, "POS Purchase", pos_name, id)
	switch(charge_response)
		if(CARD_CAPTURE_SUCCESS)
			visible_message("<span class='notice'>The machine beeps, and begins printing a receipt</span>","You hear a beep and the sound of paper being shredded.")
			PrintReceipt()
			NewOrder()
			if(credits_held)
				linked_account.charge(-credits_held, null, "Cash Deposit", pos_name, id, linked_account.owner_name)
				credits_held=0
			credits_needed=0
			screen=POS_SCREEN_ORDER
			updateUsrDialog()
			return
		if(CARD_CAPTURE_FAILURE_NOT_ENOUGH_FUNDS)
			visible_message("<span class='warning'>The machine buzzes, and flashes \"NOT ENOUGH FUNDS\" on the screen.</span>","You hear a buzz.")
		if(CARD_CAPTURE_ACCOUNT_DISABLED)
			visible_message("<span class='warning'>The machine buzzes, and flashes \"ACCOUNT DISABLED\" on the screen.</span>","You hear a buzz.")
		if(CARD_CAPTURE_ACCOUNT_DISABLED_MERCHANT)
			visible_message("<span class='warning'>The machine buzzes, and flashes \"MERCHANT ACCOUNT DISABLED\" on the screen.</span>","You hear a buzz.")
		if(CARD_CAPTURE_FAILURE_BAD_ACCOUNT_PIN_COMBO)
			visible_message("<span class='warning'>The machine buzzes, and flashes \"BAD ACCOUNT/PIN COMBO\" on the screen.</span>","You hear a buzz.")
		if(CARD_CAPTURE_FAILURE_SECURITY_LEVEL)
			visible_message("<span class='warning'>The machine buzzes, and flashes \"SECURITY EXCEPTION\" on the screen.</span>","You hear a buzz.")
		if(CARD_CAPTURE_FAILURE_USER_CANCELED)
			visible_message("<span class='warning'>The machine buzzes, and flashes \"ORDER CANCELED\" on the screen.</span>","You hear a buzz.")
		if(CARD_CAPTURE_FAILURE_NO_DESTINATION)
			visible_message("<span class='warning'>The machine buzzes, and flashes \"NO LINKED ACCOUNT\" on the screen.</span>","You hear a buzz.")
		if(CARD_CAPTURE_FAILURE_NO_CONNECTION)
			visible_message("<span class='warning'>The machine buzzes, and flashes \"DATABASE UNAVAILABLE\" on the screen.</span>","You hear a buzz.")
		else
			visible_message("<span class='warning'>The machine buzzes, and flashes \"CARD CAPTURE ERROR\" on the screen.</span>","You hear a buzz.")
	flick(src,"pos-error")


/obj/machinery/pos/Topic(var/href, var/list/href_list)
	if(..(href,href_list))
		return
	if("logout" in href_list)
		if(alert(usr, "You sure you want to log out?", "Confirm", "Yes", "No")!="Yes")
			return
		logged_in=null
		screen=POS_SCREEN_LOGIN
		update_icon()
		src.attack_hand(usr)
		return
	if(usr != logged_in)
		if(logged_in)
			to_chat(usr, "<span class='warning'>[logged_in.name] is already logged in.  You cannot use this machine until they log out.</span>")
		return
	if("act" in href_list)
		switch(href_list["act"])
			if("Reset")
				if(credits_held > 0){
					visible_message("<span class='notice'>The machine buzzes.</span>","<span class='warning'>You hear a buzz.</span>")
					dispense_change()
				}
				NewOrder()
				screen=POS_SCREEN_ORDER
			if("Finalize Sale")
				var/subtotal=0
				if(line_items.len>0)
					for(var/i=1;i<=line_items.len;i++)
						var/line_item/LI = line_items[i]
						subtotal += LI.units*LI.price
					subtotal = to_valid_subtotal(subtotal)
				var/taxes = round_to_lowest_denomination(POS_TAX_RATE*subtotal)
				credits_needed=taxes+subtotal
				say("Your total is $[num2septext(credits_needed)].  Please insert credit chips or swipe your ID.")
				screen=POS_SCREEN_FINALIZE
			if("Add Product")
				var/line_item/LI = new
				LI.name=sanitize(href_list["name"])
				LI.price=to_valid_product_price(text2num(href_list["price"]))
				products["[products.len+1]"]=LI
			if("Add to Order")
				AddToOrder(href_list["preset"],text2num(href_list["units"]))
			if("Add Products")
				for(var/line in splittext(href_list["csv"],"\n"))
					var/list/cells = splittext(line,",")
					if(cells.len<2)
						to_chat(usr, "<span class='warning'>The CSV must have at least two columns: Product Name, followed by Price (as a number).</span>")
						src.attack_hand(usr)
						return
					var/line_item/LI = new
					LI.name=sanitize(cells[1])
					LI.price=to_valid_product_price(text2num(cells[2]))
					products["[products.len+1]"]=LI
			if("Export Products")
				screen=POS_SCREEN_EXPORT
			if("Import Products")
				screen=POS_SCREEN_IMPORT
			if("Save Settings")
				var/datum/money_account/new_linked_account = get_money_account(text2num(href_list["payableto"]),z)
				if(!new_linked_account)
					to_chat(usr, "<span class='warning'>Unable to link new account.</span>")
				else
					linked_account = new_linked_account
				screen=POS_SCREEN_SETTINGS
	else if("screen" in href_list)
		screen=text2num(href_list["screen"])
	else if("rmproduct" in href_list)
		products.Remove(href_list["rmproduct"])
	else if("removefromorder" in href_list)
		RemoveFromOrder(text2num(href_list["removefromorder"]))
	else if("setunits" in href_list)
		var/lid = text2num(href_list["setunits"])
		var/newunits = input(usr,"Enter the units sold.") as num
		if(!newunits)
			return
		var/line_item/LI = line_items[lid]
		LI.units = newunits
		line_items[lid]=LI
	else if("setpname" in href_list)
		var/newtext = sanitize(input(usr,"Enter the product's name."))
		if(!newtext)
			return
		var/pid = href_list["setpname"]
		var/line_item/LI = products[pid]
		if(LI)
			LI.name = newtext
			products[pid]=LI
	else if("setprice" in href_list)
		var/newprice = input(usr,"Enter the product's price.") as num
		if(newprice<=0)
			return
		var/pid = href_list["setprice"]
		var/line_item/LI = products[pid]
		LI.price = newprice
		products[pid]=LI
	src.attack_hand(usr)

/obj/machinery/pos/attackby(var/atom/movable/A, var/mob/user)
	if(istype(A,/obj/item/weapon/card))
		var/obj/item/weapon/card/id/C = A
		if(istype(C,/obj/item/weapon/card/id) && !logged_in)
			// /atom/mob/visible_message(all_message, self_message, blind_message,...)
			user.visible_message("<span class='notice'>The machine beeps, and logs [user] in.</span>", "<span class='notice'>The machine beeps, and logs you in.</span>", "You hear a beep.")
			logged_in = user
			screen=POS_SCREEN_ORDER
			update_icon()
			src.attack_hand(user) //why'd you use usr nexis, why
			return
		else
			if(screen!=POS_SCREEN_FINALIZE)
				visible_message("<span class='notice'>The machine buzzes.</span>","<span class='warning'>You hear a buzz.</span>")
				flick(src,"pos-error")
				return
			connect_account(user, C)
	else if(istype(A,/obj/item/weapon/spacecash))
		if(!linked_account)
			visible_message("<span class='warning'>The machine buzzes, and flashes \"NO LINKED ACCOUNT\" on the screen.</span>","You hear a buzz.")
			flick(src,"pos-error")
			return
		if(!logged_in || screen!=POS_SCREEN_FINALIZE)
			visible_message("<span class='notice'>The machine buzzes.</span>","<span class='warning'>You hear a buzz.</span>")
			flick(src,"pos-error")
			return
		var/obj/item/weapon/spacecash/C=A
		credits_held += C.get_total()
		qdel(C)
		if(credits_held >= credits_needed)
			visible_message("<span class='notice'>The machine beeps, and begins printing a receipt</span>","You hear a beep and the sound of paper being shredded.")
			PrintReceipt()
			NewOrder()
			linked_account.charge(-credits_needed, null, "Purchase at POS #[id].", dest_name = linked_account.owner_name)
			credits_held -= credits_needed
			credits_needed=0
			screen=POS_SCREEN_ORDER
			dispense_change()
		else
			say("Your total is now $[num2septext(credits_needed-credits_held)].  Please insert more credit chips or swipe your ID.")
	..()

#undef to_valid_product_price
#undef to_valid_subtotal