Notes

FORM get_data .

IF p_str = gv_fx . "TSF FX

"ZSGTSFP002 Confirm FX Deal ID (Single Deal ID)
"ZSGTSFR060 Trade Invoice Settlement
SELECT FROM zsgtsftr_dealdms
FIELDS
zdms_cat,
zdms_type,
zdeal_id,
zddate,
zdms_code,
zstnd_dms
WHERE zddate IN @s_date
AND zdms_cat IN ( @gv_10,@gv_11 )
AND zdeal_id IN @s_zdeal
INTO TABLE @DATA(lt_zsgtsffx).

lr_dms_typ = CORRESPONDING #( lt_zsgtsffx MAPPING zdms_type = zdms_type
zdms_cat = zdms_cat ).
ELSEIF p_str = gv_slc . "TSF SLC

*****************"" Start Of ZSGSLCR001 - Manage Trade Ticket for Deal ID
""FM ZSGSLCFM_DMS category 03 , 04
SELECT FROM zsgslctr_dealdms AS b
FIELDS
b~zdms_type,
b~zdms_cat,
b~zddate,
b~zdms_code,
b~zstnd_dms,
b~zdeal_id
WHERE zddate IN @s_date
AND zdms_cat IN ( @gv_03, @gv_04 ) ", @cs_04 ) "04 not taken
AND zdeal_id IN @s_zdeal
INTO TABLE @DATA(lt_zsgslcr001).

lr_dms_typ = CORRESPONDING #( BASE ( lr_dms_typ ) lt_zsgslcr001 MAPPING zdms_type = zdms_type
zdms_cat = zdms_cat ).
****************"" end of ZSGSLCR001 - Manage Trade Ticket for Deal ID


**********************""Start Of ZSGSLCR013""************************
SELECT FROM zsgslctr_icldms AS b
INNER JOIN zsgslctr_icl_req AS a
ON a~zicl_req = b~zicl_req
FIELDS
b~zdms_type,
b~zdms_cat,
b~zddate,
b~zdms_code,
b~zstnd_dms,
a~zdeal_id
WHERE a~zdeal_id IN @s_zdeal
AND b~zddate IN @s_date
AND zdms_cat IN ( @gv_07, @gv_09 )
AND a~zdeal_id IS NOT INITIAL
INTO TABLE @DATA(lt_zsgslcr013).

lr_dms_typ = CORRESPONDING #( BASE ( lr_dms_typ ) lt_zsgslcr013 MAPPING zdms_type = zdms_type
zdms_cat = zdms_cat ).

**********************""End of ZSGSLCR013""*****************


******************""Start Of ZSGSLCR032 """""""""""
SELECT FROM
""Txn Details and ICL Req No
vtbfha AS a
INNER JOIN zsgslctr_prd ON zsgslctr_prd~zsgsart = a~sgsart
AND zsgslctr_prd~zsfhaart = a~sfhaart
AND zsgslctr_prd~zicl = @abap_true
INNER JOIN zsgslctr_slc_ftr AS b ON b~zbukrs = a~bukrs
AND b~zrfha = a~rfha
INNER JOIN zsgslctr_dep_icl AS c ON b~zslc_icl_req = c~zicl_req AND c~zicl_req NE @abap_false
""Deal Number Link With ICL Req
INNER JOIN zsgslctr_dealid AS d ON d~zdep_bukrs = c~zdep_bukrs AND d~zdep_txn = c~zdep_txn AND d~zdep_txn NE @abap_false
"DMS Table
INNER JOIN zsgslctr_dms_ri AS e ON e~zbukrs = a~bukrs AND e~zrfha = a~rfha

FIELDS
"Txn Details and Deal Number
a~bukrs ,
a~rfha ,
d~zdeal_id ,
""DMS Table Fields
e~zdms_cat,
e~zdms_type,
e~zddate ,
e~zdms_code,
e~zstnd_dms,
e~zpay_date,
e~zsfhazba
WHERE d~zdeal_id IN @s_zdeal
AND a~saktiv <> 3
AND ( ( zdms_cat = @gv_13 AND a~sgsart IN ( @gv_26b, @gv_26g ) ) )
AND e~zdms_type = @c_d01
AND e~zddate IN @s_date
INTO TABLE @DATA(lt_zsgslcr032).

lr_dms_typ = CORRESPONDING #( BASE ( lr_dms_typ ) lt_zsgslcr032 MAPPING zdms_type = zdms_type
zdms_cat = zdms_cat ).

******************""End of ZSGSLCR032 """""""""""

