forge/arma/client/addons/cad/functions/fnc_initRepository.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

106 lines
3.5 KiB
Plaintext

#include "..\script_component.hpp"
/*
* File: fnc_initRepository.sqf
* Author: IDSolutions
* Date: 2026-03-28
* Public: No
*
* Description:
* Initializes the CAD repository for lightweight client lifecycle state.
*
* Arguments:
* None
*
* Return Value:
* CAD repository object [HASHMAP OBJECT]
*
* Example:
* call forge_client_cad_fnc_initRepository
*/
#pragma hemtt ignore_variables ["_self"]
GVAR(CADRepository) = createHashMapObject [[
["#type", "CADRepository"],
["#create", compileFinal {
_self set ["isLoaded", true];
_self set ["isOpen", false];
_self set ["groups", []];
_self set ["contracts", []];
_self set ["requests", []];
_self set ["assignments", []];
_self set ["activity", []];
_self set ["session", createHashMap];
_self set ["mode", "operations"];
_self set ["dispatchView", "board"];
}],
["getHydratePayload", compileFinal {
createHashMapFromArray [
["groups", +(_self getOrDefault ["groups", []])],
["contracts", +(_self getOrDefault ["contracts", []])],
["requests", +(_self getOrDefault ["requests", []])],
["assignments", +(_self getOrDefault ["assignments", []])],
["activity", +(_self getOrDefault ["activity", []])],
["session", +(_self getOrDefault ["session", createHashMap])],
["mode", _self getOrDefault ["mode", "operations"]],
["dispatchView", _self getOrDefault ["dispatchView", "board"]]
]
}],
["getCurrentGroup", compileFinal {
private _session = _self getOrDefault ["session", createHashMap];
private _groupID = _session getOrDefault ["groupId", ""];
if (_groupID isEqualTo "") exitWith { createHashMap };
private _groups = _self getOrDefault ["groups", []];
private _group = _groups findIf { (_x getOrDefault ["groupId", ""]) isEqualTo _groupID };
if (_group < 0) exitWith { createHashMap };
+(_groups # _group)
}],
["pushHydratePayload", compileFinal {
params [["_bridge", createHashMap, [createHashMap]]];
if (_bridge isEqualTo createHashMap) exitWith { false };
_bridge call ["sendEvent", ["cad::hydrate", _self call ["getHydratePayload", []]]]
}],
["setHydratePayload", compileFinal {
params [["_payload", createHashMap, [createHashMap]]];
_self set ["groups", +(_payload getOrDefault ["groups", []])];
_self set ["contracts", +(_payload getOrDefault ["contracts", []])];
_self set ["requests", +(_payload getOrDefault ["requests", []])];
_self set ["assignments", +(_payload getOrDefault ["assignments", []])];
_self set ["activity", +(_payload getOrDefault ["activity", []])];
_self set ["session", +(_payload getOrDefault ["session", createHashMap])];
true
}],
["setMode", compileFinal {
params [["_mode", "operations", [""]]];
if !(_mode in ["operations", "dispatch"]) then {
_mode = "operations";
};
_self set ["mode", _mode];
_mode
}],
["setDispatchView", compileFinal {
params [["_dispatchView", "board", [""]]];
if !(_dispatchView in ["board", "map"]) then {
_dispatchView = "board";
};
_self set ["dispatchView", _dispatchView];
_dispatchView
}],
["setOpen", compileFinal {
params [["_isOpen", false, [false]]];
_self set ["isOpen", _isOpen];
true
}]
]];
GVAR(CADRepository)