{ ==============================================================================
|
方法名稱：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;
|
