动态生成记录组和LOV
2015-11-02 17:16 TRACEING 阅读(620) 评论(0) 编辑 收藏 举报v_Group_Name Recordgroup;
v_Add_Gname Groupcolumn;
v_Group_Sql NUMBER;
1，定义sql语句
v_sql := SELECT Short_Code , Description from dual
2,通过名称查询记录组是否存在
v_Group_Name:=Find_Group(Ca.Result_Column_Name) --参数为记录组的名称
IF Id_Null(v_Group_Name) then
--不存在
3， v_Group_Sql := Populate_Group_With_Query(v_Group_Name, v_Sql); --重新设置SQL
4，Set_Lov_Property(Ca.Result_Column_Name, Group_Name, v_Group_Name); --设置LOV与记录组关系
5，Set_Lov_Property(Ca.Result_Column_Name, Lov_Size, 3, 4); --设置LOV SIZE
6，Set_Item_Property('CUX_QA_REPORT_LINES.' || Ca.Result_Column_Name, Lov_Name, Ca.Result_Column_Name); --设置ITEM与LOV的关系
