人手改的那一手真正落得下去;界面不撒谎那几处补齐

手改是**兜 AI 的错**的那一手 —— 这一轮把它从「摆在那儿但落不了地」做成真的:

件上就地改
· 保存**按地址收**,不看当下那张卡:载荷从前借道工单的 `blocks[i]` 取列名,
  于是熔断卡(没有 blocks)在屏上时,人补的那一格一个字都送不出去 ——
  而他要补的恰恰是把这一单卡住的那个必填格。授权面改由活动清单的台账声明把关。
· **能增删行**:错不止「这一格填错了」,还有「这一行不该在」与「漏了一行」。
  删挂记号不当场抹掉(看得见、可后悔),且**删要说出来**(`drops`)——
  「没回传就是删了」会把一次不完整的回传变成一次删表。
· **必填没填按不下提交**:与放行门 L1 同一个数同一套算法;闸上摆出差在哪一行哪一格。
· 只写真改了的那几行 —— 改一格却留「修订 4 行」的痕,那句话是假的。

判据与门
· 裁量判据带谓词时**谓词说了算**:「选填缺口已补齐」基座数得出来,
  人填好的目标价它照样判「客户未提供」的毛病由此消掉。
· 验收卡判据**读时现算** —— 人在成果件上补一格,判据跟着变。
· 放行门认「**办完了没有**」不认「有人写过」:从前写个 `false` 就把门推开,
  于是一单没打标就进了放行门。三个数全由基座现数。
· 拒回把「活没干完」说成「数或行对不上」的毛病:判据点名的表一行都没写时直说那一步没办。
  **指向两扇打不开的门,比不指还糟。**

界面不撒谎
· 日志只有三色:负责人绿 · 智能体蓝 · 系统灰(归侧五种是度量的分法,不是给人看的)。
· 验收收口答两件事:落了什么(按**交付物**点名,一份成果的几张表并成一行)、
  往哪儿去(转出哪一口、带过去哪些字段);一个口都没发就直说到此为止。
· 签完到收尾之间那一段有自己的话「字已签下,正在落地」—— 中间态本来就该说出来,只是要说对。
· 消息不再被内部事件刷屏:只有从通道进来的件才谈得上「无人认领」。
· 建客户公司与联系人**一次确认落两行**;联系人编码自增不问人;卡面摆表的人读名。

A1 三案例端到端全 released:全 A 类直通 12 拍 / 客户点名跳一条 10 拍 / 新客户缺必填 14 拍。
五道门禁全绿(971 passed)。

Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01JsTDjoHovERXyy6Wmw1ALp

apps/api/src/modules/ledger/internal/adapter/ledger-store.ts

@@ -100,12 +100,39 @@ function buildStore(runner: Queryable, pool: Pool): LedgerStore {
       return materialized;
     },
 
+    /*
+     * 记下对象性质 —— **每次应用声明都写**,不只建表那一次。
+     * 挂在 create-table 分支上是错的(踩过):表早就建好了,那条分支不走,
+     * meta 永远是空的,治理台上全部表都成了「无人声明」。
+     */
+    async setObjectMeta(ref, kind, caseKey) {
+      await runner.query(
+        `insert into ledger.__object_meta (domain, object, kind, case_key) values ($1,$2,$3,$4)
+           on conflict (domain, object) do update set kind = excluded.kind, case_key = excluded.case_key`,
+        [ref.domain, ref.object, kind, caseKey ?? null],
+      );
+    },
+
     async listObjects() {
       // 表注释即人读名 —— 与表名同一次查询取回,治理台不必逐个 describe 才知道叫什么
-      const res = await runner.query<{ table_name: string; label: string | null }>(
+      const res = await runner.query<{
+        table_name: string;
+        label: string | null;
+        kind: string | null;
+        case_key: string | null;
+      }>(
+        /*
+         * 性质与人读名**同一次查询取回**:治理台要按性质分区,而性质写在活动清单里 ——
+         * 若让路由每次去把清单捞回来重建,那是 12 个活动 × 全版本清单 ≈ 1.5MB 的 JSON
+         * 解析(实测热连接 73ms、并发八次 350ms,慢请求还占住浏览器连接连累别的页)。
+         * 物化的东西记在物化侧:表建出来那一刻性质就定了。
+         */
         `select t.table_name,
-                obj_description(($1 || '.' || quote_ident(t.table_name))::regclass) as label
+                obj_description(($1 || '.' || quote_ident(t.table_name))::regclass) as label,
+                m.kind, m.case_key
            from information_schema.tables t
+           left join ledger.__object_meta m
+             on m.domain || '__' || m.object = t.table_name
           where t.table_schema = $1 and t.table_name not like '\\_\\_%' order by t.table_name`,
         [LEDGER_SCHEMA],
       );
@@ -117,11 +144,21 @@ function buildStore(runner: Queryable, pool: Pool): LedgerStore {
             domain: r.table_name.slice(0, idx),
             object: r.table_name.slice(idx + 2),
             ...(r.label === null ? {} : { label: r.label }),
+            ...(r.kind === null ? {} : { kind: r.kind }),
+            ...(r.case_key === null ? {} : { caseKey: r.case_key }),
           },
         ];
       });
     },
 
+    /** 主数据清单 —— 放行写拿它挡试跑单;性质在 `__object_meta`,一次 where 取回 */
+    async masterRefs() {
+      const res = await runner.query<{ domain: string; object: string }>(
+        `select domain, object from ledger.__object_meta where kind = 'master'`,
+      );
+      return res.rows.map((r) => ({ domain: r.domain, object: r.object }));
+    },
+
     async applyChanges(ref, changes) {
       const table = `${LEDGER_SCHEMA}.${quoteIdent(tableNameOf(ref))}`;
       /*
@@ -141,6 +178,7 @@ function buildStore(runner: Queryable, pool: Pool): LedgerStore {
                 ? `, primary key (${change.object.primaryKey.map(quoteIdent).join(', ')})`
                 : '';
             await runner.query(`create table if not exists ${table} (${cols.join(', ')}${pk})`);
+
             /*
              * 人读名落**表/列注释** —— 声明里带的 label 不能在建表这一步丢掉:
              * 丢了,治理台就只剩 `project__intake_record` 这种键给人看。
@@ -341,6 +379,21 @@ export function createDraftStore(runner: Queryable): DraftStore {
         ],
       );
     },
+    /**
+     * 撤掉本单草稿层的**一行** —— 写错了得有退路。
+     *
+     * 只删 `task_id` 那一份:正式版一个字都动不了。草稿层本来就是这一单的过程事实,
+     * 过程里写错一行是常事;没有退路的后果实测过 ——
+     * 客户说本轮跳过的那颗料被写进了有效清单,条目数报 9 而表里躺着 10,
+     * 判据 `record_rows = line_total` 正确地拦住,而模型**改不动**:
+     * 唯一能改的是那个数(改了 skipped_total 就不对),于是 13 次拒回、23 拍、234k token。
+     */
+    async drop(taskId, ref, key) {
+      await runner.query(
+        `delete from ${DRAFT_TABLE} where task_id = $1 and domain = $2 and object = $3 and key_hash = $4`,
+        [taskId, ref.domain, ref.object, keyOf(key)],
+      );
+    },
     async clear(taskId) {
       await runner.query(`delete from ${DRAFT_TABLE} where task_id = $1`, [taskId]);
     },