mirror of
https://github.com/vgstation-coders/vgstation13.git
synced 2025-12-10 18:32:03 +00:00
e7ef0eeb1d
* WAGES * Accounts DB shows wages. * wep * more work, need to fix link to panel doing nothing * Economy panel * Changelog * Fixes * whoops * no schedule * aaaa * changelogs pls
99 lines
4.8 KiB
Plaintext
99 lines
4.8 KiB
Plaintext
/datum/admins/proc/EconomyPanel(action, hrefs)
|
|
if(!check_rights(R_FUN)) return
|
|
|
|
var/dat= "<head><title>Economy Tools</title></head>"
|
|
var/datum/money_account/detailed_account_view
|
|
var/creating_new_account
|
|
|
|
if(hrefs["econ_panel"] != "open")
|
|
switch(hrefs["econ_panel"])
|
|
if("create_account")
|
|
creating_new_account = 1
|
|
if("finalise_create_account")
|
|
var/account_name = hrefs["holder_name"]
|
|
var/starting_funds = max(text2num(hrefs["starting_funds"]), 0)
|
|
create_account(account_name, starting_funds, src)
|
|
creating_new_account = 0
|
|
if("view_account_detail")
|
|
var/index = text2num(hrefs["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
|
|
if("edit_balance")
|
|
var/acc_num = text2num(hrefs["account_num"])
|
|
var/datum/money_account/acc = get_money_account_global(acc_num)
|
|
if(acc)
|
|
var/new_balance = input(usr, "Select a new balance for this account", "New balance", acc.money) as null|num
|
|
if(new_balance && new_balance >= 0)
|
|
acc.money = new_balance
|
|
detailed_account_view = acc
|
|
if("edit_wage_payout")
|
|
var/acc_num = text2num(hrefs["account_num"])
|
|
var/datum/money_account/acc = get_money_account_global(acc_num)
|
|
if(acc)
|
|
var/new_payout = input(usr, "Select a new payout for this account", "New payout", acc.wage_gain) as null|num
|
|
if(new_payout && new_payout >= 0)
|
|
acc.wage_gain = new_payout
|
|
detailed_account_view = acc
|
|
|
|
|
|
if(creating_new_account)
|
|
|
|
dat += {"
|
|
<a href='?src=\ref[src];econ_panel=view_accounts_list;'>Return to accounts list</a>
|
|
<form name='create_account' action='?src=\ref[src]' method='get'>
|
|
<input type='hidden' name='src' value='\ref[src]'>
|
|
<input type='hidden' name='choice' value='finalise_create_account'>
|
|
<b>Holder name:</b> <input type='text' id='holder_name' name='holder_name' style='width:250px; background-color:white;'><br>
|
|
<b>Initial funds:</b> <input type='text' id='starting_funds' name='starting_funds' style='width:250px; background-color:white;'><br>
|
|
<i>New accounts are automatically assigned a secret number and pin</i>
|
|
<input type='submit' value='Create'><br>
|
|
</form>"}
|
|
else
|
|
if(detailed_account_view)
|
|
|
|
dat += {"
|
|
<a href='?src=\ref[src];econ_panel=view_accounts_list;'>Return to accounts list</a><hr>
|
|
<b>Account number:</b> #[detailed_account_view.account_number]<br>
|
|
<b>Account holder:</b> [detailed_account_view.owner_name]<br>
|
|
<b>Account balance:</b> $[detailed_account_view.money] <a href='?src=\ref[src];econ_panel=edit_balance;account_num=[detailed_account_view.account_number]'>Edit</a><br>
|
|
<b>Assigned wage payout:</b> $[detailed_account_view.wage_gain] <a href='?src=\ref[src];econ_panel=edit_wage_payout;account_num=[detailed_account_view.account_number]'>Edit</a><br>
|
|
<table border=1 style='width:100%'>
|
|
<tr>
|
|
<td><b>Date</b></td>
|
|
<td><b>Time</b></td>
|
|
<td><b>Target</b></td>
|
|
<td><b>Purpose</b></td>
|
|
<td><b>Value</b></td>
|
|
<td><b>Source terminal ID</b></td>
|
|
</tr>"}
|
|
for(var/datum/transaction/T in detailed_account_view.transaction_log)
|
|
|
|
dat += {"<tr>
|
|
<td>[T.date]</td>
|
|
<td>[T.time]</td>
|
|
<td>[T.target_name]</td>
|
|
<td>[T.purpose]</td>
|
|
<td>$[T.amount]</td>
|
|
<td>[T.source_terminal]</td>
|
|
</tr>"}
|
|
dat += "</table>"
|
|
else
|
|
|
|
dat += {"<a href='?src=\ref[src];econ_panel=create_account;'>Create new account</a><br><br>
|
|
<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>
|
|
<td>#[D.account_number]</td>
|
|
<td>[D.owner_name]</td>
|
|
<td>$[D.money]</td>
|
|
<td><a href='?src=\ref[src];econ_panel=view_account_detail;account_index=[i]'>View in detail</a></td>
|
|
</tr>"}
|
|
dat += "</table>"
|
|
|
|
usr << browse(dat, "window=econ_panel")
|