|
|
|
@@ -1,6 +1,6 @@
|
|
|
|
|
|
|
|
|
|
/obj/machinery/account_database
|
|
|
|
|
name = "Accounts uplink console"
|
|
|
|
|
name = "Accounts uplink terminal"
|
|
|
|
|
desc = "Access transaction logs, account data and all kinds of other financial records."
|
|
|
|
|
icon = 'icons/obj/computer.dmi'
|
|
|
|
|
icon_state = "aiupload"
|
|
|
|
@@ -9,115 +9,134 @@
|
|
|
|
|
var/receipt_num
|
|
|
|
|
var/machine_id = ""
|
|
|
|
|
var/obj/item/weapon/card/id/held_card
|
|
|
|
|
var/access_level = 0
|
|
|
|
|
var/datum/money_account/detailed_account_view
|
|
|
|
|
var/creating_new_account = 0
|
|
|
|
|
|
|
|
|
|
proc/get_access_level()
|
|
|
|
|
if (!held_card)
|
|
|
|
|
return 0
|
|
|
|
|
if(access_cent_captain in held_card.access)
|
|
|
|
|
return 2
|
|
|
|
|
else if(access_hop in held_card.access || access_captain in held_card.access)
|
|
|
|
|
return 1
|
|
|
|
|
|
|
|
|
|
proc/create_transation(target, reason, amount)
|
|
|
|
|
var/datum/transaction/T = new()
|
|
|
|
|
T.target_name = target
|
|
|
|
|
T.purpose = reason
|
|
|
|
|
T.amount = amount
|
|
|
|
|
T.date = current_date_string
|
|
|
|
|
T.time = worldtime2text()
|
|
|
|
|
T.source_terminal = machine_id
|
|
|
|
|
return T
|
|
|
|
|
|
|
|
|
|
proc/accounting_letterhead(report_name)
|
|
|
|
|
return {"
|
|
|
|
|
<center><h1><b>[report_name]</b></h1></center>
|
|
|
|
|
<center><small><i>[station_name()] Accounting Report</i></small></center>
|
|
|
|
|
<hr>
|
|
|
|
|
<u>Generated By:</u> [held_card.registered_name], [held_card.assignment]<br>
|
|
|
|
|
"}
|
|
|
|
|
|
|
|
|
|
/obj/machinery/account_database/New()
|
|
|
|
|
..()
|
|
|
|
|
machine_id = "[station_name()] Acc. DB #[num_financial_terminals++]"
|
|
|
|
|
..()
|
|
|
|
|
|
|
|
|
|
/obj/machinery/account_database/attackby(obj/O, mob/user)
|
|
|
|
|
if(!istype(O, /obj/item/weapon/card/id))
|
|
|
|
|
return ..()
|
|
|
|
|
|
|
|
|
|
if(!held_card)
|
|
|
|
|
user.drop_item()
|
|
|
|
|
O.loc = src
|
|
|
|
|
held_card = O
|
|
|
|
|
|
|
|
|
|
nanomanager.update_uis(src)
|
|
|
|
|
|
|
|
|
|
attack_hand(user)
|
|
|
|
|
|
|
|
|
|
/obj/machinery/account_database/attack_hand(mob/user as mob)
|
|
|
|
|
if(get_dist(src,user) <= 1)
|
|
|
|
|
var/dat = "<b>Accounts Database</b><br>"
|
|
|
|
|
dat += "<i>[machine_id]</i><br>"
|
|
|
|
|
dat += "Confirm identity: <a href='?src=\ref[src];choice=insert_card'>[held_card ? held_card : "-----"]</a><br>"
|
|
|
|
|
if(stat & (NOPOWER|BROKEN)) return
|
|
|
|
|
ui_interact(user)
|
|
|
|
|
|
|
|
|
|
if(access_level > 0)
|
|
|
|
|
dat += "You may not edit accounts at this terminal, only create and view them.<br>"
|
|
|
|
|
if(creating_new_account)
|
|
|
|
|
dat += "<br>"
|
|
|
|
|
dat += "<a href='?src=\ref[src];choice=view_accounts_list;'>Return to accounts list</a>"
|
|
|
|
|
dat += "<form name='create_account' action='?src=\ref[src]' method='get'>"
|
|
|
|
|
dat += "<input type='hidden' name='src' value='\ref[src]'>"
|
|
|
|
|
dat += "<input type='hidden' name='choice' value='finalise_create_account'>"
|
|
|
|
|
dat += "<b>Holder name:</b> <input type='text' id='holder_name' name='holder_name' style='width:250px; background-color:white;'><br>"
|
|
|
|
|
dat += "<b>Initial funds:</b> <input type='text' id='starting_funds' name='starting_funds' style='width:250px; background-color:white;'> (subtracted from station account)<br>"
|
|
|
|
|
dat += "<i>New accounts are automatically assigned a secret number and pin, which are printed separately in a sealed package.</i><br>"
|
|
|
|
|
dat += "<input type='submit' value='Create'><br>"
|
|
|
|
|
dat += "</form>"
|
|
|
|
|
else
|
|
|
|
|
if(detailed_account_view)
|
|
|
|
|
dat += "<br>"
|
|
|
|
|
dat += "<a href='?src=\ref[src];choice=view_accounts_list;'>Return to accounts list</a><hr>"
|
|
|
|
|
dat += "<b>Account number:</b> #[detailed_account_view.account_number]<br>"
|
|
|
|
|
dat += "<b>Account holder:</b> [detailed_account_view.owner_name]<br>"
|
|
|
|
|
dat += "<b>Account balance:</b> $[detailed_account_view.money]<br>"
|
|
|
|
|
if(access_level > 1)
|
|
|
|
|
dat += "<b><a href='?src=\ref[src];choice=add_funds'>Silently add funds (no transaction log)</a><br>"
|
|
|
|
|
dat += "<b><a href='?src=\ref[src];choice=remove_funds'>Silently remove funds (no transaction log)</a><br>"
|
|
|
|
|
dat += "<b><a href='?src=\ref[src];choice=toggle_suspension'>[detailed_account_view.suspended ? "Unsuspend account" : "Suspend account"]</a><br>"
|
|
|
|
|
dat += "<table border=1 style='width:100%'>"
|
|
|
|
|
dat += "<tr>"
|
|
|
|
|
dat += "<td><b>Date</b></td>"
|
|
|
|
|
dat += "<td><b>Time</b></td>"
|
|
|
|
|
dat += "<td><b>Target</b></td>"
|
|
|
|
|
dat += "<td><b>Purpose</b></td>"
|
|
|
|
|
dat += "<td><b>Value</b></td>"
|
|
|
|
|
dat += "<td><b>Source terminal ID</b></td>"
|
|
|
|
|
dat += "</tr>"
|
|
|
|
|
for(var/datum/transaction/T in detailed_account_view.transaction_log)
|
|
|
|
|
dat += "<tr>"
|
|
|
|
|
dat += "<td>[T.date]</td>"
|
|
|
|
|
dat += "<td>[T.time]</td>"
|
|
|
|
|
dat += "<td>[T.target_name]</td>"
|
|
|
|
|
dat += "<td>[T.purpose]</td>"
|
|
|
|
|
dat += "<td>$[T.amount]</td>"
|
|
|
|
|
dat += "<td>[T.source_terminal]</td>"
|
|
|
|
|
dat += "</tr>"
|
|
|
|
|
dat += "</table>"
|
|
|
|
|
else
|
|
|
|
|
dat += "<a href='?src=\ref[src];choice=create_account;'>Create new account</a><br><br>"
|
|
|
|
|
dat += "<table border=1 style='width:100%'>"
|
|
|
|
|
for(var/i=1, i<=all_money_accounts.len, i++)
|
|
|
|
|
var/datum/money_account/D = all_money_accounts[i]
|
|
|
|
|
dat += "<tr>"
|
|
|
|
|
dat += "<td>#[D.account_number]</td>"
|
|
|
|
|
dat += "<td>[D.owner_name]</td>"
|
|
|
|
|
dat += "<td>[D.suspended ? "SUSPENDED" : ""]</td>"
|
|
|
|
|
dat += "<td><a href='?src=\ref[src];choice=view_account_detail;account_index=[i]'>View in detail</a></td>"
|
|
|
|
|
dat += "</tr>"
|
|
|
|
|
dat += "</table>"
|
|
|
|
|
/obj/machinery/account_database/ui_interact(mob/user, ui_key="main", var/datum/nanoui/ui = null, var/force_open = 1)
|
|
|
|
|
user.set_machine(src)
|
|
|
|
|
|
|
|
|
|
user << browse(dat,"window=account_db;size=700x650")
|
|
|
|
|
else
|
|
|
|
|
user << browse(null,"window=account_db")
|
|
|
|
|
var/data[0]
|
|
|
|
|
data["src"] = "\ref[src]"
|
|
|
|
|
data["id_inserted"] = !!held_card
|
|
|
|
|
data["id_card"] = held_card ? text("[held_card.registered_name], [held_card.assignment]") : "-----"
|
|
|
|
|
data["access_level"] = get_access_level()
|
|
|
|
|
data["machine_id"] = machine_id
|
|
|
|
|
data["creating_new_account"] = creating_new_account
|
|
|
|
|
data["detailed_account_view"] = !!detailed_account_view
|
|
|
|
|
data["station_account_number"] = station_account.account_number
|
|
|
|
|
data["transactions"] = null
|
|
|
|
|
data["accounts"] = null
|
|
|
|
|
|
|
|
|
|
/obj/machinery/account_database/attackby(O as obj, user as mob)//TODO:SANITY
|
|
|
|
|
if(istype(O, /obj/item/weapon/card))
|
|
|
|
|
var/obj/item/weapon/card/id/idcard = O
|
|
|
|
|
if(!held_card)
|
|
|
|
|
usr.drop_item()
|
|
|
|
|
idcard.loc = src
|
|
|
|
|
held_card = idcard
|
|
|
|
|
if (detailed_account_view)
|
|
|
|
|
data["account_number"] = detailed_account_view.account_number
|
|
|
|
|
data["owner_name"] = detailed_account_view.owner_name
|
|
|
|
|
data["money"] = detailed_account_view.money
|
|
|
|
|
data["suspended"] = detailed_account_view.suspended
|
|
|
|
|
|
|
|
|
|
if(access_cent_captain in idcard.access)
|
|
|
|
|
access_level = 2
|
|
|
|
|
else if(access_hop in idcard.access || access_captain in idcard.access)
|
|
|
|
|
access_level = 1
|
|
|
|
|
else
|
|
|
|
|
..()
|
|
|
|
|
var/list/trx[0]
|
|
|
|
|
for (var/datum/transaction/T in detailed_account_view.transaction_log)
|
|
|
|
|
trx.Add(list(list(\
|
|
|
|
|
"date" = T.date, \
|
|
|
|
|
"time" = T.time, \
|
|
|
|
|
"target_name" = T.target_name, \
|
|
|
|
|
"purpose" = T.purpose, \
|
|
|
|
|
"amount" = T.amount, \
|
|
|
|
|
"source_terminal" = T.source_terminal)))
|
|
|
|
|
|
|
|
|
|
/obj/machinery/account_database/Topic(var/href, var/href_list)
|
|
|
|
|
if (trx.len > 0)
|
|
|
|
|
data["transactions"] = trx
|
|
|
|
|
|
|
|
|
|
var/list/accounts[0]
|
|
|
|
|
for(var/i=1, i<=all_money_accounts.len, i++)
|
|
|
|
|
var/datum/money_account/D = all_money_accounts[i]
|
|
|
|
|
accounts.Add(list(list(\
|
|
|
|
|
"account_number"=D.account_number,\
|
|
|
|
|
"owner_name"=D.owner_name,\
|
|
|
|
|
"suspended"=D.suspended ? "SUSPENDED" : "",\
|
|
|
|
|
"account_index"=i)))
|
|
|
|
|
|
|
|
|
|
if (accounts.len > 0)
|
|
|
|
|
data["accounts"] = accounts
|
|
|
|
|
|
|
|
|
|
ui = nanomanager.try_update_ui(user, src, ui_key, ui, data, force_open)
|
|
|
|
|
if (!ui)
|
|
|
|
|
ui = new(user, src, ui_key, "accounts_terminal.tmpl", src.name, 400, 640)
|
|
|
|
|
ui.set_initial_data(data)
|
|
|
|
|
ui.open()
|
|
|
|
|
|
|
|
|
|
/obj/machinery/account_database/Topic(href, href_list)
|
|
|
|
|
if(..())
|
|
|
|
|
return 1
|
|
|
|
|
|
|
|
|
|
var/datum/nanoui/ui = nanomanager.get_open_ui(usr, src, "main")
|
|
|
|
|
|
|
|
|
|
if(href_list["choice"])
|
|
|
|
|
switch(href_list["choice"])
|
|
|
|
|
if("create_account")
|
|
|
|
|
creating_new_account = 1
|
|
|
|
|
|
|
|
|
|
if("add_funds")
|
|
|
|
|
var/amount = input("Enter the amount you wish to add", "Silently add funds") as num
|
|
|
|
|
if(detailed_account_view)
|
|
|
|
|
detailed_account_view.money += amount
|
|
|
|
|
|
|
|
|
|
if("remove_funds")
|
|
|
|
|
var/amount = input("Enter the amount you wish to remove", "Silently remove funds") as num
|
|
|
|
|
if(detailed_account_view)
|
|
|
|
|
detailed_account_view.money -= amount
|
|
|
|
|
|
|
|
|
|
if("toggle_suspension")
|
|
|
|
|
if(detailed_account_view)
|
|
|
|
|
if(detailed_account_view.suspended)
|
|
|
|
|
detailed_account_view.suspended = 0
|
|
|
|
|
else
|
|
|
|
|
detailed_account_view.suspended = 1
|
|
|
|
|
detailed_account_view.suspended = !detailed_account_view.suspended
|
|
|
|
|
callHook("change_account_status", list(detailed_account_view))
|
|
|
|
|
|
|
|
|
|
if("finalise_create_account")
|
|
|
|
|
var/account_name = href_list["holder_name"]
|
|
|
|
|
var/starting_funds = max(text2num(href_list["starting_funds"]), 0)
|
|
|
|
@@ -127,14 +146,11 @@
|
|
|
|
|
station_account.money -= starting_funds
|
|
|
|
|
|
|
|
|
|
//create a transaction log entry
|
|
|
|
|
var/datum/transaction/T = new()
|
|
|
|
|
T.target_name = account_name
|
|
|
|
|
T.purpose = "New account funds initialisation"
|
|
|
|
|
T.amount = "([starting_funds])"
|
|
|
|
|
T.date = current_date_string
|
|
|
|
|
T.time = worldtime2text()
|
|
|
|
|
T.source_terminal = machine_id
|
|
|
|
|
station_account.transaction_log.Add(T)
|
|
|
|
|
var/trx = create_transation(account_name, "New account activation", "([starting_funds])")
|
|
|
|
|
station_account.transaction_log.Add(trx)
|
|
|
|
|
|
|
|
|
|
creating_new_account = 0
|
|
|
|
|
ui.close()
|
|
|
|
|
|
|
|
|
|
creating_new_account = 0
|
|
|
|
|
if("insert_card")
|
|
|
|
@@ -144,7 +160,6 @@
|
|
|
|
|
if(ishuman(usr) && !usr.get_active_hand())
|
|
|
|
|
usr.put_in_hands(held_card)
|
|
|
|
|
held_card = null
|
|
|
|
|
access_level = 0
|
|
|
|
|
|
|
|
|
|
else
|
|
|
|
|
var/obj/item/I = usr.get_active_hand()
|
|
|
|
@@ -154,16 +169,103 @@
|
|
|
|
|
C.loc = src
|
|
|
|
|
held_card = C
|
|
|
|
|
|
|
|
|
|
if(access_cent_captain in C.access)
|
|
|
|
|
access_level = 2
|
|
|
|
|
else if(access_hop in C.access || access_captain in C.access)
|
|
|
|
|
access_level = 1
|
|
|
|
|
if("view_account_detail")
|
|
|
|
|
var/index = text2num(href_list["account_index"])
|
|
|
|
|
if(index && index <= all_money_accounts.len)
|
|
|
|
|
detailed_account_view = all_money_accounts[index]
|
|
|
|
|
|
|
|
|
|
if("view_accounts_list")
|
|
|
|
|
detailed_account_view = null
|
|
|
|
|
creating_new_account = 0
|
|
|
|
|
|
|
|
|
|
src.attack_hand(usr)
|
|
|
|
|
if("revoke_payroll")
|
|
|
|
|
var/funds = detailed_account_view.money
|
|
|
|
|
var/account_trx = create_transation(station_account.owner_name, "Revoke payroll", "([funds])")
|
|
|
|
|
var/station_trx = create_transation(detailed_account_view.owner_name, "Revoke payroll", funds)
|
|
|
|
|
|
|
|
|
|
station_account.money += funds
|
|
|
|
|
detailed_account_view.money = 0
|
|
|
|
|
|
|
|
|
|
detailed_account_view.transaction_log.Add(account_trx)
|
|
|
|
|
station_account.transaction_log.Add(station_trx)
|
|
|
|
|
|
|
|
|
|
callHook("revoke_payroll", list(detailed_account_view))
|
|
|
|
|
|
|
|
|
|
if("print")
|
|
|
|
|
var/text
|
|
|
|
|
var/obj/item/weapon/paper/P = new(loc)
|
|
|
|
|
if (detailed_account_view)
|
|
|
|
|
P.name = "account #[detailed_account_view.account_number] details"
|
|
|
|
|
var/title = "Account #[detailed_account_view.account_number] Details"
|
|
|
|
|
text = {"
|
|
|
|
|
[accounting_letterhead(title)]
|
|
|
|
|
<u>Holder:</u> [detailed_account_view.owner_name]<br>
|
|
|
|
|
<u>Balance:</u> $[detailed_account_view.money]<br>
|
|
|
|
|
<u>Status:</u> [detailed_account_view.suspended ? "Suspended" : "Active"]<br>
|
|
|
|
|
<u>Transactions:</u> ([detailed_account_view.transaction_log.len])<br>
|
|
|
|
|
<table>
|
|
|
|
|
<thead>
|
|
|
|
|
<tr>
|
|
|
|
|
<td>Timestamp</td>
|
|
|
|
|
<td>Target</td>
|
|
|
|
|
<td>Reason</td>
|
|
|
|
|
<td>Value</td>
|
|
|
|
|
<td>Terminal</td>
|
|
|
|
|
</tr>
|
|
|
|
|
</thead>
|
|
|
|
|
<tbody>
|
|
|
|
|
"}
|
|
|
|
|
|
|
|
|
|
for (var/datum/transaction/T in detailed_account_view.transaction_log)
|
|
|
|
|
text += {"
|
|
|
|
|
<tr>
|
|
|
|
|
<td>[T.date] [T.time]</td>
|
|
|
|
|
<td>[T.target_name]</td>
|
|
|
|
|
<td>[T.purpose]</td>
|
|
|
|
|
<td>[T.amount]</td>
|
|
|
|
|
<td>[T.source_terminal]</td>
|
|
|
|
|
</tr>
|
|
|
|
|
"}
|
|
|
|
|
|
|
|
|
|
text += {"
|
|
|
|
|
</tbody>
|
|
|
|
|
</table>
|
|
|
|
|
"}
|
|
|
|
|
|
|
|
|
|
else
|
|
|
|
|
P.name = "financial account list"
|
|
|
|
|
text = {"
|
|
|
|
|
[accounting_letterhead("Financial Account List")]
|
|
|
|
|
|
|
|
|
|
<table>
|
|
|
|
|
<thead>
|
|
|
|
|
<tr>
|
|
|
|
|
<td>Account Number</td>
|
|
|
|
|
<td>Holder</td>
|
|
|
|
|
<td>Balance</td>
|
|
|
|
|
<td>Status</td>
|
|
|
|
|
</tr>
|
|
|
|
|
</thead>
|
|
|
|
|
<tbody>
|
|
|
|
|
"}
|
|
|
|
|
|
|
|
|
|
for(var/i=1, i<=all_money_accounts.len, i++)
|
|
|
|
|
var/datum/money_account/D = all_money_accounts[i]
|
|
|
|
|
text += {"
|
|
|
|
|
<tr>
|
|
|
|
|
<td>#[D.account_number]</td>
|
|
|
|
|
<td>[D.owner_name]</td>
|
|
|
|
|
<td>$[D.money]</td>
|
|
|
|
|
<td>[D.suspended ? "Suspended" : "Active"]</td>
|
|
|
|
|
</tr>
|
|
|
|
|
"}
|
|
|
|
|
|
|
|
|
|
text += {"
|
|
|
|
|
</tbody>
|
|
|
|
|
</table>
|
|
|
|
|
"}
|
|
|
|
|
|
|
|
|
|
P.info = text
|
|
|
|
|
state("The terminal prints out a report.")
|
|
|
|
|
|
|
|
|
|
return 1
|
|
|
|
|
suethecake