From 524eea3312ebc07fd6e1dc94594d33c6a69d5ef5 Mon Sep 17 00:00:00 2001
From: curtis <curtis@i-mps.com>
Date: 星期二, 31 三月 2026 09:32:51 +0800
Subject: [PATCH] fix: 型別更新 1) 新增 TShape, TMemo, TMenuItem, TImageScrollBox 2) 理清 Delphi 相依使用: IISUnit, MPSBarcode, IISImageProcess 3) 方法說明/Mermaid 生成
---
reassemble/CB_IMGPSScanImp.docmod.pas | 41 +++++++++++++++++++++--------------------
1 files changed, 21 insertions(+), 20 deletions(-)
diff --git a/reassemble/CB_IMGPSScanImp.docmod.pas b/reassemble/CB_IMGPSScanImp.docmod.pas
index d484a01..4fc67ad 100644
--- a/reassemble/CB_IMGPSScanImp.docmod.pas
+++ b/reassemble/CB_IMGPSScanImp.docmod.pas
@@ -1,11 +1,12 @@
{ ==============================================================================
- 方法名稱：OldCasetoNewCase
- 引用相依：LoadFromFile, SaveToFile
- 方法描述：將舊系統格式的案件文件份數轉換為新系統規則。方法會載入案件的文件目錄
- 清單 (CaseDocNo.dat)，並解析由全域變數傳入的舊案文件編號與名稱清單（以
- Tab 字串傳遞）。流程中會針對每個目錄編號統計其在舊資料中的出現次數，並
- 將統計後的份數結果更新至 CaseDocNo_Copies.dat 檔案中，以完成歷史資料
- 的規格對接。
+ 方法名稱 : OldCasetoNewCase
+ 引用相依 : FC_DocNoList, FC_DocNameList, CaseDocNo_Copies.dat
+ 方法描述 : 【將舊案資料結構標準化】
+ 1. 讀取：載入舊案實體目錄清單。
+ 2. 解析：從網頁傳入的 Tab 字串中解析該案件應有的文件結構。
+ 3. 統計：比對實體目錄與指令，計算每一類文件的正確份數。
+ 4. 修正：將統計結果寫入 CaseDocNo_Copies.dat，完成歷史案件到新版
+ 份數管理規則的對接。
============================================================================== }
Procedure TCB_IMGPSScanX.OldCasetoNewCase(CaseID:String); //將舊案份數轉成新規則
var
@@ -78,15 +79,13 @@
{ ==============================================================================
- 方法名稱：ErrFormtoCurrentForm
- 引用相依：LoadFromFile, FileExists, RenameFile, SaveToFile, MoveFile
- 方法描述：修正案件中歸類錯誤的表單代碼及其關聯檔案。邏輯如下：
- 1. 取得錯誤與正確表單對應的文件編號。
- 2. 遍歷案件下的所有文件目錄，載入各目錄的影像索引檔 (Context.dat)。
- 3. 識別檔名中包含 EFormID 的影像，執行實體重新命名並更新索引。
- 4. 若該目錄編號與錯誤文件編號一致，則會執行 MoveFile 搬移整個目錄至新
- 路徑，並同步更新總文件清單 (CaseDocNo.dat)，確保影像與分類資訊的一致性
- 。
+ 方法名稱 : ErrFormtoCurrentForm
+ 引用相依 : FileName2FormCode, StringReplace, MoveFile
+ 方法描述 : 【修正歸類錯誤的表單】
+ 1. 重新命名：遍歷影像索引，將檔名中錯誤的 EFormID 替換為正確的 CFormID。
+ 2. 目錄搬移：若該文件目錄名稱包含錯誤編號，則執行實體 MoveFile 搬移至
+ 正確目錄名下。
+ 3. 索引同步：同步更新 CaseDocNo.dat 與各目錄的 Context.dat 檔案。
============================================================================== }
Procedure TCB_IMGPSScanX.ErrFormtoCurrentForm(CaseID,EFormID,CFormID:String);//將舊案的錯誤FormID改正確的FormID
var
@@ -140,10 +139,12 @@
{ ==============================================================================
- 方法名稱：SetRecordEditedDocDir
- 引用相依：FileExists, LoadFromFile, SaveToFile
- 方法描述：記錄案件中曾被異動（新增或刪除）的文件目錄。將目錄名稱存入 EditedDocDir
- .dat，以便後續判斷哪些內容需要同步上傳或重新計算。
+ 方法名稱 : SetRecordEditedDocDir
+ 引用相依 : EditedDocDir.dat
+ 方法描述 : 【記錄異動的文件目錄】
+ 維護 EditedDocDir.dat 檔案。當文件目錄被新增 (A) 或刪除 (D) 時，
+ 即時更新此清單，作為後續判斷哪些目錄需重新計算 OMR 或同步至伺服器
+ 的依據。
============================================================================== }
Procedure TCB_IMGPSScanX.SetRecordEditedDocDir(Mode:Char;CaseID,DocDir:String); //記錄被異動的文件目錄 'A:加入D:刪掉'
var
--
Gitblit v1.8.0