*

********************ZSGSLCR074*************************
*""""""""""""""""SAME DATA - ZSGSLCR032""""""""""""""""""
********************ZSGSLCR085*************************
""""""""""""""""""""""""NO DMS """""""""""""""""""""""""

***************Start of ZSGSLCR105 Payment of LC Fees - Var********

""Flow types condition to be added and category to be added in previous select query
SELECT FROM vtbfha AS a
INNER JOIN zsgslctr_lc_deal AS b ON a~rfha = b~zlc_rfha
AND a~bukrs = b~zlc_bukrs
INNER JOIN zsgslctr_dealdms AS d ON d~zdeal_id = b~zdeal_id
FIELDS
b~zdeal_id ,
a~bukrs ,
a~rfha ,
""DMS Table Fields
d~zdms_cat,
d~zdms_type,
d~zddate ,
d~zdms_code,
d~zstnd_dms,
d~zsfhazba
WHERE a~saktiv <> @gv_3
AND ( ( a~sgsart = @gv_27a AND d~zdms_cat = @gv_19 ) OR
( a~sgsart = @gv_26d AND d~zdms_cat = @gv_18 )
)
AND b~zdeal_id IN @s_zdeal
AND d~zddate IN @s_date
INTO TABLE @DATA(lt_zsgslcr105).

lr_dms_typ = CORRESPONDING #( BASE ( lr_dms_typ ) lt_zsgslcr105 MAPPING zdms_type = zdms_type
zdms_cat = zdms_cat ).

***************End of ZSGSLCR105 Payment of LC Fees - Var********

**""""""""Start of ZSGSLCR079 Initiate Interest Payment - Var"""******

SELECT FROM
vtbfha AS a
INNER JOIN zsgslctr_slc_ftr AS sftr ON sftr~zbukrs = a~bukrs
AND sftr~zrfha = a~rfha
INNER JOIN zsgslctr_irsdms AS c ON c~zdl_txn = a~rfha AND c~zdl_bukrs = a~bukrs AND c~zdldms_cat = @gv_12 AND c~zdldms_type = @c_d01
FIELDS
a~bukrs ,
a~rfha ,
sftr~zslc_deal_id AS zdeal_id ,
c~zdl_ddate AS zddate ,
c~zdldms_code AS zdms_code ,
c~zdlstnd_dms AS zstnd_dms,
c~zdldms_type AS zdms_type,
c~zdldms_cat AS zdms_cat,
c~zpay_date,
c~zdl_ddate
WHERE a~sgsart IN ( @gv_23f , @gv_23g , @gv_27b )
AND zdeal_id IN @s_zdeal
AND zdeal_id IS NOT INITIAL
AND c~zdl_ddate IN @s_date
INTO TABLE @DATA(lt_zsgslcr079).

lr_dms_typ = CORRESPONDING #( BASE ( lr_dms_typ ) lt_zsgslcr079 MAPPING zdms_type = zdms_type
zdms_cat = zdms_cat ).

**""""""""""""End of ZSGSLCR079 Initiate Interest Payment - Var""****

