w-web-perm 1.1.13 → 1.1.14

package/src/js/cellEditing.mjs

@@ -0,0 +1,91 @@
+//儲存格編輯器開啟中視為有草稿(第 115 項; R-PRINCIPLE-00 原則 10「有未存修改時收到推播不重建」; 規則帳本 R-DRAFT-KEEP-01 規則 10): 以 ag-grid 的 API 判定, 四清單頁與兩對話框共用.
+//
+//背景: 使用者在儲存格輸入了文字、尚未按 Enter(或尚未失焦)時, 輸入只在編輯器內, 還沒進 rows(rowsChange 尚未觸發, isModified 仍為假); 此時推播使清單重建(setRowData)會直接丟掉編輯器與輸入, 且不會有任何提示.
+//故編輯器開啟中視同有草稿: 不重建、凍結基準、提示「資料已被更新」; 編輯器關閉後(Enter 提交→isModified 為真續保留; Esc 或無變更→無草稿)若 store 於期間已變新, 補上一次重建.
+//
+//cmp 為 WAggridVue 元件實例(含 getApi(): ag-grid GridApi; w-aggrid-vue 2.1.9). 純函數: 不依賴 Vue; 取不到 api(尚未掛載、已銷毀)一律視為「未在編輯」.
+
+
+let apiOf = (cmp) => {
+    try {
+        let api = (cmp !== null && cmp !== undefined && typeof cmp.getApi === 'function') ? cmp.getApi() : null
+        return (api !== null && api !== undefined && typeof api.getEditingCells === 'function') ? api : null
+    }
+    catch (err) {
+        return null
+    }
+}
+
+
+/**
+ * 儲存格編輯器是否開啟中(ag-grid getEditingCells 非空)
+ *
+ * @param {Object} cmp 輸入 WAggridVue 元件實例(可為 null／undefined)
+ * @returns {Boolean} 回傳是否有儲存格正在編輯
+ */
+function isCellEditing(cmp) {
+    let api = apiOf(cmp)
+    if (api === null) {
+        return false
+    }
+    try {
+        let cs = api.getEditingCells()
+        return Array.isArray(cs) && cs.length > 0
+    }
+    catch (err) {
+        return false
+    }
+}
+
+
+let bound = new WeakSet()
+
+
+/**
+ * 對 ag-grid api 註冊一次「儲存格編輯結束」監聽(同一個 api 只註冊一次; 元件重建即換新 api, 需再呼叫)
+ *
+ * @param {Object} cmp 輸入 WAggridVue 元件實例
+ * @param {Function} onStop 輸入編輯結束(提交、Esc、失焦)後之回呼
+ * @returns {Boolean} 回傳是否已綁定(false 為 api 尚未可用, 呼叫端稍後重試)
+ */
+function bindCellEditingStop(cmp, onStop) {
+    let api = apiOf(cmp)
+    if (api === null || typeof api.addEventListener !== 'function') {
+        return false
+    }
+    if (bound.has(api)) {
+        return true
+    }
+    bound.add(api)
+    api.addEventListener('cellEditingStopped', () => {
+        try {
+            onStop()
+        }
+        catch (err) {
+            console.log('cellEditingStopped', err)
+        }
+    })
+    return true
+}
+
+
+/**
+ * 綁定編輯結束監聽, api 尚未可用時以短輪詢重試(元件於 v-if 內, 重建草稿後下一輪渲染才掛載)
+ *
+ * @param {Function} getCmp 輸入回傳 WAggridVue 元件實例之函數(每次重試重新取, 元件可能被重建)
+ * @param {Function} onStop 輸入編輯結束後之回呼
+ * @param {Number} [tries=30] 輸入最多重試次數(每次相隔 100 ms)
+ * @returns {void} 無回傳
+ */
+function bindCellEditingStopRetry(getCmp, onStop, tries = 30) {
+    if (bindCellEditingStop(getCmp(), onStop) || tries <= 0) {
+        return
+    }
+    setTimeout(() => {
+        bindCellEditingStopRetry(getCmp, onStop, tries - 1)
+    }, 100)
+}
+
+
+export { isCellEditing, bindCellEditingStop, bindCellEditingStopRetry }
+export default isCellEditing

package/src/js/draftSync.mjs

