biz-a-cli 2.3.80-15419 → 2.3.80

package/engine/fina/master.js

@@ -1,331 +0,0 @@
-/*
- * Doc 8 M3 — FINA's masters, read and written for a VERIFIED user (E-04, E-05, S-02, S-03).
- *
- * ONE generic pipeline (E-02): a master's table, key, columns, hierarchy and rules come from its server-owned
- * descriptor (masters/*.js); nothing here knows a master by name.
- *
- * save:   identity → right (create / edit, D4) → the values (types, sizes, required, G-07) → the code is unique (G-02,
- *         L-13) → the hierarchy (parent exists, is active, is not a descendant; the derived columns) → the master's
- *         rules (E-09) → FINA's dataset class through json2fina, every column sent → descendants re-levelled when the
- *         record moved.
- * remove: identity → right (edit, D4) → no sub-records → nothing references it → json2fina delete.
- *
- * ⚠️ "IN USE" IS READ FROM FINA'S OWN FOREIGN KEYS: whatever references the record (GLHIST, JVDET, DEFACCNT, ITEM, a
- * budget, the company's default currency…). One statement asks every referencing table at once. A SET NULL reference
- * does not count (the database lets the delete through), nor what the master names as cleaned up by FINA itself.
- *
- * ⚠️ REFUSED, NOT DONE, in M3 (Agung 2026-10-09): picking a parent that is already in use (the desktop's
- * "becomes-a-parent" rename), and a delete the desktop follows with clean-up of other rows — both say what is in the
- * way and to use FINA desktop.
- *
- * Every value reaching a statement goes through sql.js; table and column names come from the descriptor or FINA's
- * catalogue, never from the request.
- */
-import { finaError } from "./errors.js";
-import { requireRight } from "./identity.js";
-import { masterOf } from "./masters/index.js";
-import currencyMaster from "./masters/currency.js";
-import { sqlString, sqlValue } from "./sql.js";
-
-const IDENT = /^[A-Z0-9_$]+$/;
-const MAX_BLOCK_CHARS = 30000;
-
-const blank = (v) => v === null || v === undefined || (typeof v === "string" && v.trim() === "");
-const same = (a, b) => !blank(a) && !blank(b) && String(a).trim() === String(b).trim();
-const pick = (data, column) => {
-	if (!data || typeof data !== "object") return undefined;
-	if (column in data) return data[column];
-	return data[column.toLowerCase()];
-};
-
-/* FINA's foreign keys onto a table, cached per FINA database: the catalogue changes with FINA upgrades, not requests. */
-const referenceCache = new Map();
-const fkSql = (table) =>
-	"SELECT TRIM(RC.RDB$RELATION_NAME) AS T, TRIM(S.RDB$FIELD_NAME) AS C, TRIM(RF.RDB$DELETE_RULE) AS D " +
-	"FROM RDB$RELATION_CONSTRAINTS RC JOIN RDB$REF_CONSTRAINTS RF ON RF.RDB$CONSTRAINT_NAME = RC.RDB$CONSTRAINT_NAME " +
-	"JOIN RDB$RELATION_CONSTRAINTS PK ON PK.RDB$CONSTRAINT_NAME = RF.RDB$CONST_NAME_UQ " +
-	"JOIN RDB$INDEX_SEGMENTS S ON S.RDB$INDEX_NAME = RC.RDB$INDEX_NAME " +
-	`WHERE RC.RDB$CONSTRAINT_TYPE = 'FOREIGN KEY' AND PK.RDB$RELATION_NAME = ${sqlString(table)}`;
-
-export const resetReferenceCache = () => referenceCache.clear();
-
-/* The values a save sends: typed, trimmed, checked — every problem named at once (INVALID). */
-const normalize = (master, data) => {
-	const values = {};
-	const problems = [];
-	for (const [column, def] of Object.entries(master.columns)) {
-		let v = pick(data, column);
-		switch (def.type) {
-			case "string":
-				v = blank(v) ? null : String(v).trim();
-				if (v !== null && def.size && v.length > def.size) problems.push(`${column} is longer than ${def.size} characters`);
-				/* G-07: FINA's string validator refuses an apostrophe and DEL. */
-				if (v !== null && /['\u007f]/.test(v)) problems.push(`${column} may not contain an apostrophe (')`);
-				break;
-			case "integer":
-				if (blank(v)) v = null;
-				else if (!Number.isInteger(Number(v))) problems.push(`${column} must be a whole number`);
-				else v = Number(v);
-				if (v !== null && def.oneOf && !def.oneOf.includes(v)) problems.push(`${column} must be one of ${def.oneOf.join(", ")}`);
-				break;
-			case "flag":
-				v = blank(v) ? (def.default ?? 0) : v === true || v === 1 || ["1", "true"].includes(String(v).trim().toLowerCase()) ? 1 : 0;
-				break;
-			case "decimal4": {
-				if (blank(v)) {
-					v = def.default ?? null;
-					break;
-				}
-				const text = String(v).trim();
-				if (!/^-?\d+(\.\d{1,4})?$/.test(text)) problems.push(`${column} must be a number with at most 4 decimals`);
-				else v = Number(text);
-				break;
-			}
-			case "date":
-				if (blank(v)) v = null;
-				else if (!/^\d{4}-\d{2}-\d{2}$/.test(String(v).slice(0, 10))) problems.push(`${column} must be a date (YYYY-MM-DD)`);
-				else v = String(v).slice(0, 10);
-				break;
-			default:
-				throw new Error(`master ${master.name}: unknown column type ${def.type}`);
-		}
-		if (def.required && (v === null || v === undefined)) problems.push(`${column} is required`);
-		values[column] = v ?? null;
-	}
-	if (problems.length > 0) throw finaError("INVALID", `${problems.join("; ")}.`);
-	return values;
-};
-
-/*
- * A record as the forms need it: every number column a number. ⚠️ FINA's ExecuteSQL answers a SMALLINT as TEXT
- * ("19", "0") while an INTEGER comes as a number (found live, M3) — a form select of numbers then matched nothing.
- */
-const typedRow = (master, row) => {
-	if (!row) return null;
-	const numeric = new Set(
-		[
-			...Object.entries(master.columns)
-				.filter(([, def]) => ["integer", "flag", "decimal4"].includes(def.type))
-				.map(([column]) => column),
-			...(master.keyType === "integer" ? [master.key] : []),
-			...(master.hierarchy ? [master.hierarchy.level, master.hierarchy.isChild, ...(master.keyType === "integer" ? [master.hierarchy.root] : [])] : []),
-		].map((c) => c.toLowerCase()),
-	);
-	return Object.fromEntries(
-		Object.entries(row).map(([k, v]) => [k, numeric.has(k) && !blank(v) && Number.isFinite(Number(v)) ? Number(v) : v]),
-	);
-};
-
-export const createMasterService = ({ client, identity }) => {
-	const readRow = async (master, key) => {
-		const columns = [...new Set([master.key, ...Object.keys(master.columns), ...(master.hierarchy ? [master.hierarchy.level, master.hierarchy.root, master.hierarchy.isChild] : [])])];
-		const rows = await client.executeSql(`SELECT ${columns.join(", ")} FROM ${master.table} WHERE ${master.key} = ${sqlValue(key, master.keyType)}`);
-		return typedRow(master, rows?.[0] ?? null);
-	};
-
-	/* Every record's key, parent, level, root and suspended flag: the hierarchy checks and the re-levelling. */
-	const readTree = async (master) => {
-		const h = master.hierarchy;
-		const rows = await client.executeSql(`SELECT ${master.key} AS K, ${h.parent} AS P, ${h.level} AS L, ${h.root} AS R, SUSPENDED AS S FROM ${master.table}`);
-		return (rows ?? []).map((r) => ({ k: r.k, p: r.p, l: Number(r.l ?? 0), r: r.r, s: Number(r.s ?? 0) }));
-	};
-
-	const references = async (table) => {
-		const cacheKey = `${client.dbIndex ?? ""}:${table}`;
-		if (!referenceCache.has(cacheKey)) {
-			const loading = client
-				.executeSql(fkSql(table))
-				.then((rows) => (rows ?? []).map((r) => ({ table: String(r.t ?? "").trim(), column: String(r.c ?? "").trim(), rule: String(r.d ?? "").trim().toUpperCase() })));
-			loading.catch(() => referenceCache.delete(cacheKey));
-			referenceCache.set(cacheKey, loading);
-		}
-		return referenceCache.get(cacheKey);
-	};
-
-	/* The tables that reference this record (blocking references only), in one statement. */
-	const usedIn = async (master, key) => {
-		const refs = (await references(master.table)).filter(
-			(r) =>
-				r.table !== master.table &&
-				IDENT.test(r.table) &&
-				IDENT.test(r.column) &&
-				r.rule !== "SET NULL" &&
-				!(master.ignoreReferences ?? []).includes(r.table),
-		);
-		if (refs.length === 0) return [];
-		const literal = sqlValue(key, master.keyType);
-		const select = refs.map((r, i) => `(SELECT FIRST 1 1 FROM ${r.table} WHERE ${r.column} = ${literal}) AS U${i}`).join(", ");
-		const [row] = (await client.executeSql(`SELECT ${select} FROM RDB$DATABASE`)) ?? [];
-		return [...new Set(refs.filter((_r, i) => row?.[`u${i}`] !== null && row?.[`u${i}`] !== undefined).map((r) => r.table))];
-	};
-
-	const caller = async (principal, master, action) => requireRight(await identity.resolve(principal), master.rights, action);
-
-	const assertUniqueCode = async (master, values, selfKey) => {
-		const code = values[master.code];
-		const others = selfKey === null ? "" : ` AND ${master.key} <> ${sqlValue(selfKey, master.keyType)}`;
-		const rows = await client.executeSql(`SELECT FIRST 1 ${master.key} AS K FROM ${master.table} WHERE UPPER(${master.code}) = UPPER(${sqlString(code)})${others}`);
-		if (rows?.length) throw finaError("MASTER_DUPLICATE", `${master.code} ${code} already exists: another ${master.label} uses it.`);
-	};
-
-	const isDescendant = (tree, candidate, ancestor) => {
-		const byKey = new Map(tree.map((r) => [String(r.k), r]));
-		const seen = new Set();
-		for (let at = byKey.get(String(candidate)); at && !seen.has(String(at.k)); at = byKey.get(String(at.p))) {
-			if (same(at.k, ancestor)) return true;
-			seen.add(String(at.k));
-		}
-		return false;
-	};
-
-	/* COA-19 / DEP-11 / PRJ-14: after a record moves, its descendants take their level and root from it. One block. */
-	const relevelDescendants = async (master, key) => {
-		const h = master.hierarchy;
-		const tree = await readTree(master);
-		const byKey = new Map(tree.map((r) => [String(r.k), r]));
-		const updates = [];
-		const queue = [String(key)];
-		const seen = new Set();
-		while (queue.length) {
-			const at = byKey.get(queue.shift());
-			if (!at || seen.has(String(at.k))) continue;
-			seen.add(String(at.k));
-			for (const child of tree.filter((r) => same(r.p, at.k))) {
-				const level = at.l + 1;
-				const root = blank(at.r) ? at.k : at.r;
-				if (child.l !== level || !same(child.r, root)) {
-					updates.push(`UPDATE ${master.table} SET ${h.level} = ${level}, ${h.root} = ${sqlValue(root, master.keyType)} WHERE ${master.key} = ${sqlValue(child.k, master.keyType)};`);
-					child.l = level;
-					child.r = root;
-				}
-				queue.push(String(child.k));
-			}
-		}
-		let chunk = [];
-		const flush = async () => {
-			if (chunk.length) await client.block(`EXECUTE BLOCK AS BEGIN ${chunk.join(" ")} END`);
-			chunk = [];
-		};
-		for (const update of updates) {
-			if ([...chunk, update].join(" ").length > MAX_BLOCK_CHARS) await flush();
-			chunk.push(update);
-		}
-		await flush();
-	};
-
-	const get = async (principal, name, key) => {
-		const master = masterOf(name);
-		await caller(principal, master, null);
-		const row = await readRow(master, key);
-		if (!row) throw finaError("MASTER_NOT_FOUND", `${master.label} ${key} does not exist in FINA.`);
-		return row;
-	};
-
-	const save = async (principal, name, { key = null, data = {} } = {}) => {
-		const master = masterOf(name);
-		const isNew = blank(key);
-		const who = await caller(principal, master, isNew ? "create" : "edit");
-
-		const existing = isNew ? null : await readRow(master, key);
-		if (!isNew && !existing) throw finaError("MASTER_NOT_FOUND", `${master.label} ${key} does not exist in FINA.`);
-		/* An edit keeps what the request leaves out. */
-		const merged = isNew ? data : Object.fromEntries(Object.keys(master.columns).map((c) => [c, pick(data, c) === undefined ? existing[c.toLowerCase()] : pick(data, c)]));
-		const values = normalize(master, merged);
-
-		if (!isNew && master.keyFromData && !same(values[master.key], key)) {
-			throw finaError("MASTER_RULE", `The ${master.label} number ${key} cannot be changed here (it is renamed across FINA): use FINA desktop.`);
-		}
-		await assertUniqueCode(master, values, isNew ? null : key);
-
-		const selfKey = isNew ? (master.keyFromData ? values[master.key] : null) : key;
-		let parent = null;
-		let children = [];
-		let moved = false;
-		if (master.hierarchy) {
-			const h = master.hierarchy;
-			const tree = await readTree(master);
-			children = selfKey === null ? [] : tree.filter((r) => same(r.p, selfKey));
-			const parentKey = values[h.parent];
-			moved = isNew || String(parentKey ?? "") !== String(existing[h.parent.toLowerCase()] ?? "");
-			if (parentKey !== null) {
-				if (selfKey !== null && same(parentKey, selfKey)) throw finaError("MASTER_RULE", `A ${master.label} cannot be its own parent.`);
-				parent = await readRow(master, parentKey);
-				if (!parent) throw finaError("MASTER_RULE", `The parent ${master.label} ${parentKey} does not exist.`);
-				if (moved) {
-					if (Number(parent.suspended) === 1) throw finaError("MASTER_RULE", `The parent ${master.label} ${parentKey} is suspended.`);
-					if (selfKey !== null && isDescendant(tree, parentKey, selfKey)) {
-						throw finaError("MASTER_RULE", `A ${master.label} cannot move under one of its own sub-records.`);
-					}
-					const parentHasChildren = tree.some((r) => same(r.p, parentKey) && !same(r.k, selfKey));
-					if (!parentHasChildren) {
-						const used = await usedIn(master, parentKey);
-						if (used.length > 0) {
-							throw finaError(
-								"MASTER_PARENT_IN_USE",
-								`The parent ${master.label} ${parentKey} is already used in ${used.join(", ")}: making it a parent renames it in FINA, which is done in FINA desktop.`,
-							);
-						}
-					}
-				}
-			}
-			values[h.isChild] = parent ? 1 : 0;
-			values[h.level] = parent ? Number(parent[h.level.toLowerCase()] ?? 0) + 1 : 0;
-			values[h.root] = parent ? (blank(parent[h.root.toLowerCase()]) ? parentKey : parent[h.root.toLowerCase()]) : selfKey;
-			/* COA-20 / DEP-13 / PRJ-16 */
-			if (!isNew && Number(existing.suspended) !== 1 && values.SUSPENDED === 1 && children.some((c) => c.s !== 1)) {
-				throw finaError("MASTER_RULE", `This ${master.label} has active sub-records: suspend them first.`);
-			}
-		}
-
-		let usage = null;
-		await master.beforeSave?.({
-			values,
-			existing,
-			isNew,
-			key: selfKey,
-			parent,
-			children,
-			usage: async () => (usage ??= new Set(selfKey === null || isNew ? [] : await usedIn(master, selfKey))),
-			defaccntNames: async () =>
-				((await client.executeSql(`SELECT NAME FROM DEFACCNT WHERE GLACCOUNT = ${sqlString(selfKey)}`)) ?? []).map((r) => String(r.name ?? "").trim()),
-			companyCurrency: async () => {
-				const d = (await client.executeSql("SELECT DEFAULTCURRENCYID AS D FROM COMPANY"))?.[0]?.d;
-				return blank(d) ? null : Number(d);
-			},
-			currencyExists: async (id) => (await readRow(currencyMaster, id)) !== null,
-		});
-
-		const sent = Object.fromEntries(Object.entries(values).map(([column, v]) => [column, v === null || v === undefined ? null : String(v)]));
-		const { id } = await client.json2fina({
-			id: isNew ? -1 : String(key),
-			dataModule: master.dataModule,
-			transType: "",
-			userId: who.finaUser.id,
-			data: { master: sent },
-		});
-		const savedKey = isNew ? (master.keyFromData ? values[master.key] : id) : key;
-		if (master.hierarchy && moved && !isNew) await relevelDescendants(master, savedKey);
-		return (await readRow(master, savedKey)) ?? { [master.key.toLowerCase()]: savedKey };
-	};
-
-	const remove = async (principal, name, key) => {
-		const master = masterOf(name);
-		const who = await caller(principal, master, "delete");
-		const existing = await readRow(master, key);
-		if (!existing) throw finaError("MASTER_NOT_FOUND", `${master.label} ${key} does not exist in FINA.`);
-		const code = existing[master.code.toLowerCase()] ?? key;
-
-		/* COA-25 / DEP-18 / PRJ-18 */
-		if (master.hierarchy && (await readTree(master)).some((r) => same(r.p, key))) {
-			throw finaError("MASTER_IN_USE", `Cannot delete ${master.label} ${code}: delete its sub-records first.`);
-		}
-		/* COA-26 / DEP-16 / PRJ-18 / CUR-08 — and, in M3, what the desktop would clean up (COA-27, DEP-17, PRJ-19, CUR-09). */
-		const used = await usedIn(master, key);
-		if (used.length > 0) throw finaError("MASTER_IN_USE", `Cannot delete ${master.label} ${code}: it is used in ${used.join(", ")}.`);
-
-		await client.json2fina({ id: String(key), delete: "1", dataModule: master.dataModule, transType: "", userId: who.finaUser.id, data: { master: {} } });
-		return { key };
-	};
-
-	return { get, save, remove };
-};

package/engine/fina/masters/coa.js

@@ -1,104 +0,0 @@
-/*
- * Doc 8 M3 — Chart of Accounts (GLACCNT), written through FINA's TAccountDataset.
- *
- * The rules are the desktop's (docs/DOC8-APPENDIX-RULE-INVENTORIES.md §2.1; bank/GLAccountDM.pas), which the API path
- * does not run. Rights: COA C / E (D4). The account number is the key and is entered by the user (no auto-number).
- */
-import { finaError } from "../errors.js";
-
-/* §2.1 types: 7 Bank … 21 Other Income. */
-export const ACCOUNT_TYPES = [7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21];
-const BANK = 7;
-const AR = 8;
-const INVENTORY = 9;
-const AP = 13;
-/* COA-06/08: only Bank, AR and AP carry a currency. */
-const WITH_CURRENCY = [BANK, AR, AP];
-/* COA-09/12: the types whose accounts other modules post to by type. */
-const LOCKED_TYPES = [BANK, AR, AP, INVENTORY];
-/* COA-10: DEFACCNT names of the accounts whose type never changes (GLAccountDM.pas CanChangeOBEAndREAcc). */
-const FIXED_TYPE_NAMES = ["RETAINED_EARNING", "OPENING BALANCE EQUITY"];
-
-const refuse = (message) => {
-	throw finaError("MASTER_RULE", message);
-};
-
-export default {
-	name: "coa",
-	label: "account",
-	rights: "coa",
-	table: "GLACCNT",
-	key: "GLACCOUNT",
-	keyType: "string",
-	/* The number IS the key: entered by the user, and not renamed here (a rename cascades across FINA). */
-	keyFromData: true,
-	code: "GLACCOUNT",
-	dataModule: "TAccountDataset",
-	columns: {
-		GLACCOUNT: { type: "string", size: 20, required: true },
-		ACCOUNTNAME: { type: "string", size: 60, required: true },
-		ACCOUNTTYPE: { type: "integer", required: true, oneOf: ACCOUNT_TYPES },
-		CURRENCYID: { type: "integer" },
-		PARENTACCOUNT: { type: "string", size: 20 },
-		/* COA-01 defaults, sent explicitly: the API leaves what is not sent. */
-		SUSPENDED: { type: "flag", default: 0 },
-		MEMO: { type: "string", size: 240 },
-		ISFISCAL: { type: "flag", default: 1 },
-		ISALLOCTOPROD: { type: "flag", default: 0 },
-	},
-	/* COA-17: a child's level is its parent's + 1 and its root is its parent's root; a root is its own. */
-	hierarchy: { parent: "PARENTACCOUNT", level: "INDENTLEVEL", root: "FIRSTPARENTACCOUNT", isChild: "SUBACCOUNT" },
-	/* COA-28: a trigger deletes the account's GLACTUAL rows; GLBALANCETEMP is a report scratch table. */
-	ignoreReferences: ["GLACTUAL", "GLBALANCETEMP"],
-
-	beforeSave: async ({ values, existing, isNew, parent, children, usage, defaccntNames, companyCurrency, currencyExists }) => {
-		const type = values.ACCOUNTTYPE;
-
-		/* COA-16: a child has its parent's type. */
-		if (parent && Number(parent.accounttype) !== type) {
-			refuse(`Account ${values.GLACCOUNT} must have the type of its parent ${parent.glaccount} (${parent.accounttype}).`);
-		}
-
-		/* COA-06/07/08: Bank/AR/AP carry a currency — the company's when none is given; any other type carries none. */
-		if (WITH_CURRENCY.includes(type)) {
-			if (values.CURRENCYID === null) values.CURRENCYID = await companyCurrency();
-			if (values.CURRENCYID === null || !(await currencyExists(values.CURRENCYID))) {
-				refuse(`Currency ${values.CURRENCYID} does not exist.`);
-			}
-		} else {
-			values.CURRENCYID = null;
-		}
-
-		if (isNew) return;
-
-		const oldType = Number(existing.accounttype);
-		const typeChanged = oldType !== type;
-		const oldCurrency = existing.currencyid === null || existing.currencyid === undefined ? null : Number(existing.currencyid);
-		const currencyChanged = oldCurrency !== values.CURRENCYID;
-		const posted = typeChanged || currencyChanged ? (await usage()).has("GLHIST") : false;
-
-		if (typeChanged) {
-			if (children.length > 0) refuse(`Account ${values.GLACCOUNT} has sub-accounts, which carry its type: its type cannot change.`);
-			const names = await defaccntNames();
-			if (names.some((n) => FIXED_TYPE_NAMES.includes(n))) {
-				refuse(`Account ${values.GLACCOUNT} is the company's ${names.join(", ")} account: its type cannot change.`);
-			}
-			if (posted && LOCKED_TYPES.includes(oldType)) {
-				refuse(`Account ${values.GLACCOUNT} has transactions: a Bank, AR, AP or Inventory account keeps its type (COA-12).`);
-			}
-			if (posted && LOCKED_TYPES.includes(type)) {
-				refuse(`Account ${values.GLACCOUNT} has transactions: it cannot become a Bank, AR, AP or Inventory account (COA-09).`);
-			}
-		}
-		/* COA-11 */
-		if (currencyChanged && posted && WITH_CURRENCY.includes(oldType)) {
-			refuse(`Account ${values.GLACCOUNT} has transactions: its currency cannot change.`);
-		}
-
-		/* COA-21: a default account is not suspended here (the desktop clears it from DEFACCNT first). */
-		if (Number(existing.suspended) !== 1 && values.SUSPENDED === 1) {
-			const names = await defaccntNames();
-			if (names.length > 0) refuse(`Account ${values.GLACCOUNT} is a default account (${names.join(", ")}): it cannot be suspended here.`);
-		}
-	},
-};