*
**""""""""Start of ZSGSLCR0103 TSF-SBLC Fee Payment - Var"""******
SELECT FROM zsgslctr_sblcreq AS a
INNER JOIN zsgslctr_sblcdms AS b ON a~zsblcreqno = b~zsblcreqno "AND a~zsblcrq_type = '20'
FIELDS
a~zsblcreqno,
a~zsblc_txn ,
a~zdeal_id ,
b~zdms_type,
b~zddate,
b~zdms_cat,
b~zdms_code,
b~zstnd_dms
WHERE b~zddate IN @s_date
AND a~zdeal_id IN @s_zdeal
INTO TABLE @DATA(lt_zsgslcr103) .

lr_dms_typ = CORRESPONDING #( BASE ( lr_dms_typ ) lt_zsgslcr103 MAPPING zdms_type = zdms_type
zdms_cat = zdms_cat ).

**""""""""""""End of ZSGSLCR0103 TSF-SBLC Fee Payment - Var""****
*
**********************""Start Of ZSGSLCR014""*SLC Invoice Settlement: Execution***********************
SELECT FROM zsgslctr_dealid AS c "FROM zsgtsftr_dms_typ AS a
INNER JOIN zsgslctr_trd_pos AS a ON a~zdeal_id = c~zdeal_id
INNER JOIN zsgslctr_invdms AS b
ON b~zdeal_id = a~zdeal_id
AND b~zseq = a~zseq
FIELDS
b~zdms_type,
b~zddate,
b~zdms_code,
b~zli_bukrs,
b~zpre_id,
b~zli_rfha,
b~zstnd_dms,
b~zdms_cat,
c~zdeal_id
WHERE c~zdeal_id IN @s_zdeal
AND b~zddate IN @s_date
INTO TABLE @DATA(lt_zsgslcr014).


lr_dms_typ = CORRESPONDING #( BASE ( lr_dms_typ ) lt_zsgslcr014 MAPPING zdms_type = zdms_type
zdms_cat = zdms_cat ).

**********************""End of ZSGSLCR014""*****************

ELSEIF p_str = gv_xlc_crp. "TSF XLC-CRP

****************"" Start Of ZSGTSFVNR001 - Manage Trade Ticket for Deal ID
""FM ZSGSLCFM_DMS category 40 ,
SELECT FROM zsgslctr_dealdms AS b
FIELDS
b~zdms_type,
b~zdms_cat,
b~zddate,
b~zdms_code,
b~zstnd_dms,
b~zdeal_id
WHERE zddate IN @s_date
AND zdms_cat IN ( @gv_40 ) ", @cs_04 ) "04 not taken
AND zdeal_id IN @s_zdeal
INTO TABLE @DATA(lt_zsgtsfvnr001).

lr_dms_typ = CORRESPONDING #( BASE ( lr_dms_typ ) lt_zsgtsfvnr001 MAPPING zdms_type = zdms_type
zdms_cat = zdms_cat ).
****************"" end of ZSGTSFVNR001 - Manage Trade Ticket for Deal ID

**""""""""Start of ZSGSLCR0103 TSF-SBLC Fee Payment - Var"""******
SELECT FROM zsgslctr_sblcreq AS a
INNER JOIN zsgslctr_sblcdms AS b ON a~zsblcreqno = b~zsblcreqno AND a~zsblcrq_type = @gv_20
FIELDS
a~zsblcreqno,
a~zsblc_txn ,
a~zdeal_id ,
a~zstr,
b~zdms_type,
b~zddate,
b~zdms_cat,
b~zdms_code,
b~zstnd_dms
WHERE b~zddate IN @s_date
AND a~zdeal_id IN @s_zdeal
INTO TABLE @DATA(lt_v_zsgslcr103) .

lr_dms_typ = CORRESPONDING #( BASE ( lr_dms_typ ) lt_v_zsgslcr103 MAPPING zdms_type = zdms_type
zdms_cat = zdms_cat ).

**""""""""""""End of ZSGSLCR0103 TSF-SBLC Fee Payment - Var""****


