ORACLE EBS FORM二次开发整理.docVIP

开始开发标准FORM 输出不必要的BLOCKNAME，DETAILBLOCK。（包括数据块，画布，窗口） 修改触发器:PRE-FORM FND_STANDARD.FORM_INFO(版本号，名称，模块，日期，作者)； APP_WINDOW.SET_WINDOW_POSITIN(‘第一个窗口名称’,’FIRST_WINDOW’); FND_ORG.CHOOSE_ORG；――选择组织 APP_WINDOW.SET_TITLE(‘窗体名称’，:global.org_code)； 修改程序单元：app_customer:close_window 编译 f60gen module=/porcli/applmgr/1159/au/11.5.0/forms/ZHS/IAQTEST01.fmb userid=apps/simple4u output_file=/porcli/applmgr/1159/inv/11.5.0/forms/ZHS/IAQTEST01.fmx module_type=form batch=no compile_all=yes f60gen Form Name apps/apps password pre_insert, pre_update中加入代码：fnd_standard.set_who QUERY FIND 制作 把APPSTAND 的QUERY FIND 对象组拉到 开发的FORM上，选择子类。 在目的数据块的添加QUERY FIND （BLOCK LEVEL，注：可以从FORM LEVEL拷贝），然后修改代码 app_find.query_find (block_window VARCHAR2, --目的数据块 find_window VARCHAR2, --查询窗口 find_block VARCHAR2) --查询数据块 4．在QUERY FIND里面添加文本项等查询内容。 3．在目的数据块添加PRE-QUERY(BLOCK LEVEL)，添加代码如下： IF :parameter.G_query_find = TRUE THEN APP_FIND.QUERY_RANGE(:QUERY_FIND.CDATE_FROM, :QUERY_FIND.CDATE_TO, MAIN.CREATION_DATE); APP_FIND.QUERY_RANGE(:QUERY_FIND.ITEM_FROM, :QUERY_FIND.ITEM_TO, MAIN.SEGMENT1); APP_FIND.QUERY_RANGE(:QUERY_FIND.DESC_FROM, :QUERY_FIND.DESC_TO, MAIN.DESCRIPTION); :parameter.G_query_find := FALSE; END IF; FOLDER 制作 添加附加程序库： APPFLDR.pll. 把APPSTAND 的STANDARD FOLDER 对象组拉到 开发的FORM上，选择子类。 在目的画布上画一个堆叠画布，之类信息选择CANVAS_STACKED。 创建一个数据块，作为创建数据块的FOLDER使用，子类信息选择BLOCK。 把需要放到FOLDER的数据项放到堆叠画布上，把这些数据项的提示全部去掉，然后给每一个数据项创建一个提示，提示用显示项做（基于新建数据块），子类信息选择FOLDER_PROMPT_MULTIROW，显示项名称和对应的数据项名称必须相同。 创建三个按钮（基于新建数据块），名称分别是ORDER_BY1,ORDER_BY2,ORDER_BY3,之类信息选择之类信息选择FOLDER_ORDER_BY,把这三个按钮放在堆叠画布上（放在看不见的区域）。 在原来画布上创建一个FOLDER_OPEN按钮（基于新建数据块），之类信息选择FOLDER_OPEN。 在原来画布上创建一个FOLDER_TITLE显示项（基于新建数据块），之类信息选择DYNAMIC_TITLE。 在新建的数据块上创建一个FOLDER_DUMMY,之类信息选择FOLDER_DUMMY。 FOLDER_ACTI