@@ -56,15 +56,91 @@ function planDraftSync({ first, editChanged, storeChanged, hasDraft, saving }) {
  * 草稿所依據之基準相對於目前 store 整表是否已過期(供顯示「資料已被更新」提示; 判準同伺服端 checkBaseline, 單一擁有者 rowDigest.compareBaseline)
  *
  * @param {Object} p 輸入參數物件
- * @param {Array} p.keys 輸入該表 schema 欄位名陣列
+ * @param {String} p.keyTable 輸入表名(targets／pemis／grups／users; 依其寫入契約計算)
  * @param {Array} p.rows 輸入目前 store 之該表列
  * @param {Array} p.baseline 輸入草稿載入時之基準
- * @returns {Boolean} 回傳是否過期(有任一列內容不同或列被增刪; 僅 order／伺服器管理欄不同不算)
+ * @returns {Boolean} 回傳是否過期(有任一列內容摘要不同、列被增刪或名次不同; 僅 order 數值改變而名次不變、或僅伺服器專有欄不同不算)
  */
-function isDraftStale({ keys, rows, baseline }) {
-    return isBaselineStale({ keys, rows, baseline })
+function isDraftStale({ keyTable, rows, baseline }) {
+    return isBaselineStale({ keyTable, rows, baseline })
 }
 
 
-export { refsChanged, planDraftSync, isDraftStale }
+/**
+ * 是否有未存之草稿: 已提交之未存修改(isModified), 或**儲存格編輯器開啟中**(已輸入、未按 Enter 或未失焦——編輯器內的輸入尚未進 rows, 但重建清單會直接丟棄它; 第 115 項, R-DRAFT-KEEP-01 規則 10)
+ *
+ * 四清單頁(changeParams 的 hasDraft)與兩對話框(planDialogSync)共用, 口徑單一.
+ *
+ * @param {Object} p 輸入參數物件
+ * @param {Boolean} p.dirty 輸入是否有已提交之未存修改(isModified 鏡像)
+ * @param {Boolean} p.editing 輸入儲存格編輯器是否開啟中(ag-grid getEditingCells 非空)
+ * @returns {Boolean} 回傳是否視為有草稿
+ */
+function hasDraftNow({ dirty, editing }) {
+    return dirty === true || editing === true
+}
+
+
+/**
+ * 反向關聯對話框(開著時)收到 store 推播之處置(第 114／115 項、修 (b); R-PRINCIPLE-00 原則 10「無未存修改時照舊重建」; 規則帳本 R-DRAFT-KEEP-01 規則 10～12)
+ *
+ * - 'none': 不須處置——未顯示、store 未變、表內容未異於載入基準(推播內容與載入時相同)、或此推播是自己存檔所致(saving)而無草稿
+ * - 'rebuild': 無未存修改(含無開啟中之儲存格編輯器)且表已異於載入基準 → 以新資料重建對話框內容並更新基準(對話框開而未編輯時不應停在過期的資料上)
+ * - 'keep': 有未存修改或開啟中之編輯器 → 保留草稿、凍結基準; 呼叫端依 stale 顯示「資料已被更新」提示
+ * - 'keepQuiet': 自己之存檔進行中(伺服端已寫入、回應未到)所致之推播, 不是他人更新 → 保留、不提示
+ *
+ * @param {Object} p 輸入參數物件
+ * @param {Boolean} p.show 輸入對話框是否顯示中
+ * @param {Boolean} p.storeChanged 輸入來源 store 是否變新(參照改變)
+ * @param {Boolean} p.stale 輸入表是否已異於對話框載入時之基準(isDraftStale)
+ * @param {Boolean} p.dirty 輸入是否有已提交之未存修改
+ * @param {Boolean} p.editing 輸入儲存格編輯器是否開啟中
+ * @param {Boolean} p.saving 輸入自己之存檔是否進行中
+ * @returns {String} 回傳 'none'｜'rebuild'｜'keep'｜'keepQuiet'
+ */
+function planDialogSync({ show, storeChanged, stale, dirty, editing, saving }) {
+    if (show !== true || storeChanged !== true) {
+        return 'none'
+    }
+    if (saving === true) {
+        return 'keepQuiet'
+    }
+    if (stale !== true) {
+        return 'none'
+    }
+    return hasDraftNow({ dirty, editing }) ? 'keep' : 'rebuild'
+}
+
+
+/**
+ * 驗證關聯對話框之主體(被編輯其歸屬之群組／權限)於存檔當下仍是開框時那一個實體(第 114 項; R-PRINCIPLE-00 原則 3、6; 規則帳本 R-SUBJECT-ID-01)
+ *
+ * 反向對話框以**名稱**引用主體(使用者 cgrups／群組 cpemis 的鍵是名稱), 不驗主體身分: 開框後主體被刪除並以同名重建(id 不同), 引用會靜默指向新實體(原則 6: 不得讓引用被同名新資料接管);
+ * 故以主體 id 與開框時之摘要(id、名稱、開框時是否已儲存)比對存檔當下的主體表: id 仍在、名稱未變才算同一實體. 不符一律拒收(收嚴, 原則 3), 提示重新載入.
+ * 開框時主體尚未儲存(store 查無該 id; 清單頁新增列未存即開對話框)者沿用既有行為(引用先指向尚不存在之名稱), 但其後 store 出現「同名而 id 不同」之另一實體時亦拒收(引用會被該實體接管).
+ *
+ * @param {Object} p 輸入參數物件
+ * @param {Object} p.subject 輸入開框時之主體摘要 { id, name, saved }(saved: 開框時 store 已有該 id)
+ * @param {Array} p.rows 輸入存檔當下之主體表列(store 的 grups 或 pemis)
+ * @returns {String} 回傳 'ok'｜'gone'(開框時已儲存之 id 現已不在: 已刪除或以同名重建)｜'renamed'(id 仍在但名稱不同)｜'taken'(開框時未儲存之主體, 現有同名而 id 不同之另一實體)｜'noSubject'(未提供有效之開框摘要, 收嚴拒收)
+ */
+function checkSubject({ subject, rows }) {
+    let id = (subject !== null && typeof subject === 'object') ? subject.id : undefined
+    let name = (subject !== null && typeof subject === 'object') ? subject.name : undefined
+    if (typeof id !== 'string' || id === '' || typeof name !== 'string' || name === '') {
+        return 'noSubject'
+    }
+    let list = (Array.isArray(rows) ? rows : []).filter((r) => r !== null && typeof r === 'object')
+    let hit = list.find((r) => r.id === id)
+    if (hit !== undefined) {
+        return hit.name === name ? 'ok' : 'renamed'
+    }
+    if (subject.saved === true) {
+        return 'gone'
+    }
+    return list.some((r) => r.name === name) ? 'taken' : 'ok'
+}
+
+
+export { refsChanged, planDraftSync, isDraftStale, hasDraftNow, planDialogSync, checkSubject }
 export default planDraftSync

package/src/js/externalRows.mjs

@@ -24,6 +24,12 @@ let isObj = (v) => v !== null && typeof v === 'object'
 let normV = (v) => JSON.stringify(v === undefined ? '' : v)
 
 
+//normC: 內容欄比對用——另視 null 與 ''／缺欄為同一空值(寫入契約之空值等價, 與基準 digestRow 同口徑; 0／false 仍異於空值).
+//  基準已視 null≡'' 為相同而通過, 此處若仍視為不同, 會對合法存檔回 saveExternalRowChanged(外審 sol#2, 2026-10-23); 相同者亦不重寫, 庫內原表示(null)不被改成 ''.
+//  from 欄不適用: null 與 '' 之 from 有別(歷史後台列, 見 checkExternalWrite), 一律用 normV.
+let normC = (v, k) => (k === 'from' ? normV(v) : JSON.stringify(v === undefined || v === null ? '' : v))
+
+
 /**
  * 判斷是否為外部列(from 為非空字串)
  *
@@ -85,15 +91,17 @@ function restoreExternalOrder(rows, ltdtOld) {
  * 將「外部列且僅伺服器管理欄(建立者／時間、更新者／時間)不同」之 diff 列移入 same(視為無變更, 不寫入)
  *
  * 外部同步每次整來源重寫, 使外部列之 timeUpdate／timeCreate／userId 隨之更新; 持舊快照之後台存檔若原樣送回該列, 其內容與庫內相同而僅伺服器管理欄較舊,
- * 寫入會把建立者與建立時間回退為舊值(D2 設計稿 S2). 內容相同即無須寫入. 只處理外部列, 後台列之 diff 判定不變.
+ * 寫入會把建立者與建立時間回退為舊值(D2 設計稿 S2). 內容相同即無須寫入. 預設只處理外部列, 後台列之 diff 判定不變.
+ * all 為真時不分外部列或後台列一律處理(perm-run01: 寫入契約 serverOnly——伺服器專有欄位存檔不採用客戶端值, 規格第 4、6 節; R-CONTRACT-01).
  *
  * @param {Object} p 輸入參數物件
  * @param {Array} p.keys 輸入該表 schema 欄位名陣列
  * @param {Object} p.r 輸入 ltdtDiffByKey 結果 { add, del, diff, same }
  * @param {Array} p.ltdtOld 輸入該表庫內全部列
+ * @param {Boolean} [p.all=false] 輸入是否不分外部列或後台列(預設只外部列)
  * @returns {Object} 回傳新之 { add, del, diff, same }
  */
-function dropServerOnlyDiff({ keys, r, ltdtOld }) {
+function dropServerOnlyDiff({ keys, r, ltdtOld, all = false }) {
     let oldById = new Map()
     ltdtOld.forEach((o) => {
         if (isObj(o) && isStr(o.id)) {
@@ -105,7 +113,7 @@ function dropServerOnlyDiff({ keys, r, ltdtOld }) {
     let same = [...r.same]
     r.diff.forEach((row) => {
         let o = isObj(row) && isStr(row.id) ? oldById.get(row.id) : undefined
-        if (o !== undefined && isExternalRow(o) && fields.every((k) => normV(row[k]) === normV(o[k]))) {
+        if (o !== undefined && (all === true || isExternalRow(o)) && fields.every((k) => normC(row[k], k) === normC(o[k], k))) {
             same.push(row)
         }
         else {
@@ -121,14 +129,16 @@ function dropServerOnlyDiff({ keys, r, ltdtOld }) {
  *
  * 伺服器管理欄由伺服器擁有(procOrm save 只覆寫 userIdUpdate／timeUpdate, 建立者與建立時間取自送入之列); 外部同步每次整來源重寫使外部列之建立者／建立時間更新,
  * 持舊草稿(前端保留未存編輯, 見 draftSync)送回該列時, 基準因排除伺服器管理欄而通過(內容未變), 若原樣寫入就把較新之建立者與建立時間回退為舊值(R-EXT-OWN-01 S2 之同一缺陷, 外審 sol 第 3 點).
- * 故改動之外部列一律以庫內之伺服器管理欄寫入. 只處理庫內為外部列者(後台列之寫入不變); 庫內無該欄者不補.
+ * 故改動之外部列一律以庫內之伺服器管理欄寫入. 預設只處理庫內為外部列者(後台列之寫入不變); 庫內無該欄者(歷史列)不補、亦不採用客戶端送入之值(刪除該欄, 保留庫內值＝仍無該欄; perm-run01 外審 sol#3).
+ * all 為真時不分外部列或後台列一律處理(perm-run01: 寫入契約 serverOnly, 見 dropServerOnlyDiff).
  *
  * @param {Object} p 輸入參數物件
  * @param {Object} p.r 輸入 ltdtDiffByKey(及 dropServerOnlyDiff)結果 { add, del, diff, same }
  * @param {Array} p.ltdtOld 輸入該表庫內全部列
+ * @param {Boolean} [p.all=false] 輸入是否不分外部列或後台列(預設只外部列)
  * @returns {Object} 回傳新之 { add, del, diff, same }(不改輸入; 未改動之列為同一物件)
  */
-function restoreServerFields({ r, ltdtOld }) {
+function restoreServerFields({ r, ltdtOld, all = false }) {
     let oldById = new Map()
     ltdtOld.forEach((o) => {
         if (isObj(o) && isStr(o.id)) {
@@ -137,7 +147,7 @@ function restoreServerFields({ r, ltdtOld }) {
     })
     let diff = r.diff.map((row) => {
         let o = isObj(row) && isStr(row.id) ? oldById.get(row.id) : undefined
-        if (o === undefined || !isExternalRow(o)) {
+        if (o === undefined || (all !== true && !isExternalRow(o))) {
             return row
         }
         let out = { ...row }
@@ -145,6 +155,10 @@ function restoreServerFields({ r, ltdtOld }) {
             if (hasOwn(o, k)) {
                 out[k] = o[k]
             }
+            else {
+                //庫內無該欄(歷史列): 不採用客戶端送入之值(寫入契約 serverOnly: 保留庫內值＝仍無該欄; 外審 sol#3, 2026-10-23)
+                delete out[k]
+            }
         })
         return out
     })
@@ -182,6 +196,9 @@ function checkExternalWrite({ keyTable, keys, r, ltdtOld, lockExternalRows = tru
         bad.push({ key, reason, k, from: isStr(from) ? from : '' })
     }
 
+    //srcKey: 外部匯入之來源鍵為身分欄(與 from 同; perm-run03, R-IMPORT-01), 只由匯入端點寫入, 後台不可新增帶值之列、不可改既有列之值(不論 lockExternalRows; 缺欄／null／'' 同一空值)
+    let normSrc = (v) => (v === undefined || v === null ? '' : v)
+
     //add
     r.add.forEach((row, k) => {
         let f = isObj(row) ? normFrom(row.from) : ''
@@ -191,6 +208,9 @@ function checkExternalWrite({ keyTable, keys, r, ltdtOld, lockExternalRows = tru
         else if (lockExternalRows && f !== '') {
             push('saveFromNotAllowed', 'addFrom', k, f)
         }
+        else if (isObj(row) && normSrc(row.srcKey) !== '') {
+            push('saveFromNotAllowed', 'addSrcKey', k, '')
+        }
     })
 
     //del
@@ -211,6 +231,10 @@ function checkExternalWrite({ keyTable, keys, r, ltdtOld, lockExternalRows = tru
             push('saveFromNotAllowed', 'fromType', k, '')
             return
         }
+        if (o !== undefined && isObj(row) && normSrc(row.srcKey) !== normSrc(o.srcKey)) {
+            push(isExternalRow(o) ? 'saveExternalRowChanged' : 'saveFromNotAllowed', 'srcKeyChanged', k, isExternalRow(o) ? o.from : '')
+            return
+        }
         if (!lockExternalRows || o === undefined) {
             return
         }
@@ -218,7 +242,7 @@ function checkExternalWrite({ keyTable, keys, r, ltdtOld, lockExternalRows = tru
             if (nf !== o.from) {
                 push('saveExternalRowChanged', 'fromChanged', k, o.from)
             }
-            else if (lockFields.some((f) => normV(row[f]) !== normV(o[f]))) {
+            else if (lockFields.some((f) => normC(row[f], f) !== normC(o[f], f))) {
                 push('saveExternalRowChanged', 'fieldChanged', k, o.from)
             }
         }
@@ -262,5 +286,5 @@ function hasExternalDiff({ r, ltdtOld }) {
 }
 
 
-export { SERVER_FIELDS, ASSIGN_FIELD, isExternalRow, getLockFields, restoreExternalOrder, dropServerOnlyDiff, restoreServerFields, checkExternalWrite, hasExternalDiff }
+export { SERVER_FIELDS, ASSIGN_FIELD, isExternalRow, getLockFields, restoreExternalOrder, dropServerOnlyDiff, restoreServerFields, checkExternalWrite, hasExternalDiff, normC }
 export default isExternalRow

package/src/js/externalUi.mjs

@@ -1,4 +1,4 @@
-import { isExternalRow, getLockFields } from './externalRows.mjs'
+import { isExternalRow, getLockFields, normC } from './externalRows.mjs'
 
 
 //清單頁(標的／權限／群組／使用者)之外部列(from 為非空字串者)前端輔助純函數(F-23; R-PRINCIPLE-00 原則 3、5; 規則帳本 R-EXT-OWN-01; ADR-037): 不依賴 Vue／DOM／語系檔,
@@ -9,10 +9,6 @@ let isStr = (v) => typeof v === 'string'
 let isObj = (v) => v !== null && typeof v === 'object'
 
 
-//normV: 比對用正規化, 同 externalRows 之 checkExternalWrite(缺欄與 '' 視為同一; 其餘以 JSON 字串比對)
-let normV = (v) => JSON.stringify(v === undefined ? '' : v)
-
-
 /**
  * 把範本之 {key} 代入(單趟掃描: 代入之值不再解析, 名稱可含 {n}、{from} 等字樣原樣顯示; 未給之佔位符原樣保留)
  *
@@ -143,7 +139,7 @@ function getExternalEdits({ keyTable, keys, rowsNew, rowsOld }) {
             return
         }
         let r = newById.get(o.id)
-        if (r === undefined || fields.some((f) => normV(r[f]) !== normV(o[f]))) {
+        if (r === undefined || fields.some((f) => normC(r[f], f) !== normC(o[f], f))) {
             n++
             if (froms.indexOf(o.from) < 0 && froms.length < 5) {
                 froms.push(o.from)