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.inbound.pas | 147 +++++++++++++++++++++++++++++++++++++++++++++++++
1 files changed, 147 insertions(+), 0 deletions(-)
diff --git a/reassemble/CB_IMGPSScanImp.inbound.pas b/reassemble/CB_IMGPSScanImp.inbound.pas
new file mode 100644
index 0000000..5c4fe03
--- /dev/null
+++ b/reassemble/CB_IMGPSScanImp.inbound.pas
@@ -0,0 +1,147 @@
+{ ==============================================================================
+ 方法名稱：GetDocNo_IS_WH
+ 引用相依：
+ 方法描述：判斷指定文件編號是否屬於「入庫文件」類別。
+============================================================================== }
+Function TCB_IMGPSScanX.GetDocNo_IS_WH(DocNo:String):Boolean; //DocNo是否為入庫文件
+var
+ i :Integer;
+begin
+ Result := False;
+ for i := 0 to IN_WH_DocNoList.Count - 1 do
+ begin
+ if DocNo = IN_WH_DocNoList.Strings[i] then
+ begin
+ Result := True;
+ Break;
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：DocNoIs_In_WH
+ 引用相依：
+ 方法描述：判斷指定文件編號（包含自定義 ZZZZZ 系列）是否為入庫文件。
+============================================================================== }
+Function TCB_IMGPSScanX.DocNoIs_In_WH(DocNo:String):Boolean; //DocNo是否為入庫文件
+var
+ i : Integer;
+begin
+ Result := False;
+ if (Copy(DocNo,1,5)='ZZZZZ') then //20140728 yuu 說自訂文件也是入庫文件
+ begin
+ Result := True;
+ Exit;
+ end;
+ for i := 0 to IN_WH_DocNoList.Count -1 do
+ begin
+ if DocNo = IN_WH_DocNoList.Strings[i] then
+ begin
+ Result := True;
+ Break;
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FormIDAppear
+ 引用相依：
+ 方法描述：判斷特定的表單代碼（FormID）是否符合目前入庫/非入庫作業模式的顯示規則。
+ 主要過濾掉不屬於當前作業範疇的文件。
+============================================================================== }
+Function TCB_IMGPSScanX.FormIDAppear(FormID:String):Boolean; //FormID是否可出現
+var
+ iDocNo : String;
+begin
+ Result := True;
+ iDocNo := FormCode2DocNo(FormID);
+ if (((FIs_In_Wh = 'Y') and (not DocNoIs_In_WH(iDocNo))) or //入庫掃描不看非入庫文件
+ ((FIs_In_Wh = 'N') and (DocNoIs_In_WH(iDocNo)))) and //非入庫掃描不看入庫文件
+ ((iDocNo <> 'Attach') and (iDocNo <> 'S_Attach') and (Copy(iDocNo,1,5)<>'ZZZZZ')) then
+ Result := False;
+
+ if (FIs_In_Wh='Y') and (FWH_category='Y') then //20170816 新加
+ begin
+ if (((FIs_In_Wh = 'Y') and (not DocNoIs_In_WH(iDocNo))) or //入庫掃描不看非入庫文件
+ ((FIs_In_Wh = 'N') and (DocNoIs_In_WH(iDocNo)))) and //非入庫掃描不看入庫文件
+ ((iDocNo <> 'Attach') and (iDocNo <> 'S_Attach') and (Copy(iDocNo,1,5)<>'ZZZZZ')) then
+ Result := False;
+ end;
+
+ if (FIs_In_Wh='Y') and (FWH_category='N') then //20170816 新加
+ begin
+ Result:=True;
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：DocNoAppear
+ 引用相依：
+ 方法描述：判斷文件編號（DocNo）是否應在介面上顯示。包含針對附件與入庫屬性的互斥過
+ 濾。
+============================================================================== }
+Function TCB_IMGPSScanX.DocNoAppear(DocNo:String):Boolean; //DocNo是否可出現
+begin
+ Result := True;
+
+ {if (((FIs_In_Wh = 'Y') and (not DocNoIs_In_WH(DocNo)) or (DocNo ='S_Attach')) or //入庫掃描不看非入庫文件
+ ((FIs_In_Wh = 'N') and (DocNoIs_In_WH(DocNo)) or (DocNo ='Attach') )) {and //非入庫掃描不看入庫文件
+ (Copy(DocNo,1,5)<>'ZZZZZ')} {then
+ {Result := False;}
+ //20181031 應該要換成下面的判斷比較對,FIs_In_Wh傳空的話才會出全部
+ if (((FIs_In_Wh = 'Y') and ((not DocNoIs_In_WH(DocNo)) or (DocNo ='S_Attach'))) or //入庫掃描不看非入庫文件
+ ((FIs_In_Wh = 'N') and ((DocNoIs_In_WH(DocNo)) or (DocNo ='Attach') ))) {and //非入庫掃描不看入庫文件
+ (Copy(DocNo,1,5)<>'ZZZZZ')} then
+ Result := False;
+
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ISGuideFormID
+ 引用相依：
+ 方法描述：檢查指定的表單代碼是否屬於「引導頁（Guide Page）」清單。
+============================================================================== }
+Function TCB_IMGPSScanX.ISGuideFormID(FormID:String):Boolean;
+var
+ i : Integer;
+begin
+ Result := False;
+ for i := 0 to GuideFormIDList.Count - 1 do
+ begin
+ if FormID = GuideFormIDList.Strings[i] then
+ begin
+ Result := True;
+ Break;
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ISDivPageFormID
+ 引用相依：
+ 方法描述：檢查指定的表單代碼是否屬於「分案頁（Division Page）」清單。
+============================================================================== }
+Function TCB_IMGPSScanX.ISDivPageFormID(FormID:String):Boolean;
+var
+ i : Integer;
+begin
+ Result := False;
+
+ for i := 0 to DivPageFormIDList.Count - 1 do
+ begin
+ if FormID = DivPageFormIDList.Strings[i] then
+ begin
+ Result := True;
+ Break;
+ end;
+ end;
+end;
+
+
--
Gitblit v1.8.0