package/engine/fina/masters/currency.js

@@ -1,39 +0,0 @@
-/*
- * Doc 8 M3 — Kurs (CURRENCY), written through FINA's TCurrencyDataset.
- *
- * docs/DOC8-APPENDIX-RULE-INVENTORIES.md §2.4. No rights column: the desktop's Kurs menu needs user level 0 or 1, which
- * identity.js reads as the `currency` rights. The name is the code (unique, G-02). EXCHANGERATE is NUMERIC(18,4): one
- * current rate per currency, 4 decimals. Adding a second currency is what turns Multi Currency on (D3, D3a).
- * The dataset itself makes a lone rate-1 currency the company default (CUR-04/05).
- */
-import { finaError } from "../errors.js";
-
-const refuse = (message) => {
-	throw finaError("MASTER_RULE", message);
-};
-
-export default {
-	name: "currency",
-	label: "currency",
-	rights: "currency",
-	table: "CURRENCY",
-	key: "CURRENCYID",
-	keyType: "integer",
-	code: "CURRENCYNAME",
-	dataModule: "TCurrencyDataset",
-	columns: {
-		CURRENCYNAME: { type: "string", size: 20, required: true },
-		EXCHANGERATE: { type: "decimal4", required: true },
-		COUNTRYNAME: { type: "string", size: 80 },
-		CURRENCYSYMBOL: { type: "string", size: 10 },
-	},
-
-	beforeSave: async ({ values, key, isNew, companyCurrency }) => {
-		/* CUR-02 */
-		if (values.EXCHANGERATE === 0) refuse("Rate cannot be zero.");
-		if (values.EXCHANGERATE < 0) refuse(`A rate cannot be negative (${values.EXCHANGERATE}).`);
-		if (!isNew && Number(key) === Number(await companyCurrency()) && values.EXCHANGERATE !== 1) {
-			refuse(`${values.CURRENCYNAME} is the company's default currency: its rate is 1.`);
-		}
-	},
-};

