Screen Report Blocking Task
Das isch dr hirarchisch Screen Report für dr Blocking Task
[report 2.0]
report rbsc$task_blocking.blc_list
/*
-------------------------------------------------------------------------------------------------------------
Bank:
Business Area:
Description: Screen report to show all blocking objects for meta types BP, CONT and MACC
-------------------------------------------------------------------------------------------------------------
ID Date Name, Company Issue Affected BUs, Description
-------------------------------------------------------------------------------------------------------------
001
-------------------------------------------------------------------------------------------------------------
*/
----------------------------------------------------------------------------
-- HEADER
----------------------------------------------------------------------------
naming
dfltlang 'List blocked BP, CONT and MACC'
user_id 'BLC_LIST'
----------------------------------------------------------------------------
-- DATAMART
----------------------------------------------------------------------------
datamart blc_list
----------------------------------------------------------------------------
-- LAYOUT
----------------------------------------------------------------------------
screen layout
on column head
---- BASICS ----
column bu
label session.text('LABEL.BU');
column obj_name
label session.text('LABEL.BP')||' / '||session.text('LABEL.OBJ');
column bp_nr
label session.text('LABEL.BP.S')||' '||session.text('LABEL.NR');
column obj_type
label session.text('LABEL.OBJ_TYPE');
column obj_id
label session.text('LABEL.OBJ_ID');
column pb
label session.text('LABEL.PRIVATE_BANKER');
column block
label session.text('LABEL.BLOCK');
column block_text
label session.text('LABEL.BLOCK_TEXT');
column nr_key
label session.text('OBJ_KEY.860');
column gnrl_block_code
label session.text('I_OBJ_CLASSIF.360');
column bt_block_code
label session.text('I_OBJ_CLASSIF.141');
column remark
label session.text('LABEL.REMARK');
column close_date
label session.text('LABEL.CLOSE_DATE');
--------------------------------------------------------------------------
on report head
---- HANDLE NO DATA FOUND ----
if top.seq_nr is null then
session.raise_ui_err('no_data_found');
end if;
--------------------------------------------------------------------------
on bu head
column bu ctx 'bp' bu
bu.name;
--------------------------------------------------------------------------
on bp head
column bu bu.name;
column obj_name ctx 'bp' bp
bp.name;
column bp_nr obj_bp(bp.id).extn.bp_nr;
column obj_type 'Business Partner';
with obj_bp(bp) as bp do
if bp.rel_obj_id(obj_rel_sub_type_id => 5515) > 0 then
with obj_bp(bp.rel_obj_id(obj_rel_sub_type_id => 5515)) as pb do
column pb ctx 'bp' pb.id
pb.displ_text;
end with;
end if;
end with;
column obj_id bp;
--------------------------------------------------------------------------
on block head
column bu bu.name;
column obj_name ctx block.obj_type_intl_id block.obj_id
obj_with_hist_name(block.obj_id).displ_text;
column bp_nr obj_bp(bp.id).extn.bp_nr;
column obj_type block.obj_type;
column obj_id block.obj_id;
with obj_bp(bp) as bp do
if bp.rel_obj_id(obj_rel_sub_type_id => 5515) > 0 then
with obj_bp(bp.rel_obj_id(obj_rel_sub_type_id => 5515)) as pb do
column pb ctx 'bp' pb.id
pb.displ_text;
end with;
end if;
end with;
if block.obj_type_id = 9 then
column obj_type 'Money Account';
column nr_key obj_macc(block.obj_id).extn.pos_nr;
elsif block.obj_type_id = 1 then
column nr_key obj_cont(block.obj_id).extn.cont_nr;
column bt_block_code obj_cont(block.obj_id).extn.cont_mt_block.name;
elsif block.obj_type_id = 4 then
column nr_key obj_bp(block.obj_id).extn.bp_nr;
column gnrl_block_code obj_bp(block.obj_id).extn.bp_block.name;
end if;
column block block.block;
column block_text block.block_text;
column remark block.remark;
column close_date block.close_date;
end layout
end report
