Notes

*&---------------------------------------------------------------------*
*& Include ZFS_FRX_R011_TOP Report ZFS_FRX_R011
*&
*&---------------------------------------------------------------------*
************************************************************************
*&--------------------------------------------------------------------------*
*& Program Name : ZFS_FRX_R011 *&
*& Author Name : Sandesh Yadav *&
*& Functional Name : *&
*& Module : FRX *&
*& Description : Hedge Register Report *&
*& Request No : *&
*&--------------------------------------------------------------------------*.
************************************************************************

REPORT zfs_frx_r011.
TABLES : vtbfha,vtgfhapo.
TYPE-POOLS: vrm.


TYPES: BEGIN OF ty_final.
INCLUDE STRUCTURE zfs_st_frx_txn.
TYPES:
out_amt TYPE tb_limit_amount,
zbank_ref TYPE zdt_bank_ref,
zmat_from TYPE zdt_mat_from,
zdis_amt TYPE tb_limit_amount,
zfx_charg TYPE tb_limit_amount,
zedc_amt TYPE tb_limit_amount,
zgst_amt TYPE tb_limit_amount,
zstamp_duty TYPE tb_limit_amount,
zbook_charg TYPE tb_limit_amount,
util_amt TYPE tb_limit_amount,
can_amt TYPE tb_limit_amount,
can_date TYPE dats,
un_amt TYPE tb_limit_amount,
util_cnt TYPE i,
can_cnt TYPE i,
zclass TYPE zdt_classif,
zref_num TYPE tb_rfha,
zcc_rate TYPE tb_kkurs,
zcc_spot TYPE tb_kkassa,
zcc_swap TYPE tb_kswap,
zcc_liq TYPE tx_kwliq,
zcc_con_date TYPE tb_dvtrab,
eqi_usd TYPE tb_limit_amount,
eqi_inr TYPE tb_limit_amount,
gross_rate TYPE p DECIMALS 7,
rnd_of_rate TYPE p DECIMALS 7,
fin_wash TYPE p DECIMALS 7,
rc_cur_pair TYPE c LENGTH 7,
alloc_amt TYPE tb_limit_amount,
un_all_amt TYPE tb_limit_amount,
zbs1 TYPE zdt_bs,
zcurr1 TYPE tb_wzbetr,
zamt1 TYPE tb_limit_amount,
zbs2 TYPE zdt_bs,
zcurr2 TYPE tb_wzbetr,
zamt2 TYPE tb_limit_amount,
zcost_center TYPE kostl,
zprofit_center TYPE prctr,
zgainloss TYPE tb_limit_amount,
zhedcost TYPE tb_limit_amount,
zexp_id TYPE zdt_expid,
zcreate_date TYPE dats,
zremarks TYPE char50,


END OF ty_final.
DATA : gt_final TYPE TABLE OF ty_final,
gw_final TYPE ty_final.

TYPES : BEGIN OF ty_test,
zbuy_amt TYPE tb_limit_amount,
util_amt TYPE tb_limit_amount,
can_amt TYPE tb_limit_amount,
roll_amt TYPE tb_limit_amount,
END OF ty_test.
DATA : gt_test TYPE TABLE OF ty_test,
gw_test TYPE ty_test.
DATA : gt_txn TYPE TABLE OF zfs_st_frx_txn,
gt_util TYPE TABLE OF zfs_st_frx_txn,
gt_can TYPE TABLE OF zfs_st_frx_txn.


DATA : gt_roll TYPE STANDARD TABLE OF zfs_frx_t022,
gw_roll TYPE zfs_frx_t022.


DATA : gt_hedge TYPE STANDARD TABLE OF zfs_frx_t007,
gw_hedge TYPE zfs_frx_t007.

TYPES : BEGIN OF ty_data,
saktiv TYPE vtbfha-saktiv,
zpc1_desc TYPE char20,
zop_type_desc TYPE char20,
zset_type_desc TYPE char20,
zcurr_pair TYPE c LENGTH 10,
zhedcost TYPE tb_limit_amount,
eqi_inr TYPE tb_limit_amount,
eqi_usd TYPE tb_limit_amount,
zexp_id TYPE zdt_expid,
zdeal_status TYPE char16,
ztot_unwind_amt type tb_limit_amount.
INCLUDE TYPE zfs_frx_t020.

TYPES END OF ty_data.
DATA lv_total_gl_amt TYPE tb_limit_Amount.
" Data declaration
DATA : gt_data TYPE TABLE OF ty_data,
gs_data TYPE ty_data,
gs_data1 TYPE ty_data.