**********************""Start Of ZSGTSFVNR003""*SLC Invoice Settlement: Execution***********************
SELECT FROM zsgslctr_dealid AS c "FROM zsgtsftr_dms_typ AS a
INNER JOIN zsgslctr_trd_pos AS a ON a~zdeal_id = c~zdeal_id
INNER JOIN zsgslctr_invdms AS b ON b~zdeal_id = a~zdeal_id
AND b~zseq = a~zseq
FIELDS
b~zdms_type,
b~zddate,
b~zdms_code,
b~zli_bukrs,
b~zpre_id,
b~zli_rfha,
b~zstnd_dms,
b~zdms_cat,
c~zdeal_id
WHERE c~zdeal_id IN @s_zdeal
AND b~zddate IN @s_date
INTO TABLE @DATA(lt_zsgtsfvnr003).

lr_dms_typ = CORRESPONDING #( BASE ( lr_dms_typ ) lt_zsgtsfvnr003 MAPPING zdms_type = zdms_type
zdms_cat = zdms_cat ).

**********************""End of ZSGTSFVNR003""*****************
SORT lr_dms_typ BY zdms_type zdms_cat.
DELETE ADJACENT DUPLICATES FROM lr_dms_typ COMPARING zdms_type zdms_cat.

ENDIF.

****"""""""""""""""""SLC Common Desc Table""""""""""""""""""
IF lr_dms_typ IS NOT INITIAL.
SELECT FROM zsgtsftr_dms_cat AS a
INNER JOIN zsgtsftr_dms_typ AS b ON b~zdms_cat = a~zdms_cat
FIELDS
a~zdms_cat ,
a~zdms_cdesc,
b~zdms_type,
b~zdms_desc
FOR ALL ENTRIES IN @lr_dms_typ
WHERE a~zdms_cat = @lr_dms_typ-zdms_cat
INTO TABLE @DATA(lt_slcdesc) .

ENDIF.

****"""""""""""""""""End of SLC Common Desc Table""""""""""""""""""

IF p_str = gv_fx .
gt_final = CORRESPONDING #( BASE ( gt_final ) lt_zsgtsffx ).
ELSEIF p_str = gv_slc .
gt_final = CORRESPONDING #( BASE ( gt_final ) lt_zsgslcr001 ).
gt_final = CORRESPONDING #( BASE ( gt_final ) lt_zsgslcr013 ).
gt_final = CORRESPONDING #( BASE ( gt_final ) lt_zsgslcr032 ).
gt_final = CORRESPONDING #( BASE ( gt_final ) lt_zsgslcr105 ).
gt_final = CORRESPONDING #( BASE ( gt_final ) lt_zsgslcr079 ).
gt_final = CORRESPONDING #( BASE ( gt_final ) lt_zsgslcr103 ).
gt_final = CORRESPONDING #( BASE ( gt_final ) lt_zsgslcr014 ).

gt_final = CORRESPONDING #( BASE ( gt_final ) lt_v_zsgslcr103 ).
ELSEIF p_str = gv_xlc_crp .
gt_final = CORRESPONDING #( BASE ( gt_final ) lt_zsgtsfvnr001 ).
gt_final = CORRESPONDING #( BASE ( gt_final ) lt_zsgtsfvnr003 ).
gt_final = CORRESPONDING #( BASE ( gt_final ) lt_v_zsgslcr103 ).
ENDIF.

IF gt_final IS NOT INITIAL.
LOOP AT gt_final ASSIGNING FIELD-SYMBOL(<fs_final>).
ASSIGN lt_slcdesc[ zdms_cat = <fs_final>-zdms_cat zdms_type = <fs_final>-zdms_type ] TO FIELD-SYMBOL(<fs_slcdesc>).
IF sy-subrc = 0 .
<fs_final>-zdms_cdesc = <fs_slcdesc>-zdms_cdesc .
<fs_final>-zdms_desc = <fs_slcdesc>-zdms_desc .
ENDIF.
ENDLOOP.

SORT gt_final BY zdeal_id zdms_cat zdms_type ASCENDING .

ENDIF.

ENDFORM.