forge/arma/server/addons/cad/functions/fnc_initCadStore.sqf
Jacob Schmidt ff7ff0c4e5 Implement org credit line debt and bank repayment flow (#2)
## 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
2026-04-02 16:50:38 -05:00

251 lines
10 KiB
Plaintext

#include "..\script_component.hpp"
/*
* File: fnc_initCadStore.sqf
* Author: IDSolutions
* Date: 2026-03-29
* Public: Yes
*
* Description:
* Initializes the CAD store as a coordinator over activity, group,
* assignment, and permission domain objects.
*
* Arguments:
* None
*
* Return Value:
* CAD store object [HASHMAP OBJECT]
*
* Example:
* call forge_server_cad_fnc_initCadStore
*/
#pragma hemtt ignore_variables ["_self"]
GVAR(CadStoreBaseClass) = compileFinal createHashMapFromArray [
["#type", "CadStoreBaseClass"],
["#create", compileFinal {
private _activityRepository = call FUNC(initActivityRepository);
private _permissionService = call FUNC(initPermissionService);
private _groupRepository = call FUNC(initGroupRepository);
private _assignmentRepository = call FUNC(initAssignmentRepository);
private _persistenceService = call FUNC(initPersistenceService);
private _requestRepository = call FUNC(initRequestRepository);
_groupRepository set ["activityRepository", _activityRepository];
_groupRepository set ["assignmentRepository", _assignmentRepository];
_groupRepository set ["permissionService", _permissionService];
_groupRepository set ["persistenceService", _persistenceService];
_assignmentRepository set ["activityRepository", _activityRepository];
_assignmentRepository set ["groupRepository", _groupRepository];
_assignmentRepository set ["permissionService", _permissionService];
_assignmentRepository set ["persistenceService", _persistenceService];
_requestRepository set ["activityRepository", _activityRepository];
_requestRepository set ["groupRepository", _groupRepository];
_requestRepository set ["permissionService", _permissionService];
_requestRepository set ["persistenceService", _persistenceService];
_activityRepository set ["persistenceService", _persistenceService];
_self set ["ActivityRepository", _activityRepository];
_self set ["PermissionService", _permissionService];
_self set ["GroupRepository", _groupRepository];
_self set ["AssignmentRepository", _assignmentRepository];
_self set ["PersistenceService", _persistenceService];
_self set ["RequestRepository", _requestRepository];
["INFO", "CAD Store Initialized!"] call EFUNC(common,log);
}],
["notifyPlayer", compileFinal {
params [
["_uid", "", [""]],
["_type", "info", [""]],
["_title", "CAD", [""]],
["_message", "", [""]]
];
if (_uid isEqualTo "" || { _message isEqualTo "" }) exitWith { false };
private _player = [_uid] call EFUNC(common,getPlayer);
if (_player isEqualTo objNull) exitWith { false };
[CRPC(notifications,recieveNotification), [_type, _title, _message], _player] call CFUNC(targetEvent);
true
}],
["resolveRequestPlayer", compileFinal {
params [
["_uid", "", [""]],
["_warning", "Invalid CAD payload.", [""]]
];
if (_uid isEqualTo "") exitWith {
["WARNING", _warning] call EFUNC(common,log);
objNull
};
[_uid] call EFUNC(common,getPlayer)
}],
["sendRpcResult", compileFinal {
params [
["_player", objNull, [objNull]],
["_responseRpc", "", [""]],
["_result", createHashMap, [createHashMap]],
["_invalidateOnSuccess", false, [false]],
["_requireChanged", false, [false]]
];
if (_player isEqualTo objNull || { _responseRpc isEqualTo "" }) exitWith {};
[_responseRpc, [_result], _player] call CFUNC(targetEvent);
if (
_invalidateOnSuccess
&& { _result getOrDefault ["success", false] }
&& { !_requireChanged || { _result getOrDefault ["changed", true] } }
) then {
[CRPC(cad,invalidateCadState), []] call CFUNC(globalEvent);
};
}],
["dispatchRpcMutation", compileFinal {
params [
["_uid", "", [""]],
["_warning", "Invalid CAD payload.", [""]],
["_responseRpc", "", [""]],
["_method", "", [""]],
["_arguments", [], [[]]],
["_invalidateOnSuccess", false, [false]],
["_requireChanged", false, [false]]
];
private _player = _self call ["resolveRequestPlayer", [_uid, _warning]];
if (_player isEqualTo objNull || { _method isEqualTo "" }) exitWith { createHashMap };
private _result = _self call [_method, _arguments];
_self call ["sendRpcResult", [_player, _responseRpc, _result, _invalidateOnSuccess, _requireChanged]];
_result
}],
["notifyAssignmentLeader", compileFinal {
params [["_result", createHashMap, [createHashMap]]];
if !(_result getOrDefault ["success", false]) exitWith { false };
private _leaderUid = _result getOrDefault ["leaderUid", ""];
if (_leaderUid isEqualTo "") exitWith { false };
private _message = if (_result getOrDefault ["isDispatchOrder", false]) then {
private _order = _result getOrDefault ["order", createHashMap];
if (_order isEqualTo createHashMap) then {
private _assignment = _result getOrDefault ["assignment", createHashMap];
private _taskID = _assignment getOrDefault ["taskId", ""];
_order = (_self get "AssignmentRepository") call ["buildDispatchOrderEntry", [
_taskID,
((_self get "AssignmentRepository") getOrDefault ["dispatchOrderRegistry", createHashMap]) getOrDefault [_taskID, createHashMap],
(_self get "AssignmentRepository") getOrDefault ["assignmentRegistry", createHashMap],
_self get "GroupRepository"
]];
};
format ["Dispatch order assigned: %1. Open CAD to review and acknowledge.", _order getOrDefault ["title", "Dispatch Order"]]
} else {
private _assignment = _result getOrDefault ["assignment", createHashMap];
format ["Contract assigned: %1. Open CAD to review and acknowledge.", _assignment getOrDefault ["taskId", "Task"]]
};
_self call ["notifyPlayer", [
_leaderUid,
"info",
"Tasks",
_message
]]
}],
["assignTaskToGroup", compileFinal {
private _result = (_self get "AssignmentRepository") call ["assignTaskToGroup", _this];
if !(_result getOrDefault ["success", false]) exitWith { _result };
_self call ["notifyAssignmentLeader", [_result]];
_result
}],
["createDispatchOrder", compileFinal {
private _result = (_self get "AssignmentRepository") call ["createDispatchOrder", _this];
if !(_result getOrDefault ["success", false]) exitWith { _result };
_self call ["notifyAssignmentLeader", [_result]];
_result
}],
["closeDispatchOrder", compileFinal {
(_self get "AssignmentRepository") call ["closeDispatchOrder", _this]
}],
["submitSupportRequest", compileFinal {
(_self get "RequestRepository") call ["submitRequest", _this]
}],
["closeSupportRequest", compileFinal {
(_self get "RequestRepository") call ["closeRequest", _this]
}],
["acknowledgeTask", compileFinal {
(_self get "AssignmentRepository") call ["acknowledgeTask", _this]
}],
["declineTask", compileFinal {
(_self get "AssignmentRepository") call ["declineTask", _this]
}],
["updateGroupStatus", compileFinal {
(_self get "GroupRepository") call ["updateGroupStatus", _this]
}],
["updateGroupRole", compileFinal {
(_self get "GroupRepository") call ["updateGroupRole", _this]
}],
["updateGroupProfile", compileFinal {
(_self get "GroupRepository") call ["updateGroupProfile", _this]
}],
["buildHydratePayload", compileFinal {
params [["_uid", "", [""]]];
private _permissionService = _self get "PermissionService";
private _groupRepository = _self get "GroupRepository";
private _actor = EGVAR(actor,Registry) getOrDefault [_uid, createHashMap];
if (_actor isEqualTo createHashMap && { _uid isNotEqualTo "" }) then {
_actor = EGVAR(actor,ActorStore) call ["init", [_uid]];
};
private _groupID = _groupRepository call ["getPlayerGroupId", [_uid]];
private _session = createHashMapFromArray [
["uid", _uid],
["orgId", _actor getOrDefault ["organization", "default"]],
["isDispatcher", _permissionService call ["canDispatch", [_uid]]],
["groupId", _groupID],
["isLeader", _groupRepository call ["isGroupLeader", [_uid, _groupID]]]
];
private _seed = createHashMapFromArray [
["groups", _groupRepository call ["buildGroups", []]],
["activeTasks", EGVAR(task,TaskStore) call ["getActiveTaskCatalog", []]],
["session", _session]
];
private _emptyPayload = createHashMapFromArray [
["groups", _seed get "groups"],
["contracts", []],
["requests", []],
["assignments", []],
["activity", []],
["session", _session]
];
private _persistenceService = _self getOrDefault ["PersistenceService", createHashMap];
if (_persistenceService isEqualTo createHashMap) exitWith {
["WARNING", "CAD hydrate extension state is unavailable; returning seed-only payload."] call EFUNC(common,log);
_emptyPayload
};
private _hydrateResult = _persistenceService call ["buildHydratePayload", [_seed]];
if (_hydrateResult getOrDefault ["success", false]) exitWith {
_hydrateResult getOrDefault ["data", createHashMap]
};
["WARNING", "CAD hydrate failed in the extension; returning seed-only payload."] call EFUNC(common,log);
_emptyPayload
}]
];
GVAR(CadStore) = createHashMapObject [GVAR(CadStoreBaseClass)];
GVAR(CadStore)