首页 > 代码库 > 手电筒查询

手电筒查询

查考Oracle EBS客户化练习手册——p15:partD.实现查询

先打开APPSTAND.fmb

复制APPSTAND.fmb数据块中的QUERY-FIND到目标表单中

技术分享

按照上一步操作将APPSTAND.fmb画布和窗口中的QUERY-FIND分别复制到目标表单中,按照你的命名方式重新命名,并分别继承对应的子类信息

修改目标表单中QUERY-FIND数据块下new项的触发器WHEN-BUTTON-PRESSED

技术分享

 

修改目标表单中QUERY-FIND数据块下find项的触发器WHEN-BUTTON-PRESSED

技术分享

修改新建的数据块(即复制的QUERY_FIND)的触发器KEY-NXTBLK

技术分享

新建的数据块(即复制的QUERY_FIND)下面增加查询条件的项,用来存放查询条件的信息

技术分享

 此处可更改查询项的输入方式(LOV输入,日期输入)

在目标数据块中创建触发器PRE-QUERY,触发器代码如下(其执行模式为”BEFORE”)

IF :parameter.G_query_find = ‘TRUE‘ THEN 

 COPY(NAME_IN(‘DOC_QF.HEADER_ID‘ ),‘ORDER_HEADERS.HEADER_ID ‘ ) ;  

 APP_FIND.QUERY_RANGE( :DOC_QF.COMMIT_DATE_FROM,  :DOC_QF.COMMIT_DATE_TO  ,    ‘ORDER_HEADERS.ORDER_DATE ‘ ) ; 

 :parameter.G_query_find := ‘FALSE‘;

  END IF;

技术分享

在目标数据块中创建触发器QUERY-FIND(自己命名),触发器代码如下(其执行模式为” OVERRIDE”)

APP_FIND.QUERY_FIND( ‘MAIN‘ ,   ‘DOC_QF_WINDOW‘ ,   ‘DOC_QF‘  ) ;

技术分享

给新建的数据库(复制的QUERY-FIND)设置前一导航数据块,前一导航数据块设置回被查询的数据库

技术分享

 

手电筒查询