Jacob Schmidt
ff7ff0c4e5
## Summary This finishes the org credit line workflow so it behaves like reserved treasury-backed credit instead of a simple member allowance. ## What changed - reserve org funds immediately when a credit line is assigned - track credit lines with: - approved amount - available amount - outstanding principal - interest rate - amount due - consume reserved credit during store checkout without charging org funds a second time - add credit line repayment through the bank app - sync richer credit line state into org and bank payloads/UI - keep legacy `amount` compatibility mapped to available credit for older consumers ## User-facing behavior - assigning a credit line now reduces available org funds immediately - spending on `credit_line` reduces available credit and creates debt with interest - the bank app now shows outstanding credit debt and allows repayment from personal bank funds - the org treasury view now shows reserved credit and outstanding due totals ## Validation - `cargo fmt` - `npm run build:webui` - `cargo test -p forge-services --quiet` - `cargo test -p forge-server --quiet` ## Follow-up checks - validate in-game that assigning a credit line reduces org funds immediately - validate store checkout with `credit_line` updates available credit and debt correctly - validate bank repayment decreases player bank balance, increases org funds, and reduces amount due Co-authored-by: Jacob Schmidt <innovativestudios@outlook.com> Reviewed-on: #2
220 lines
6.2 KiB
Plaintext
220 lines
6.2 KiB
Plaintext
#include "script_component.hpp"
|
|
|
|
PREP_RECOMPILE_START;
|
|
#include "XEH_PREP.hpp"
|
|
PREP_RECOMPILE_END;
|
|
|
|
call FUNC(initCadStore);
|
|
|
|
[QGVAR(requestHydrateCad), {
|
|
params [["_uid", "", [""]]];
|
|
|
|
private _player = GVAR(CadStore) call ["resolveRequestPlayer", [_uid, "CAD hydrate request received with empty UID."]];
|
|
if (_player isEqualTo objNull) exitWith {};
|
|
|
|
private _payload = GVAR(CadStore) call ["buildHydratePayload", [_uid]];
|
|
[CRPC(cad,responseHydrateCad), [_payload], _player] call CFUNC(targetEvent);
|
|
}] call CFUNC(addEventHandler);
|
|
|
|
[QGVAR(requestAssignCadTask), {
|
|
params [
|
|
["_uid", "", [""]],
|
|
["_taskID", "", [""]],
|
|
["_groupID", "", [""]],
|
|
["_note", "", [""]]
|
|
];
|
|
|
|
if (_taskID isEqualTo "" || { _groupID isEqualTo "" }) exitWith {
|
|
["WARNING", "Invalid CAD task assignment payload."] call EFUNC(common,log);
|
|
};
|
|
|
|
GVAR(CadStore) call ["dispatchRpcMutation", [
|
|
_uid,
|
|
"Invalid CAD task assignment payload.",
|
|
CRPC(cad,responseCadAssignment),
|
|
"assignTaskToGroup",
|
|
[_uid, _taskID, _groupID, _note],
|
|
true,
|
|
false
|
|
]];
|
|
}] call CFUNC(addEventHandler);
|
|
|
|
[QGVAR(requestCreateCadDispatchOrder), {
|
|
params [
|
|
["_uid", "", [""]],
|
|
["_assigneeGroupID", "", [""]],
|
|
["_targetGroupID", "", [""]],
|
|
["_note", "", [""]],
|
|
["_priority", "priority", [""]],
|
|
["_request", createHashMap, [createHashMap]]
|
|
];
|
|
|
|
if (_assigneeGroupID isEqualTo "" || { _targetGroupID isEqualTo "" }) exitWith {
|
|
["WARNING", "Invalid CAD dispatch order payload."] call EFUNC(common,log);
|
|
};
|
|
|
|
GVAR(CadStore) call ["dispatchRpcMutation", [
|
|
_uid,
|
|
"Invalid CAD dispatch order payload.",
|
|
CRPC(cad,responseCadAssignment),
|
|
"createDispatchOrder",
|
|
[_uid, _assigneeGroupID, _targetGroupID, _note, _priority, _request],
|
|
true,
|
|
false
|
|
]];
|
|
}] call CFUNC(addEventHandler);
|
|
|
|
[QGVAR(requestSubmitCadSupportRequest), {
|
|
params [
|
|
["_uid", "", [""]],
|
|
["_type", "", [""]],
|
|
["_fields", createHashMap, [createHashMap]],
|
|
["_priority", "priority", [""]]
|
|
];
|
|
|
|
if (_type isEqualTo "") exitWith {
|
|
["WARNING", "Invalid CAD support request payload."] call EFUNC(common,log);
|
|
};
|
|
|
|
GVAR(CadStore) call ["dispatchRpcMutation", [
|
|
_uid,
|
|
"Invalid CAD support request payload.",
|
|
CRPC(cad,responseCadRequest),
|
|
"submitSupportRequest",
|
|
[_uid, _type, _fields, _priority],
|
|
true,
|
|
false
|
|
]];
|
|
}] call CFUNC(addEventHandler);
|
|
|
|
[QGVAR(requestCloseCadSupportRequest), {
|
|
params [["_uid", "", [""]], ["_requestID", "", [""]]];
|
|
|
|
if (_requestID isEqualTo "") exitWith {
|
|
["WARNING", "Invalid CAD support request close payload."] call EFUNC(common,log);
|
|
};
|
|
|
|
GVAR(CadStore) call ["dispatchRpcMutation", [
|
|
_uid,
|
|
"Invalid CAD support request close payload.",
|
|
CRPC(cad,responseCadRequest),
|
|
"closeSupportRequest",
|
|
[_uid, _requestID],
|
|
true,
|
|
false
|
|
]];
|
|
}] call CFUNC(addEventHandler);
|
|
|
|
[QGVAR(requestAcknowledgeCadTask), {
|
|
params [["_uid", "", [""]], ["_taskID", "", [""]]];
|
|
|
|
if (_taskID isEqualTo "") exitWith {
|
|
["WARNING", "Invalid CAD acknowledge payload."] call EFUNC(common,log);
|
|
};
|
|
|
|
GVAR(CadStore) call ["dispatchRpcMutation", [
|
|
_uid,
|
|
"Invalid CAD acknowledge payload.",
|
|
CRPC(cad,responseCadAssignment),
|
|
"acknowledgeTask",
|
|
[_uid, _taskID],
|
|
true,
|
|
false
|
|
]];
|
|
}] call CFUNC(addEventHandler);
|
|
|
|
[QGVAR(requestCloseCadDispatchOrder), {
|
|
params [["_uid", "", [""]], ["_taskID", "", [""]]];
|
|
|
|
if (_taskID isEqualTo "") exitWith {
|
|
["WARNING", "Invalid CAD dispatch order close payload."] call EFUNC(common,log);
|
|
};
|
|
|
|
GVAR(CadStore) call ["dispatchRpcMutation", [
|
|
_uid,
|
|
"Invalid CAD dispatch order close payload.",
|
|
CRPC(cad,responseCadAssignment),
|
|
"closeDispatchOrder",
|
|
[_uid, _taskID],
|
|
true,
|
|
false
|
|
]];
|
|
}] call CFUNC(addEventHandler);
|
|
|
|
[QGVAR(requestDeclineCadTask), {
|
|
params [["_uid", "", [""]], ["_taskID", "", [""]]];
|
|
|
|
if (_taskID isEqualTo "") exitWith {
|
|
["WARNING", "Invalid CAD decline payload."] call EFUNC(common,log);
|
|
};
|
|
|
|
GVAR(CadStore) call ["dispatchRpcMutation", [
|
|
_uid,
|
|
"Invalid CAD decline payload.",
|
|
CRPC(cad,responseCadAssignment),
|
|
"declineTask",
|
|
[_uid, _taskID],
|
|
true,
|
|
false
|
|
]];
|
|
}] call CFUNC(addEventHandler);
|
|
|
|
[QGVAR(requestUpdateCadGroupStatus), {
|
|
params [["_uid", "", [""]], ["_groupID", "", [""]], ["_status", "", [""]]];
|
|
|
|
if (_groupID isEqualTo "" || { _status isEqualTo "" }) exitWith {
|
|
["WARNING", "Invalid CAD group status payload."] call EFUNC(common,log);
|
|
};
|
|
|
|
GVAR(CadStore) call ["dispatchRpcMutation", [
|
|
_uid,
|
|
"Invalid CAD group status payload.",
|
|
CRPC(cad,responseCadGroupUpdate),
|
|
"updateGroupStatus",
|
|
[_uid, _groupID, _status],
|
|
true,
|
|
true
|
|
]];
|
|
}] call CFUNC(addEventHandler);
|
|
|
|
[QGVAR(requestUpdateCadGroupRole), {
|
|
params [["_uid", "", [""]], ["_groupID", "", [""]], ["_role", "", [""]]];
|
|
|
|
if (_groupID isEqualTo "" || { _role isEqualTo "" }) exitWith {
|
|
["WARNING", "Invalid CAD group role payload."] call EFUNC(common,log);
|
|
};
|
|
|
|
GVAR(CadStore) call ["dispatchRpcMutation", [
|
|
_uid,
|
|
"Invalid CAD group role payload.",
|
|
CRPC(cad,responseCadGroupUpdate),
|
|
"updateGroupRole",
|
|
[_uid, _groupID, _role],
|
|
true,
|
|
true
|
|
]];
|
|
}] call CFUNC(addEventHandler);
|
|
|
|
[QGVAR(requestUpdateCadGroupProfile), {
|
|
params [
|
|
["_uid", "", [""]],
|
|
["_groupID", "", [""]],
|
|
["_status", "", [""]],
|
|
["_role", "", [""]]
|
|
];
|
|
|
|
if (_groupID isEqualTo "") exitWith {
|
|
["WARNING", "Invalid CAD group profile payload."] call EFUNC(common,log);
|
|
};
|
|
|
|
GVAR(CadStore) call ["dispatchRpcMutation", [
|
|
_uid,
|
|
"Invalid CAD group profile payload.",
|
|
CRPC(cad,responseCadGroupUpdate),
|
|
"updateGroupProfile",
|
|
[_uid, _groupID, _status, _role],
|
|
true,
|
|
true
|
|
]];
|
|
}] call CFUNC(addEventHandler);
|