" Field symbol
FIELD-SYMBOLS : <fs_data> TYPE ty_data.

DATA: gt_util_data TYPE TABLE OF zfrx_s_imp_util.

DATA : lt_fcat TYPE slis_t_fieldcat_alv,
lw_fcat TYPE slis_fieldcat_alv,
gt_fcat TYPE slis_t_fieldcat_alv,
gw_fcat TYPE slis_fieldcat_alv,
lw_layout TYPE slis_layout_alv,
gw_color TYPE lvc_s_scol.
DATA : gw_variant TYPE disvariant,
gr_alv TYPE REF TO cl_salv_table,
gs_variant TYPE disvariant.
*
CLASS lcl_handle_events DEFINITION.
" On Click
PUBLIC SECTION.
METHODS:
on_line_click FOR EVENT link_click OF cl_salv_events_table
IMPORTING row column. "event handler method for Hotspot

METHODS:
on_app_tool_click FOR EVENT added_function OF cl_salv_events
IMPORTING e_salv_function.

ENDCLASS.

*FIELD-SYMBOLS : <fs_data> TYPE ty_final.

DATA : gv_buy_cr TYPE tb_wlwaers,
gv_sel_cr TYPE tb_wlwaers.

DATA :
gt_dt TYPE TABLE OF zfs_st_frx_txn,
gw_txn TYPE zfs_st_frx_txn.

DATA: zrfha TYPE tb_rfha,
zsgsart TYPE vvsart,
zbank_ref TYPE zdt_bank_ref,
zkontrh TYPE tb_kunnr_new,
zsfhaart TYPE tb_sfhaart,
bukrs TYPE bukrs.

START-OF-SELECTION.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE t1.
SELECT-OPTIONS :s_bukrs FOR bukrs OBLIGATORY.
PARAMETERS : p_date TYPE dats OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE t2.
PARAMETER:rad1 RADIOBUTTON GROUP rad USER-COMMAND radio DEFAULT 'X',
rad2 RADIOBUTTON GROUP rad,
rad3 RADIOBUTTON GROUP rad.
SELECTION-SCREEN END OF BLOCK b2.

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE t3.
SELECT-OPTIONS :s_rfha FOR zrfha MODIF ID sc1,
s_kontrh FOR zkontrh MODIF ID sc1 ,
s_bref FOR zbank_ref MODIF ID sc1.
PARAMETERS: p_sfha TYPE tb_sfhaart AS LISTBOX VISIBLE LENGTH 20 MODIF ID sc1.
SELECTION-SCREEN END OF BLOCK b3.

SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE t4.
SELECT-OPTIONS :t_rfha FOR zrfha MODIF ID sc2 ,
t_kontrh FOR zkontrh MODIF ID sc2.
* t_bref FOR zbank_ref MODIF ID sc2 .
PARAMETERS: t_stg_no TYPE zdt_strategy_no MODIF ID sc2.
PARAMETERS: t_exe TYPE char10 AS LISTBOX VISIBLE LENGTH 20 MODIF ID sc2.
SELECTION-SCREEN END OF BLOCK b4.

SELECTION-SCREEN BEGIN OF BLOCK b5 WITH FRAME TITLE t5.
SELECT-OPTIONS :u_rfha FOR zrfha MODIF ID sc3 ,
u_kontrh FOR zkontrh MODIF ID sc3 ,
u_bref FOR zbank_ref MODIF ID sc3,
u_sfha FOR zsfhaart MODIF ID sc3.
SELECTION-SCREEN END OF BLOCK b5.

INITIALIZATION.
t1 = 'Basic Selection'.
t2 = 'Transaction Category'.
t3 = 'Optional Selection'.
t4 = 'Optional Selection'.
t5 = 'Optional Selection'.

AT SELECTION-SCREEN OUTPUT.
IF rad1 = 'X'.
LOOP AT SCREEN.
PERFORM drop_down.
IF screen-group1 = 'SC2' .
screen-active = 0.
MODIFY SCREEN.
ENDIF.
IF screen-group1 = 'SC3'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ELSEIF rad2 = 'X'.
LOOP AT SCREEN.
PERFORM drop_down1.
IF screen-group1 = 'SC1' .
screen-active = 0.
MODIFY SCREEN.
ENDIF.
IF screen-group1 = 'SC3'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ELSEIF rad3 = 'X'.
LOOP AT SCREEN.
IF screen-group1 = 'SC1' .
screen-active = 0.
MODIFY SCREEN.
ENDIF.
IF screen-group1 = 'SC2'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.