实现主从关系Form中汇总行金额/数量

 

背景说明：

 

1. 头块中的Total字段(HEADERS.AMOUNT_TOTAL)汇总行上面Amount(LINES.AMOUNT)
2. 行中的Amount是Unit Price(lines.unit_price)和Quantity(lines.quantity)的乘积
3. Unit Price和Quantity的任何更改会导致Amount发生改变，最终影响Total值

实现步骤：

1，创建合计显示字段，即HEADERS.AMOUNT_TOTAL，设置其子类属性为：TEXT_ITEM_DISPLAY_ONLY

2，在合计显示的数据块中，创建合计项目的汇总临时项目,命名规则为：<合计项目名称>_RTOT_DB，NUMBER(38)/DISPLAY_ITEM，即AMOUNT_TOTAL_RTOT_DB/NUMBER(38)/DISPLAY_ITEM

3，在明细块中创建两个统计使用的item，一个<被统计项>_RTOT_OLD，另一个<被统计项>_RTOT_DB，类型 CHAR(61) DISPLAY_ITEM，即AMOUNT_RTOT_OLD/CHAR(61)/DISPLAY_ITEM 和 AMOUNT_RTOT_DB/CHAR(61)/DISPLAY_ITEM

4，包装一下app_calculate.running_total方法，让其对明细块中的Amount进行汇总计算

 

procedure running_total (event varchar2) is
begin
  app_calculate.running_total(event,'LINES.AMOUNT','HEADERS.AMOUNT_TOTAL');
end running_total;

 5，在引发HEADERS.AMOUNT_TOTAL和 LINES.AMOUNT变化的两个Item(lines.unit_price)和(lines.quantity)的WHEN-VALIDATE-ITEM触发器中调用app_calculate.running_total运算汇总值，Item的Handler代码如下：

 

 

procedure unit_price (event varchar2) is
begin
  if event = 'WHEN-VALIDATE-ITEM' then
    lines.amount('INIT');--先计算行上面的LINES.AMOUNT
    lines.running_total('WHEN-VALIDATE-ITEM'); --然后在计算HEADERS.AMOUNT_TOTAL里面的数值
  end if;	
end unit_price;
 
procedure quantity (event varchar2) is
begin
  if event = 'WHEN-VALIDATE-ITEM' then
    lines.amount('INIT');
    lines.running_total('WHEN-VALIDATE-ITEM');--同上
  end if;
end quantity;

 6，创建lines.amount('INIT');的Handler代码

 

procedure amount (event varchar2) is
begin
  if event = 'INIT' then
    copy(name_in('lines.unit_price') * name_in('lines.quantity'),'lines.amount');
  end if;	
end amount;

 7，在汇总显示项目所在块中的POST-QUERY触发器中从数据库中计算出明细的初始汇总值

procedure post_query is
begin
  select nvl(sum(unit_price*quantity),0)
    into :headers.amount_total
  from xhu_order_lines
 where header_id = :headers.header_id ;
 :HD.SUM_TOTAL_RTOT_DB := :HD.SUM_TOTAL;
end post_query;

 8，在明细块的以下触发器中添加相应的代码

--KEY-DELREC
lines.running_total('KEY-DELREC');
Delete_Record;
 
--KEY-DUPREC
lines.running_total('KEY-DUPREC');
duplicate_record;
 
--KEY-CLRREC
lines.running_total('KEY-CLRREC');
app_folder.event('KEY-CLRREC');
或者下面的方式
CLEAR_RECORD;
 
--WHEN-CLEAR-BLOCK
lines.running_total('WHEN-CLEAR-BLOCK');
 
--POST-QUERY
lines.running_total( 'POST-QUERY' );
或者post-query中为
app_folder.event('POST-QUERY');
app_globe.event('POSET-QUERY');
LN_PRIVATE.running_total('POST-QUERY');
if :system.trigger_record =1 then
    
  select sum(amount) 
    into  :HD.SUM_TOTAL
    from CUX_PLAN_PROJECT_LINES_T
    where header_id= :HD.HEADER_ID;
    :HD.SUM_TOTAL_RTOT_DB := :HD.SUM_TOTAL;  
end if;