package/engine/fina/masters/department.js

@@ -1,32 +0,0 @@
-/*
- * Doc 8 M3 — Departemen (DEPARTMENT), written through FINA's TDepartmentDataset.
- *
- * docs/DOC8-APPENDIX-RULE-INVENTORIES.md §2.2. Rights: DEPT C / E (D4). The id is FINA's (Get_DeptID); the number is
- * the code the user enters, unique case-insensitively (G-02).
- *
- * Hierarchy: SUBDEPTID = the parent's id, ISSUBDEPT = 1 under a parent, INDENTLEVEL = parent's + 1, PARENTDEPTID = the
- * root's id (DEP-08). A new ROOT sends PARENTDEPTID empty: FINA sets it to the new id (DEP-02), which is not known
- * before the insert.
- */
-export default {
-	name: "department",
-	label: "department",
-	rights: "dept",
-	table: "DEPARTMENT",
-	key: "DEPTID",
-	keyType: "integer",
-	code: "DEPTNO",
-	dataModule: "TDepartmentDataset",
-	columns: {
-		/* DEP-07: the desktop refuses a number over 18 characters. */
-		DEPTNO: { type: "string", size: 18, required: true },
-		DEPTNAME: { type: "string", size: 60, required: true },
-		SUBDEPTID: { type: "integer" },
-		/* DEP-04: the API leaves SUSPENDED / ISSUBDEPT NULL unless sent. */
-		SUSPENDED: { type: "flag", default: 0 },
-		DESCRIPTION: { type: "string", size: 240 },
-		CONTACT_NAME: { type: "string", size: 60 },
-	},
-	hierarchy: { parent: "SUBDEPTID", level: "INDENTLEVEL", root: "PARENTDEPTID", isChild: "ISSUBDEPT" },
-	ignoreReferences: ["GLBALANCETEMP"],
-};

