Gabriel Radureau
d2e8b3a3a4
The write-capable companion to the read-only dolibarr* skills, scoped to the erp-sandbox. Lets an AI agent rehearse bookkeeping writes against a copy of prod (ADR-0003) before a human promotes the reviewed change to prod. - scripts/dol-write.sh: write wrapper that REFUSES any host that is not erp-sandbox.arcodange.lab (the structural prod-safety guarantee) using the ai_agent_sandbox key from a gitignored .env. - scripts/thirdparty-create.sh: create client/supplier fiches; codes auto-assign via the elephant mask (code="-1"). - scripts/invoice-create.sh: customer (/invoices) or supplier (/supplierinvoices) invoices with product/service lines + ref_supplier, optional validate. - scripts/payment-record.sh: record a règlement (VIR/CB/CHQ/LIQ); customer pays full + marks paid, supplier needs an amount. - SKILL.md (safety model + workflows + the human-gated promote flow), .env.example, example input. Proven end-to-end live against the sandbox: client -> invoice (service+product lines, HT 1100 / TTC 1320) -> validate -> payment (paid); supplier -> supplier invoice (ref_supplier carried) -> validate. Host guard verified to refuse a prod URL before sending. Avoirs (credit notes) and bin/arcodange CLI wiring are planned follow-ups. Co-Authored-By: Claude Opus 4.7 (1M context) <noreply@anthropic.com>
60 lines
2.5 KiB
Bash
Executable File
60 lines
2.5 KiB
Bash
Executable File
#!/usr/bin/env bash
|
|
# Record a payment (règlement) on a validated invoice in the SANDBOX.
|
|
#
|
|
# Input: a JSON object on stdin (or a file path in $1):
|
|
# invoice_id (required) the invoice to pay
|
|
# kind "customer" | "supplier" (default "customer")
|
|
# mode "VIR" | "CB" | "CHQ" | "LIQ" (default "VIR")
|
|
# account_id (required) the bank account id receiving/paying
|
|
# date "YYYY-MM-DD" (default today)
|
|
# amount (REQUIRED for supplier; customer pays the full remaining)
|
|
# num, comment (optional)
|
|
#
|
|
# The invoice must be VALIDATED first (invoice-create.sh ... "validate":true).
|
|
# Emits the new payment id on stdout.
|
|
set -euo pipefail
|
|
SCRIPT_DIR="$(cd "$(dirname "${BASH_SOURCE[0]}")" && pwd)"
|
|
W="${SCRIPT_DIR}/dol-write.sh"
|
|
|
|
SRC="${1:-}"
|
|
if [[ -n "${SRC}" && "${SRC}" != "-" ]]; then INPUT="$(cat "${SRC}")"; else INPUT="$(cat)"; fi
|
|
|
|
PYF="$(mktemp -t dolpy.XXXXXX)"; trap 'rm -f "${PYF}"' EXIT
|
|
cat > "${PYF}" <<'PY'
|
|
import json, sys, datetime
|
|
d = json.loads(sys.stdin.read())
|
|
if not d.get("invoice_id"):
|
|
sys.exit("payment-record.sh: 'invoice_id' is required")
|
|
if not d.get("account_id"):
|
|
sys.exit("payment-record.sh: 'account_id' is required")
|
|
# Stable Dolibarr c_paiement ids (sandbox seeded from prod / standard defaults).
|
|
MODE = {"VIR": 2, "CB": 6, "CHQ": 7, "LIQ": 4}
|
|
mode = MODE.get(str(d.get("mode", "VIR")).upper())
|
|
if mode is None:
|
|
sys.exit("payment-record.sh: unknown mode (use VIR|CB|CHQ|LIQ)")
|
|
supplier = d.get("kind", "customer").lower() in ("supplier", "fournisseur")
|
|
ds = d.get("date")
|
|
epoch = int((datetime.datetime.strptime(ds, "%Y-%m-%d") if ds
|
|
else datetime.datetime.now()).timestamp())
|
|
inv = d["invoice_id"]
|
|
if supplier:
|
|
if d.get("amount") is None:
|
|
sys.exit("payment-record.sh: supplier payments require an 'amount'")
|
|
endpoint = "/supplierinvoices/%s/payments" % inv
|
|
body = {"datepaye": epoch, "paymentid": mode, "accountid": d["account_id"],
|
|
"amount": str(d["amount"]), "num_payment": d.get("num", ""),
|
|
"comment": d.get("comment", "")}
|
|
else:
|
|
endpoint = "/invoices/%s/payments" % inv
|
|
body = {"datepaye": epoch, "paymentid": mode, "closepaidinvoices": "yes",
|
|
"accountid": d["account_id"], "num_payment": d.get("num", ""),
|
|
"comment": d.get("comment", "")}
|
|
print(endpoint)
|
|
print(json.dumps(body))
|
|
PY
|
|
|
|
MAPPED="$(printf '%s' "${INPUT}" | python3 "${PYF}")"
|
|
ENDPOINT="$(sed -n 1p <<<"${MAPPED}")"
|
|
BODY="$(sed -n 2p <<<"${MAPPED}")"
|
|
"${W}" POST "${ENDPOINT}" "${BODY}"
|