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 --

详细结束。

效果图如附件所示。