package/engine/fina/masters/index.js

@@ -1,21 +0,0 @@
-/*
- * Doc 8 M3 — the FINA masters engine/fina serves, by the name the browser uses.
- *
- * ⚠️ SERVER-OWNED. A request names a master; the table, its key, its columns and FINA's dataset class come from here.
- * Nothing a browser sends can point a write at another table or dataset.
- */
-import { finaError } from "../errors.js";
-import coa from "./coa.js";
-import department from "./department.js";
-import project from "./project.js";
-import currency from "./currency.js";
-
-const MASTERS = { coa, department, project, currency };
-
-export const MASTER_NAMES = Object.keys(MASTERS);
-
-export const masterOf = (name) => {
-	const master = MASTERS[String(name ?? "").trim().toLowerCase()];
-	if (!master) throw finaError("INVALID", `Unknown master ${JSON.stringify(name)}: it is one of ${MASTER_NAMES.join(", ")}.`);
-	return master;
-};

package/engine/fina/masters/project.js

@@ -1,53 +0,0 @@
-/*
- * Doc 8 M3 — Proyek (PROJECT), written through FINA's TProjectDataset.
- *
- * docs/DOC8-APPENDIX-RULE-INVENTORIES.md §2.3. Rights: PROJ C / E (D4). Hierarchy as Departemen: SUBPROJECTID,
- * SUBPROJECT, INDENTLEVEL, PARENTPROJECTID (PRJ-08); HEADER is not maintained (derived from children).
- * ⚠️ FINA's column is FINSHED_DATE (sic).
- */
-import { finaError } from "../errors.js";
-
-const refuse = (message) => {
-	throw finaError("MASTER_RULE", message);
-};
-const today = () => new Date().toISOString().slice(0, 10);
-
-export default {
-	name: "project",
-	label: "project",
-	rights: "proj",
-	table: "PROJECT",
-	key: "PROJECTID",
-	keyType: "integer",
-	code: "PROJECTNO",
-	dataModule: "TProjectDataset",
-	columns: {
-		PROJECTNO: { type: "string", size: 20, required: true },
-		PROJECTNAME: { type: "string", size: 60, required: true },
-		CONTACTNAME: { type: "string", size: 60 },
-		MANAGERNAME: { type: "string", size: 60 },
-		START_DATE: { type: "date" },
-		FINSHED_DATE: { type: "date" },
-		SUBPROJECTID: { type: "integer" },
-		/* PRJ-05: the API leaves SUBPROJECT / SUSPENDED / FINISHED NULL unless sent. */
-		SUSPENDED: { type: "flag", default: 0 },
-		FINISHED: { type: "flag", default: 0 },
-		PERCENTCOMPLETED: { type: "decimal4", default: 0 },
-		DESCRIPTION: { type: "string", size: 240 },
-	},
-	hierarchy: { parent: "SUBPROJECTID", level: "INDENTLEVEL", root: "PARENTPROJECTID", isChild: "SUBPROJECT" },
-	ignoreReferences: ["GLBALANCETEMP"],
-
-	beforeSave: async ({ values }) => {
-		/* PRJ-07: the dates default to today; the finish is not before the start. */
-		if (values.START_DATE === null) values.START_DATE = today();
-		if (values.FINSHED_DATE === null) values.FINSHED_DATE = values.START_DATE > today() ? values.START_DATE : today();
-		if (values.FINSHED_DATE < values.START_DATE) refuse(`The finish date ${values.FINSHED_DATE} is before the start date ${values.START_DATE}.`);
-
-		/* PRJ-12: percent completed is 0–100; 100 means finished, and finished means 100. */
-		const percent = values.PERCENTCOMPLETED ?? 0;
-		if (percent < 0 || percent > 100) refuse(`Percent completed must be between 0 and 100 (it is ${percent}).`);
-		if (values.FINISHED === 1) values.PERCENTCOMPLETED = 100;
-		else values.FINISHED = percent === 100 ? 1 : 0;
-	},
-};

