oracle form创建列表,ORACLE FORM BUILDER 2000 数据列表显示

ORACLE FORM BUILDER 2000 数据列表显示。

按钮事件：WHEN-BUTTON-PROCESSED 。

详细代码如下：

-- begin --

DECLARE

V_level                   VARCHAR2 (10);

V_component_item          VARCHAR2 (50);

V_component_description   VARCHAR2 (100);

V_Average_cost            VARCHAR2 (20);

V_QOT_cost                VARCHAR2 (20);

CURSOR C_JP_POST

IS

SELECT   sbe.plan_level,

msi1.segment1 component_item,

msi1.description component_description,

ROUND (NVL (cic.item_cost, '0'), 5) Average_cost,

ROUND (NVL (cic1.item_cost, '0'), 5) QOT_cost

FROM   slt.slt_bom_explosions sbe,

inv.mtl_system_items_b msi,

inv.mtl_system_items_b msi1,

bom.bom_bill_of_materials bom,

bom.CST_ITEM_COSTS cic,

bom.CST_ITEM_COSTS cic1

WHERE       sbe.top_item_id = msi.inventory_item_id

AND sbe.organization_id = msi.organization_id

AND sbe.component_item_id = msi1.inventory_item_id

AND sbe.organization_id = msi1.organization_id

AND bom.bill_sequence_id = sbe.top_bill_sequence_id

AND bom.organization_id = sbe.organization_id

AND bom.assembly_item_id = sbe.top_item_id

AND sbe.component_item_id = cic.inventory_item_id(+)

AND sbe.organization_id = cic.organization_id(+)

AND sbe.component_item_id = cic1.inventory_item_id(+)

AND sbe.organization_id = cic1.organization_id(+)

AND bom.alternate_bom_designator IS NULL

AND sbe.plan_level <> '0'

AND cic.cost_type_id(+) = '2'

AND cic1.cost_type_id(+) = '1361'

AND msi.INVENTORY_ITEM_ID(+) = :SGD_QUOTE_HEADERS_ALL.ITEM_ID

AND msi.ORGANIZATION_ID(+) =

:SGD_QUOTE_HEADERS_ALL.ORGANIZATION_ID

ORDER BY   sbe.plan_level, msi1.segment1;

v_count                   number := 1;

BEGIN

GO_BLOCK ('SGD_QUOTE_LINES_ALL');

FIRST_RECORD;

FOR ins_post IN C_JP_POST

LOOP

:SGD_QUOTE_LINES_ALL.PLAN_LEVEL := ins_post.plan_level;

:SGD_QUOTE_LINES_ALL.component_item := ins_post.component_item;

:SGD_QUOTE_LINES_ALL.component_description :=ins_post.component_description;

:SGD_QUOTE_LINES_ALL.AVG_COST := ins_post.Average_cost;

:SGD_QUOTE_LINES_ALL.QOT_cost := ins_post.QOT_cost;

NEXT_RECORD;

END LOOP;

END;

-- end --

详细结束。

效果图如附件所示。