Find Query Window的運作(手電筒)

標籤：strong   代碼   for   window   c   res   

Find Query Window的運作？(手電筒)

 

提示: 在點選 Toolbar的 Find鈕時，系統會觸發 Query_Find此 Trigger。

     執行 App_Find.Query_Find此 Procedure時，系統自動將 :Parameter.G_Query_Find設定為 TRUE。

 

步驟一、點擊手電筒按鈕，彈出查詢時段

在Query Block的QUERY_FIND Trigger (override) 寫入以下代碼：

App_Find.Query_Find( ‘<Result Window>’，’<Query Window>’，’<Query Block>’ )；

--

app_find.query_find(‘XXWIP_WAFERLOT_V‘, ‘XXWAFER_FIND‘, ‘XXWAFER_FIND‘);

 

步驟二、指定被查詢的Block，執行查詢

在查詢時段Find Button的 WHEN-BUTTON-PRESSED Trigger中，寫入以下代碼：

app_find.find(‘<Result Block>‘);

相當於 go_block(‘<Result Block>‘);  execute_query;

--

:parameter.G_query_find := ‘TRUE‘;

app_find.find(‘XXWIP_WAFERLOT_V‘);

:parameter.G_query_find := ‘FALSE‘;

 

步驟三、編輯查詢條件

步驟 3、在 Result Block中的 PRE-QUERY此 Block Trigger (Before)，程式碼如下：

if :Parameter.G_Query_Find = ‘TRUE’ then

<Result Block Item> := ：<Query Block Item>；

…

:Parameter.G_Query_Find := ‘FALSE’；

end if；

--

if (:parameter.g_query_find = ‘TRUE‘) then

              if (:XXWAFER_FIND.CUSTOMER is not null) then

                :XXWIP_WAFERLOT_V.CUSTOMER := :XXWAFER_FIND.CUSTOMER;

              end if;

              ...

              :parameter.g_query_find := ‘FALSE‘;

end if;