package/engine/fina/period.js

@@ -1,56 +0,0 @@
-/*
- * Doc 8 M5a — FINA's own period check (contract §6, §8; FinaXE10 model/utility/CheckPeriodUtility.pas, Language.pas).
- *
- * `SELECT RES FROM CHECK_PERIOD(month, year)`: 0 open; 1 the fiscal year is not defined; 2 before the current fiscal
- * year; 3 outside the allowed range; 4 outside the EXPECTED range — a yes/no dialog on the desktop, which the FINA API
- * would raise on its own server (and hang on) under HEADLESS, so Biz-A refuses it too (contract §8, safe default).
- *
- * ⚠️ The API checks only the date a JV HAD on an edit (appendix V12): the writer asks the new date here as well.
- */
-import { finaError } from "./errors.js";
-import { toDateOnly } from "./lock.js";
-
-const WORDS = {
-	1: () => "FINA's current fiscal year is not yet defined (Company Info).",
-	2: (day) => `${day} is prior to the current fiscal year in FINA.`,
-	3: (day) => `${day} is not within the allowed range defined by FINA's Company Info.`,
-	4: (day) => `${day} is not within the expected range defined by FINA's Company Info; FINA asks for a confirmation there, so Biz-A does not save it.`,
-};
-
-export const checkPeriods = async (client, dates) => {
-	const months = new Map();
-	for (const date of dates ?? []) {
-		if (date === null || date === undefined || date === "") continue;
-		const day = toDateOnly(date);
-		if (!day) throw finaError("INVALID", `${JSON.stringify(date)} is not a date.`);
-		const [year, month] = day.split("-").map(Number);
-		const key = `${year}-${month}`;
-		if (!months.has(key)) months.set(key, { year, month, day });
-	}
-	for (const { year, month, day } of months.values()) {
-		const rows = await client.executeSql(`SELECT RES FROM CHECK_PERIOD(${month}, ${year})`);
-		const res = Number(rows?.[0]?.res ?? 0);
-		if (res !== 0) throw finaError("PERIOD_CLOSED", (WORDS[res] ?? (() => `FINA refuses the period of ${day} (CHECK_PERIOD ${res}).`))(day));
-	}
-};
-
-/*
- * Doc 8 M5b — L-08: FINA's answer for each month ('YYYY-MM' → RES, 0 open), one question per month. Daftar JV asks for
- * the months of the rows it shows and disables Ubah / Hapus where the period is not open; the writer still refuses.
- */
-export const periodStates = async (client, months) => {
-	if (!Array.isArray(months)) throw finaError("INVALID", "The months are a list of YYYY-MM.");
-	const wanted = [];
-	for (const month of months) {
-		const m = /^(\d{4})-(0[1-9]|1[0-2])$/.exec(String(month ?? ""));
-		if (!m) throw finaError("INVALID", `${JSON.stringify(month)} is not a month (YYYY-MM).`);
-		if (!wanted.includes(month)) wanted.push(month);
-	}
-	const states = {};
-	for (const month of wanted) {
-		const [year, mm] = month.split("-").map(Number);
-		const rows = await client.executeSql(`SELECT RES FROM CHECK_PERIOD(${mm}, ${year})`);
-		states[month] = Number(rows?.[0]?.res ?? 0);
-	}
-	return states;
-};