Find Query Window的运作(手电筒)

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;