forge/arma/server/addons/cad/functions/fnc_initPermissionService.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

49 lines
1.5 KiB
Plaintext

#include "..\script_component.hpp"
/*
* File: fnc_initPermissionService.sqf
* Author: IDSolutions
* Date: 2026-03-30
* Public: No
*
* Description:
* Initializes the CAD permission service for dispatcher authorization checks.
*
* Arguments:
* None
*
* Return Value:
* CAD permission service object [HASHMAP OBJECT]
*
* Example:
* call forge_server_cad_fnc_initPermissionService
*/
#pragma hemtt ignore_variables ["_self"]
GVAR(PermissionServiceBaseClass) = compileFinal createHashMapFromArray [
["#type", "CadPermissionServiceBaseClass"],
["canDispatch", compileFinal {
params [["_uid", "", [""]]];
if (_uid isEqualTo "") exitWith { false };
private _actor = EGVAR(actor,Registry) getOrDefault [_uid, createHashMap];
if (_actor isEqualTo createHashMap) exitWith { false };
private _orgID = _actor getOrDefault ["organization", "default"];
private _org = EGVAR(org,OrgStore) call ["loadById", [_orgID]];
if (_org isEqualTo createHashMap) exitWith { false };
private _owner = _org getOrDefault ["owner", ""];
if (_owner isEqualTo _uid) exitWith { true };
private _player = [_uid] call EFUNC(common,getPlayer);
if (_player isEqualTo objNull) exitWith { false };
private _playerVar = toLowerANSI (vehicleVarName _player);
(_orgID isEqualTo "default") && { _playerVar in ["ceo", "dispatch"] }
}]
];
createHashMapObject [GVAR(PermissionServiceBaseClass)]