From 0756bf12d10cf1b7f78c571de0a9ad69cbaeb7ca Mon Sep 17 00:00:00 2001
From: curtis <curtis@i-mps.com>
Date: 星期一, 30 三月 2026 14:24:17 +0800
Subject: [PATCH] fix: 更新內部引用方法參照
---
reassemble/CB_IMGPSScanImp.listMgr.pas | 38 ++++++++++++++++++++++++++++++++++++++
1 files changed, 38 insertions(+), 0 deletions(-)
diff --git a/reassemble/CB_IMGPSScanImp.listMgr.pas b/reassemble/CB_IMGPSScanImp.listMgr.pas
new file mode 100644
index 0000000..6fff09c
--- /dev/null
+++ b/reassemble/CB_IMGPSScanImp.listMgr.pas
@@ -0,0 +1,38 @@
+{ ==============================================================================
+ 方法名稱：SetFormID_DocNo
+ 引用相依：
+ 方法描述：提取 FORM_INF_List 中的 FormID 與 DocNo 欄位至獨立清單。
+============================================================================== }
+Procedure TCB_IMGPSScanX.SetFormID_DocNo; //將FormID及Docno抽出來另存入list裡 20130403增加
+var
+ i : Integer;
+begin
+ for i := 1 to FORM_INF_List.Count-1 do
+ begin
+ FormID_List.Add(GetSQLData(FORM_INF_List,'T1.FORM_ID',i));
+ DocNo_List.Add(GetSQLData(FORM_INF_List,'T1.DOC_NO',i));
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：SetIn_WH_DocNo
+ 引用相依：
+ 方法描述：提取所有入庫屬性（IS_IN_WH）為 'Y' 的文件編號至清單。
+============================================================================== }
+Procedure TCB_IMGPSScanX.SetIn_WH_DocNo; //將要入庫的DocNo抽出來另存入list裡
+var
+ i : Integer;
+begin
+ for i := 1 to Doc_Inf_List.Count - 1 do
+ begin
+
+ if GetSQLData(Doc_Inf_List,'IS_IN_WH',i) = 'Y' then
+ IN_WH_DocNoList.Add(GetSQLData(Doc_Inf_List,'DOC_NO',i));
+ end;
+ {Showmessage(IN_WH_DocNoList.Text);
+ StringtoFile(IN_WH_DocNoList.Text,'D:\121.txt');}
+end;
+
+
--
Gitblit v1.8.0