Form 电子表格（JTF GRID）

Posted 2020-10-10 无涯

JTF GRID 的简单概念

JTF Grid不是Form 的标准功能，而是 Oracle自己在 EBS 开发中总结出来的“可配置块字段”：块中有多少字段可以通过专门的界面定义。

 

对于开发来说，要做的事情就是用“遵循 JTF Grid规范”换取“增删字段无需修改 Form代码”。

 

测试：

1.引用JTF Grid的PLL库

选中 Attached Libraries ，点击“+ ”，选择 JTF_GRID.pll，其将自动引用 JTF_UTIL 、JTFDEBUG 。如果本地没有请先从服务器下载

 

2.拷贝标准 JTF Grid对象

 

1.1 对象组

打开 JTFSTAND.fmb，把对象组“JTF_GRID”拖到我们自己的 Form中，并选择“Subclass”而非“ Copy”，这个和前面讲的Folder一样。

 

这样会自动产生一系列用于 JTF_GRID的对象：块、画布、参数、 Property Classes、Window ，尤其注意 Form级触发器JTF_GRID_EVENT 。这些都不用修改。

 

1.2 过程

从JTFSTAND.fmb拷贝 JTF_CUSTOM_GRID_EVENT过程到我们自己的Form中，然后补上事件处理，暂时全部放 null

 

PROCEDURE jtf_custom_grid_event(gridname  IN VARCHAR2

                               ,eventtype IN VARCHAR2 ) IS

    grid_selection jtf_grid_property.row_selection_type;

    l_start_row    NUMBER;

BEGIN

    IF eventtype = jtf_grid_events.hyperlink_event THEN

        NULL;

    ELSIF eventtype = jtf_grid_events.new_record_event THEN

        NULL;

    ELSIF eventtype = jtf_grid_events.popup_event THEN

        NULL;

    ELSIF eventtype = jtf_grid_events.row_selection_event THEN

        NULL;

    ELSIF eventtype = jtf_grid_events.end_of_find_event THEN

        NULL;

    ELSIF eventtype = jtf_grid_events.doubleclick_event THEN

        NULL;

    END IF ;

END;

 

3.创建数据库对象

 

-- Create table
CREATE TABLE cux_test_jtf_grid 
AS 
SELECT line_num
      ,vendor_name
      ,vendor_id
      ,order_date
      ,po_number
      ,inventory_item_id
      ,item_number
      ,DESCRIPTION
      ,quantity
      ,unit_of_measure
      ,unit_price
      ,currency_code 
FROM  xxibi_rcv_att_ohhand_v ;

--Or Create table
create table CUX_TEST_JTF_GRID
(
  LINE_NUM          NUMBER not null,
  VENDOR_NAME       VARCHAR2(240),
  VENDOR_ID         NUMBER,
  ORDER_DATE        DATE,
  PO_NUMBER         VARCHAR2(20) not null,
  INVENTORY_ITEM_ID NUMBER not null,
  ITEM_NUMBER       VARCHAR2(40),
  DESCRIPTION       VARCHAR2(240),
  QUANTITY          NUMBER not null,
  UNIT_OF_MEASURE   VARCHAR2(25) not null,
  UNIT_PRICE        NUMBER,
  CURRENCY_CODE     VARCHAR2(15)
)

 

 

4.定义 CRM 电子表格

路径：

 输入电子表格名称、源视图、字段定义

 

5.创建GRID块

 

手工创建非数据库块，规范起见，块名后加“GRID”，这里是“DEMO_GRID”。

 

当然了，从 Template开始的常规修改步骤也是要做的。

 

6.修改GRID块

 

添加三个ITEM

 

Bean Area :READONLY_GRID

 

Button :FIND

 

Button :DETAIL

 

 

 

7.布局ITEM到画布

 

对于Bean Area 只能在其属性上设置其在画布上的显示宽度和高度

 

8.添加触发器代码

 

Form 级别 WHEN-NEW-FORM-INSTANCE

 

IF NOT jtf_grid.getbooleanproperty(\'DEMO_GRID.READONLY_GRID\',

                                   jtf_grid_property.initialized) THEN

   jtf_grid.init(\'DEMO_GRID.READONLY_GRID\',\'CUX_TEST_JTF_GRID_V\');

   jtf_grid.setbooleanproperty(\'DEMO_GRID.READONLY_GRID\',

                               jtf_grid_property.allow_multiple_row_selection,

                               FALSE);

END IF ;

 

用户点击 Find，通常是弹出查询界面，输入完条件再执行查询，我们这里省去查询条件界面

Find 按钮 WHEN-BUTTON-PRESSED

 

jtf_grid.removeallbindvariables( \'DEMO_GRID.READONLY_GRID\');

 

jtf_grid.setcharproperty(\'DEMO_GRID.READONLY_GRID\'

                        ,jtf_grid_property.where_clause

                        ,\'CURRENCY_CODE = \'\'USD\'\'\');

 

IF jtf_grid.getbooleanproperty(\'DEMO_GRID.READONLY_GRID\'

                              ,jtf_grid_property.is_populated) THEN

    jtf_grid.refresh(\'DEMO_GRID.READONLY_GRID\');

ELSE

    jtf_grid.populate(\'DEMO_GRID.READONLY_GRID\');

END IF ;

 

9.处理选择事件

用户选中某行后，我们可以根据其选中的信息去打开一个普通块，这样首先需要在 FIND按钮的WHEN-BUTTON-PRESSED 中编写

jtf_grid.requestrowselection(\'DEMO_GRID.READONLY_GRID\');

 

可以打开该包查看其具体作用。然后在过程 jtf_custom_grid_event中响应选择事件

 

PROCEDURE JTF_CUSTOM_GRID_EVENT(gridName in varchar2, eventType in varchar2) IS

  grid_selection JTF_GRID_PROPERTY.ROW_SELECTION_TYPE;

  l_start_row  number;

BEGIN

  IF eventtype = jtf_grid_events.hyperlink_event THEN

    null;

  ELSIF eventtype = jtf_grid_events.new_record_event THEN

    null;

  ELSIF eventtype = jtf_grid_events.popup_event THEN

    null;

  ELSIF eventtype = jtf_grid_events.row_selection_event THEN

    grid_selection := jtf_grid.getRowSelection(\'DMEO_GRID.READONLY_GRID\' );

    if grid_selection.COUNT > 0 then

      l_start_row := grid_selection(1).startrow;

      --fnd_message.debug(jtf_grid.getcolumncharvalue(\'DMEO_GRID.READONLY_GRID\',l_start_row,\'NAME\'));

    end if ;

  ELSIF eventtype = jtf_grid_events.end_of_find_event THEN

    null;

  ELSIF eventtype = jtf_grid_events.doubleclick_event THEN

    null;

  END IF;

END;

 

10.上传编译