C# Online Compiler | .NET Fiddle

<no name> by Anonymous

*&---------------------------------------------------------------------*
*& Include          ZSGTSF_RFX_BLOTTER_COMP_F01
*&---------------------------------------------------------------------*
*&  Program Name        : ZSGTSF_RFX_BLOTTER_COMP                     *&
*&  Author Name         : Sufyan Khan                                 *&
*&  Functional Name     : Sunil Alva                                  *&
*&  Module              : TSF                                         *&
*&  Description         : Blotter                                     *&
*&  Request No          : TRSK900073                                  *&
*&  Transaction Code    : ZSGTSFR015                                  *&
*&---------------------------------------------------------------------*
* Change History
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
* Modified By            : Kisan                                       *
* Date of Modification   : 10.12.2020                                  *
* Change Request No      : TRDK904778                                  *
* Reason Of Modification : MC/ BU Details required in columns          *
*----------------------------------------------------------------------*
* Modified By            : Saurav                                      *
* Date of Modification   : 30.12.2021                                  *
* Change Request No      : TRDK910602                                  *
* Reason Of Modification : Auth obj maintenance (ZSGTSFR006)           *
*----------------------------------------------------------------------*
* Modified By            : Saurav                                      *
* Date of Modification   : 02.03.2022                                  *
* Change Request No      : TRDK913534                                  *
* Reason Of Modification : Deal Dump Report - Buy/Sell Mapping         *
*----------------------------------------------------------------------*
* Modified By            : Vaishnavi Jambhale                          *
* Date of Modification   : 22.08.2023                                  *
* Change Request No      : TRDK917678                                  *
* Reason Of Modification : Additional Columns / Email Functionality    *
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
* Modified By            : Aditi Macwan                                *
* Date of Modification   : 23.10.2023                                  *
* Change Request No      : TRDK917677                                  *
* Reason Of Modification : Adding Txn status                           *
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form SUB_GET_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM sub_get_data .

  PERFORM check_authorization." Added by saurav on 11.08.2021 Scope 4000015805 to call subroutine for authorization object.

  IF rb_b IS NOT INITIAL.           "Blotter Date
    DATA(lv_where) = 'ZBLOTTER_DATE IN @S_DATE'.
  ELSEIF rb_t IS NOT INITIAL.       "Trade Date
    lv_where  = 'ZT_DATE IN @S_DATE'.
  ENDIF.

  IF r_fx = c_x." Added by kisan  on 26.11.2021 Scope 4000015805 Replacing strings with constants and added inline data declaration {
    SELECT  a~bukrs,
            a~rfha,
            a~saktiv,
            a~sgsart,
            a~butxt,
            a~ltx,
            a~sfhaart,
            a~xtext,
            a~bp_name,
            a~rfhazul,
            a~kontrh,
            a~blotter_date,
            a~prd_code,
            a~prd_desc,
            a~prctr,
            a~pc_name,
            a~rbusa,
            a~ba_name,
            a~rportb,
            a~xportb,
            a~zuonr,
            a~zuond,
            a~assign_desc,
            a~refer,
            a~int_ref_desc,
            a~objnr,
            a~refnr,
            a~dblfz,
            a~delfz,
            a~sfgtyp,
            a~sanlf,
            a~zwaers,
            a~zcom_id,
            a~rdealer,
            a~gsppart,
            a~nordext,
            a~txn_status,
            a~ztrcode,
            a~trd_name,
            a~zgrp,
            a~grp_desc,
            a~tsf_code,
            a~blo_desc,
            a~merkm,
            a~v_date,
            a~ndf_date,
            a~ndf_ref,
            a~ext_stat_desc,
            a~zsubject,
            a~mat_unmat,
            a~fo_remark,
            a~mo_remark,
            a~ztsf_deal_desc,
            a~ztsf_deal_id,
            a~ztsf_mc_ref_no,
            a~ztsf_deal_type,
            a~zolam_deal_no,
            a~zpl,
            a~zpl_curr,
            a~zpl_rate,
            a~zpl_lamt,
            a~zpl_lcurr,
            a~ztsf_exe_co,
            a~ndf_fo_rem,
            a~ndf_mo_rem,
            a~bs,
            a~bs_o,
            a~bs_1,
            a~bs_2,
            a~curr1,
            a~curr2,
            a~amt1,
            a~amt2,
            a~curr_st1,
            a~zamt_st1,
            a~curr_st2,
            a~zamt_st2,
            a~ospot,
            a~oswap,
            a~otot_rate,
            a~t_rate,
            a~spot,
            a~swap,
            a~tot_rate,
            a~ndf_rate,
            a~cpair,
            a~f_curr1,
            a~t_curr1,
            a~cash_curr,
            a~zcash_amt,
            a~email_code,
            a~dcrdat,
            a~cruser,
            a~tcrtim,
            a~dupdat,
            a~upuser,
            a~tuptim,
            b~zmc_ref_no,
            b~zmc_desc,
            b~zmc_date,
            b~zsell,
            b~zbuy,
            b~zorigin,
            b~zamt,
            b~zcurr,
            b~zorg_amt,
            b~zocurr,
            b~zex_rate,
            b~zship_start,
            b~zship_end,
            b~zcommodity,
            b~zcom_desc,
            b~zcom_desc_long,
            b~zent_id,
            b~zent_desc,
            b~zcurr_id,
            b~zcurr_desc,
            b~zpay_term,
            b~zmod_id,
            b~zmod_desc,
            b~zmc_stat,
            b~zpay_terms,
            b~zpay_terms_text,
            b~zpos,
            b~zpod,
            b~zold_mc_ref_no,
            b~zuti_amt,
            b~zcreated_by,
            b~zcreated_date,
            b~zcreated_time,
            b~zchanged_by,
            b~zchanged_date,
            b~zchanged_time
        FROM ( zsgtsfv_fx AS a
        INNER JOIN zsgtsftr_mas_con AS b  "added by sufyan(13.10.2020) to get mas cont details
        ON b~zmc_ref_no = a~ztsf_mc_ref_no )
      INTO TABLE @DATA(lt_fx)
        WHERE a~bukrs IN @s_bukrs
*        AND a~blotter_date IN @s_date
         AND a~dblfz IN @s_date         "" Added by Ryan Nayak 07.08.2023   to fetch based on Trade Date
         AND b~zmc_ref_no <> ''." } " Added by saurav 29.11.2021 Scope 4000015805 to avoid fetching where mc ref is initial.

    " Added by kisan  on 26.11.2021 Scope 4000015805  passing local internal to global internal table {
    IF lt_fx IS NOT INITIAL .
      gt_data1 = CORRESPONDING #( lt_fx MAPPING
         bukrs           =    bukrs
         rfha            =    rfha
         saktiv          =    saktiv
         sgsart          =    sgsart
         butxt           =    butxt
         ltx             =    ltx
         sfhaart         =    sfhaart
         xtext           =    xtext
         bp_name         =    bp_name
         rfhazul         =    rfhazul
         kontrh          =    kontrh
         blotter_date    =    blotter_date
         prd_code        =    prd_code
         prd_desc        =    prd_desc
         prctr           =    prctr
         pc_name         =    pc_name
         rbusa           =    rbusa
         ba_name         =    ba_name
         rportb          =    rportb
         xportb          =    xportb
         zuonr           =    zuonr
         zuond           =    zuond
         assign_desc     =    assign_desc
         refer           =    refer
         int_ref_desc    =    int_ref_desc
         objnr           =    objnr
         refnr           =    refnr
         dblfz           =    dblfz
         delfz           =    delfz
         sfgtyp          =    sfgtyp
         sanlf           =    sanlf
         zwaers          =    zwaers
         zcom_id         =    zcom_id
         rdealer         =    rdealer
         gsppart         =    gsppart
         nordext         =    nordext
         txn_status      =    txn_status
         ztrcode         =    ztrcode
         trd_name        =    trd_name
         zgrp            =    zgrp
         grp_desc        =    grp_desc
         tsf_code        =    tsf_code
         blo_desc        =    blo_desc
         merkm           =    merkm
         v_date          =    v_date
         ndf_date        =    ndf_date
         ndf_ref         =    ndf_ref
         ext_stat_desc   =    ext_stat_desc
         zsubject        =    zsubject
         mat_unmat       =    mat_unmat
         fo_remark       =    fo_remark
         mo_remark       =    mo_remark
         ztsf_deal_desc  =    ztsf_deal_desc
         ztsf_deal_id    =    ztsf_deal_id
         ztsf_mc_ref_no  =    ztsf_mc_ref_no
         ztsf_deal_type  =    ztsf_deal_type
         zolam_deal_no   =    zolam_deal_no
         zpl             =    zpl
         zpl_curr        =    zpl_curr
         zpl_rate        =    zpl_rate
         zpl_lamt        =    zpl_lamt
         zpl_lcurr       =    zpl_lcurr
         ztsf_exe_co     =    ztsf_exe_co
         ndf_fo_rem      =    ndf_fo_rem
         ndf_mo_rem      =    ndf_mo_rem
         bs              =    bs
         bs_o            =    bs_o
         bs_1            =    bs_1
         bs_2            =    bs_2
         curr1           =    curr1
         curr2           =    curr2
         amt1            =    amt1
         amt2            =    amt2
         curr_st1        =    curr_st1
         zamt_st1        =    zamt_st1
         curr_st2        =    curr_st2
         zamt_st2        =    zamt_st2
         ospot           =    ospot
         oswap           =    oswap
         otot_rate       =    otot_rate
         t_rate          =    t_rate
         spot            =    spot
         swap            =    swap
         tot_rate        =    tot_rate
         ndf_rate        =    ndf_rate
         cpair           =    cpair
         f_curr1         =    f_curr1
         t_curr1         =    t_curr1
         cash_curr       =    cash_curr
         zcash_amt       =    zcash_amt
         email_code      =    email_code
         dcrdat          =    dcrdat
         cruser          =    cruser
         tcrtim          =    tcrtim
         dupdat          =    dupdat
         upuser          =    upuser
         tuptim          =    tuptim
         zmc_ref_no      =    zmc_ref_no
         zmc_desc        =    zmc_desc
         zmc_date        =    zmc_date
         zsell           =    zsell
         zbuy            =    zbuy
         zorigin         =    zorigin
         zamt            =    zamt
         zcurr           =    zcurr
         zorg_amt        =    zorg_amt
         zocurr          =    zocurr
         zex_rate        =    zex_rate
         zship_start     =    zship_start
         zship_end       =    zship_end
         zcommodity      =    zcommodity
         zcom_desc       =    zcom_desc
         zcom_desc_long  =    zcom_desc_long
         zent_id         =    zent_id
         zent_desc       =    zent_desc
         zcurr_id        =    zcurr_id
         zcurr_desc      =    zcurr_desc
         zpay_term       =    zpay_term
         zmod_id         =    zmod_id
         zmod_desc       =    zmod_desc
         zmc_stat        =    zmc_stat
         zpay_terms      =    zpay_terms
         zpay_terms_text =    zpay_terms_text
         zpos            =    zpos
         zpod            =    zpod
         zold_mc_ref_no  =    zold_mc_ref_no
         zuti_amt        =    zuti_amt
         zcreated_by     =    zcreated_by
         zcreated_date   =    zcreated_date
         zcreated_time   =    zcreated_time
         zchanged_by     =    zchanged_by
         zchanged_date   =    zchanged_date
         zchanged_time   =    zchanged_time  ).
    ENDIF." }

    " Added by saurav 26.11.2021 Scope 4000015805 to populate currency 1 as USD{
    LOOP AT gt_data1 ASSIGNING FIELD-SYMBOL(<fs_data3>) WHERE curr2 = c_usd.
      gs_data1 = <fs_data3>.
      IF gs_data1-curr2   = c_usd.
        <fs_data3>-curr1 = gs_data1-curr2.
        <fs_data3>-amt1  = gs_data1-amt2.
        <fs_data3>-bs_1   = gs_data1-bs_2." Added by saurav on 02.03.2022 Scope 4000018703 to change mapping of BS1.
        <fs_data3>-curr2 = gs_data1-curr1.
        <fs_data3>-amt2  = gs_data1-amt1.
        <fs_data3>-bs_2  = gs_data1-bs_1." Added by saurav on 02.03.2022 Scope 4000018703 to change mapping of BS2.
      ENDIF."}
    ENDLOOP.

  ELSEIF r_op = c_x." Added by kisan  on 26.11.2021 Scope 4000015805 Replacing strings with constants and added inline data declaration {
    SELECT  a~rfha,
            a~bukrs,
            a~butxt,
            a~sgsart,
            a~ltx,
            a~rfhazul,
            a~kontrh,
            a~saktiv,
            a~zcom_id,
            a~bp_name,
            a~sfhaart,
            a~xtext,
            a~prd_code,
            a~prd_desc,
            a~prctr,
            a~pc_name,
            a~rbusa,
            a~ba_name,
            a~dblfz,
            a~blotter_date,
            a~txn_status,
            a~ztrcode,
            a~trd_name,
            a~zgrp,
            a~grp_desc,
            a~tsf_code,
            a~blo_desc,
            a~rportb,
            a~xportb,
            a~refer,
            a~int_ref_desc,
            a~zuond,
            a~assign_desc,
            a~merkm,
            a~exp_rate,
            a~ztsf_deal_id,
            a~ztsf_deal_desc,
            a~ztsf_mc_ref_no,
            a~ztsf_deal_type,
            a~ztsf_exe_co,
            a~zolam_deal_no,
            a~zpl,
            a~zpl_curr,
            a~zpl_rate,
            a~zpl_lamt,
            a~zpl_lcurr,
            a~fo_remark,
            a~mo_remark,
            a~e_date,
            a~delfz,
            a~curr1,
            a~curr2,
            a~kkurs,
            a~soptaus,
            a~rdealer,
            a~gsppart,
            a~nordext,
            a~e_type,
            a~settlfl,
            a~s_type,
            a~sputcal,
            a~pc1,
            a~pc2,
            a~expiry_location,
            a~expiry_time,
            a~loc_code_text,
            a~amt1,
            a~amt2,
            a~bzbetr,
            a~wzbetr,
            a~dzterm,
            a~pwkurs,
            a~cs_date,
            a~cs_amt,
            a~cs_curr,
            a~cs_rate,
            a~cpair,
            a~f_curr1,
            a~t_curr1,
            a~email_code,
            a~mat_unmat,
            a~ext_stat_desc,
            a~dcrdat,
            a~cruser,
            a~tcrtim,
            a~dupdat,
            a~upuser,
            a~tuptim,
            b~zmc_ref_no,
            b~zmc_desc,
            b~zmc_date,
            b~zsell,
            b~zbuy,
            b~zorigin,
            b~zamt,
            b~zcurr,
            b~zorg_amt,
            b~zocurr,
            b~zex_rate,
            b~zship_start,
            b~zship_end,
            b~zcommodity,
            b~zcom_desc,
            b~zcom_desc_long,
            b~zent_id,
            b~zent_desc,
            b~zcurr_id,
            b~zcurr_desc,
            b~zpay_term,
            b~zmod_id,
            b~zmod_desc,
            b~zmc_stat,
            b~zpay_terms,
            b~zpay_terms_text,
            b~zpos,
            b~zpod,
            b~zold_mc_ref_no,
            b~zuti_amt,
            b~zcreated_by,
            b~zcreated_date,
            b~zcreated_time,
            b~zchanged_by,
            b~zchanged_date,
            b~zchanged_time
       FROM ( zsgtsfv_op AS a
       INNER JOIN zsgtsftr_mas_con AS b  "added by sufyan(13.10.2020) to get mas cont details
        ON b~zmc_ref_no = a~ztsf_mc_ref_no )
       INTO  TABLE @DATA(lt_op)
       WHERE a~bukrs IN @s_bukrs
*       AND a~blotter_date IN @s_date
       AND a~dblfz IN @s_date         "" Added by Ryan Nayak 07.08.2023   to fetch based on Trade Date
      AND zmc_ref_no <> ''." }" Added by saurav 29.11.2021 Scope 4000015805 to avoid fetching where mc ref is initial.

    " Added by kisan  on 26.11.2021 Scope 4000015805  passing local internal to global internal table {
    IF lt_op IS NOT INITIAL.
      gt_data2 = CORRESPONDING #(  lt_op MAPPING
                rfha              =      rfha
                bukrs             =      bukrs
                butxt             =      butxt
                sgsart            =      sgsart
                ltx               =      ltx
                rfhazul           =      rfhazul
                kontrh            =      kontrh
                saktiv            =      saktiv
                zcom_id           =      zcom_id
                bp_name           =      bp_name
                sfhaart           =      sfhaart
                xtext             =      xtext
                prd_code          =      prd_code
                prd_desc          =      prd_desc
                prctr             =      prctr
                pc_name           =      pc_name
                rbusa             =      rbusa
                ba_name           =      ba_name
                dblfz             =      dblfz
                blotter_date      =      blotter_date
                txn_status        =      txn_status
                ztrcode           =      ztrcode
                trd_name          =      trd_name
                zgrp              =      zgrp
                grp_desc          =      grp_desc
                tsf_code          =      tsf_code
                blo_desc          =      blo_desc
                rportb            =      rportb
                xportb            =      xportb
                refer             =      refer
                int_ref_desc      =      int_ref_desc
                zuond             =      zuond
                assign_desc       =      assign_desc
                merkm             =      merkm
                exp_rate          =      exp_rate
                ztsf_deal_id      =      ztsf_deal_id
                ztsf_deal_desc    =      ztsf_deal_desc
                ztsf_mc_ref_no    =      ztsf_mc_ref_no
                ztsf_deal_type    =      ztsf_deal_type
                ztsf_exe_co       =      ztsf_exe_co
                zolam_deal_no     =      zolam_deal_no
                zpl               =      zpl
                zpl_curr          =      zpl_curr
                zpl_rate          =      zpl_rate
                zpl_lamt          =      zpl_lamt
                zpl_lcurr         =      zpl_lcurr
                fo_remark         =      fo_remark
                mo_remark         =      mo_remark
                e_date            =      e_date
                delfz             =      delfz
                curr1             =      curr1
                curr2             =      curr2
                kkurs             =      kkurs
                soptaus           =      soptaus
                rdealer           =      rdealer
                gsppart           =      gsppart
                nordext           =      nordext
                e_type            =      e_type
                settlfl           =      settlfl
                s_type            =      s_type
                sputcal           =      sputcal
                pc1               =      pc1
                pc2               =      pc2
                expiry_location   =      expiry_location
                expiry_time       =      expiry_time
                loc_code_text     =      loc_code_text
                amt1              =      amt1
                amt2              =      amt2
                bzbetr            =      bzbetr
                wzbetr            =      wzbetr
                dzterm            =      dzterm
                pwkurs            =      pwkurs
                cs_date           =      cs_date
                cs_amt            =      cs_amt
                cs_curr           =      cs_curr
                cs_rate           =      cs_rate
                cpair             =      cpair
                f_curr1           =      f_curr1
                t_curr1           =      t_curr1
                email_code        =      email_code
                mat_unmat         =      mat_unmat
                ext_stat_desc     =      ext_stat_desc
                dcrdat            =      dcrdat
                cruser            =      cruser
                tcrtim            =      tcrtim
                dupdat            =      dupdat
                upuser            =      upuser
                tuptim            =      tuptim
                zmc_ref_no        =      zmc_ref_no
                zmc_desc          =      zmc_desc
                zmc_date          =      zmc_date
                zsell             =      zsell
                zbuy              =      zbuy
                zorigin           =      zorigin
                zamt              =      zamt
                zcurr             =      zcurr
                zorg_amt          =      zorg_amt
                zocurr            =      zocurr
                zex_rate          =      zex_rate
                zship_start       =      zship_start
                zship_end         =      zship_end
                zcommodity        =      zcommodity
                zcom_desc         =      zcom_desc
                zcom_desc_long    =      zcom_desc_long
                zent_id           =      zent_id
                zent_desc         =      zent_desc
                zcurr_id          =      zcurr_id
                zcurr_desc        =      zcurr_desc
                zpay_term         =      zpay_term
                zmod_id           =      zmod_id
                zmod_desc         =      zmod_desc
                zmc_stat          =      zmc_stat
                zpay_terms        =      zpay_terms
                zpay_terms_text   =      zpay_terms_text
                zpos              =      zpos
                zpod              =      zpod
                zold_mc_ref_no    =      zold_mc_ref_no
                zuti_amt          =      zuti_amt
                zcreated_by       =      zcreated_by
                zcreated_date     =      zcreated_date
                zcreated_time     =      zcreated_time
                zchanged_by       =      zchanged_by
                zchanged_date     =      zchanged_date
                zchanged_time     =      zchanged_time ).
    ENDIF." }
  ENDIF.

  IF p_trd IS NOT INITIAL.
    DELETE gt_data1 WHERE ztrcode <> p_trd.
    DELETE gt_data2 WHERE ztrcode <> p_trd.
  ENDIF.
  "added by saurav 25.11.2021 Scope 4000015805 declaring variable and assignig value to lr_sfhaart {
  DATA : lv_curr1 TYPE tb_wgschf1,
         lv_curr2 TYPE tb_wgschf1.
  DATA: ls_top LIKE LINE OF gt_data1.
  DATA: lv_date1 TYPE d,
        lv_date2 TYPE d.
  DATA: lr_sfhaart TYPE RANGE OF zdt_sfhaart.

  lr_sfhaart = VALUE #( sign = cs_i option = cs_o ( low = c_604 ) ( low = c_609 ) )." }
  "added by saurav 25.11.2021 Scope 4000015805 fetchingDeal ID - Data Table deatils .
  SELECT a~zdeal_id,
                a~ztsf_model,
                a~zdeal_stat,
                b~zsub_type
    FROM zsgtsftr_dealid AS a
    INNER JOIN zsgtsftr_rule_bt AS b
    ON b~zmod_id = a~ztsf_model
    INTO TABLE @DATA(lt_model)
    WHERE a~zdeal_id <> ''.

  SELECT zdeal_id,
         zinv_ref,
         zinv_type,
         zamt_usd,
         zamt,
         zcurr
    FROM zsgtsftr_bil_adj
    INTO TABLE @DATA(lt_finv)
    WHERE zdeal_id <> ''.


  """""" Added by Saiteja - 13.06.2023 """"""""""

  SELECT SINGLE param1,
                param2,
                param3,
                param4,
                param5,
                param6,
                param7,
                param8,
                param9,
                param10,
                param11
  FROM zgtcatr_param
    INTO @DATA(ls_param)
    WHERE prognam = @sy-repid.

  "Added by saiteja (07.06.2023) deal status range
  DATA: lr_cdealstat TYPE RANGE OF zdt_tsf_deal_stat.
  DATA: lr_pdealstat TYPE RANGE OF zdt_tsf_deal_stat.
  DATA: lr_ndealstat TYPE RANGE OF zdt_tsf_deal_stat.
  DATA: lr_name TYPE c LENGTH 30.

  lr_cdealstat = VALUE #( sign = cs_i option = cs_o ( low = ls_param-param4 ) ( low = ls_param-param5 ) ( low = ls_param-param6 ) ( low = ls_param-param7 ) ).
  lr_pdealstat = VALUE #( sign = cs_i option = cs_o ( low = ls_param-param8 ) ).
  lr_ndealstat = VALUE #( sign = cs_i option = cs_o ( low = ls_param-param9 ) ( low = ls_param-param10 ) ( low = ls_param-param11 ) ).

  """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""

  SORT gt_data1 BY ztsf_deal_id.
  " Process Data "added by saurav 25.11.2021 Scope 4000015805
  DATA(lt_data1) = gt_data1.
  DELETE lt_data1 WHERE sfhaart IN lr_sfhaart.
  DATA(lt_data) = lt_data1.
  SORT lt_data BY ztsf_deal_id.
  SORT lt_data1 BY ztsf_deal_id.
  DELETE lt_data WHERE ztsf_deal_id IS INITIAL.
  DELETE lt_data1 WHERE ztsf_deal_type IS INITIAL.
  DELETE ADJACENT DUPLICATES FROM lt_data COMPARING ztsf_deal_id.

  "added by saurav 25.11.2021 Scope 4000015805 perfroming loop to calculate amount {
  LOOP AT lt_data ASSIGNING FIELD-SYMBOL(<fs_data>).
    ASSIGN lt_model[ zdeal_id = <fs_data>-ztsf_deal_id ] TO FIELD-SYMBOL(<fs_model>).
    IF sy-subrc = 0.
      IF <fs_model>-zsub_type = c_fx1." Added by kisan  on 26.11.2021 Scope 4000015805 Replacing strings with constants.
        DATA(lv_index) = line_index( lt_data1[ ztsf_deal_id = <fs_data>-ztsf_deal_id ] ).
        IF lv_index <> 0.
          LOOP AT lt_data1 ASSIGNING FIELD-SYMBOL(<fs_data1>) FROM lv_index."WHERE ztsf_deal_id = <fs_data>-ztsf_deal_id .
            IF <fs_data1>-ztsf_deal_id = <fs_data>-ztsf_deal_id.
              IF <fs_data1>-curr1 <> c_usd.
                TRY.
                    gs_top-amt1 =  <fs_data1>-amt1 + gs_top-amt1.
                  CATCH cx_sy_arithmetic_overflow.
                ENDTRY. "}
              ELSE.
                TRY.
                    gs_top-amt2 =  <fs_data1>-amt2 + gs_top-amt2.
                  CATCH cx_sy_arithmetic_overflow.
                ENDTRY. "}
              ENDIF.
              gs_top-deal_id = <fs_data1>-ztsf_deal_id.
              gs_top-curr1 = <fs_data1>-curr1.
              gs_top-curr2 = <fs_data1>-curr2.
            ELSE.
              EXIT.
            ENDIF.
          ENDLOOP.
        ENDIF."}
        "added by saurav 25.11.2021 Scope 4000015805 added exceptional handling
        IF gs_top-curr1 = c_twd.
          TRY.
              gs_top-amt1 = gs_top-amt1 * 100.
            CATCH cx_sy_arithmetic_overflow.
          ENDTRY. "}
        ELSEIF gs_top-curr2 = c_twd.
          TRY.
              gs_top-amt1 = gs_top-amt1 * 100.
            CATCH cx_sy_arithmetic_overflow.
          ENDTRY. "}
        ENDIF.

        gs_top-amt1 =  abs( gs_top-amt1 ).
        gs_top-amt2 =  abs( gs_top-amt2 ).
        "added by saurav 25.11.2021 Scope 4000015805 to process lead currency.
        CALL FUNCTION 'ZSGTRMFM_LEAD_CURR'
          EXPORTING
            currency1  = gs_top-curr1
            currency2  = gs_top-curr2
          IMPORTING
            l_currency = lv_curr1
            f_currency = lv_curr2.
        "added by saurav 25.11.2021 Scope 4000015805 processing the date based on deal_id
        IF line_exists( lt_data1[ ztsf_deal_id = <fs_data>-ztsf_deal_id ztsf_deal_type = c_d1 ] ) OR line_exists( lt_data1[ ztsf_deal_id = <fs_data>-ztsf_deal_id ztsf_deal_type = c_d2 ] ).
          TRY .
              ls_top = lt_data1[ ztsf_deal_id = <fs_data>-ztsf_deal_id ztsf_deal_type = c_d1 ].
              lv_date1 = ls_top-dblfz.
            CATCH cx_sy_itab_line_not_found.
          ENDTRY.
          CLEAR ls_top.
          TRY .
              ls_top = lt_data1[ ztsf_deal_id = <fs_data>-ztsf_deal_id ztsf_deal_type = c_d2 ].
              lv_date2 = ls_top-dblfz.
            CATCH cx_sy_itab_line_not_found.
          ENDTRY.

          CLEAR ls_top.
          IF lv_date1 <= lv_date2.
            ls_top-dblfz = lv_date1.
          ELSE.
            ls_top-dblfz = lv_date2.
          ENDIF.
          PERFORM rate USING lv_curr1 lv_curr2 ls_top-dblfz.
        ENDIF.
        APPEND gs_top TO gt_top.
        CLEAR gs_top.
      ENDIF.
    ENDIF.
  ENDLOOP.
  ""added by saurav 25.11.2021 Scope 4000015805 passing pl_amt based obn currency.
  LOOP AT gt_data1 ASSIGNING FIELD-SYMBOL(<fs_data2>).

    """"""" Added by Saiteja - 27.06.2023 """"""""
    CLEAR: lr_name.
    ASSIGN lt_model[ zdeal_id = <fs_data2>-ztsf_deal_id ] TO <fs_model>.
    IF sy-subrc = 0.
      IF <fs_model>-zdeal_stat IN lr_cdealstat .
        CLEAR: lr_name.
        lr_name = ls_param-param3.
      ELSEIF <fs_model>-zdeal_stat IN lr_pdealstat.
        CLEAR: lr_name.
        lr_name = ls_param-param2.
      ELSEIF <fs_model>-zdeal_stat IN lr_ndealstat.
        CLEAR: lr_name.
        lr_name = ls_param-param1.
      ENDIF.
      <fs_data2>-zinv_status = lr_name.
    ENDIF.

    ASSIGN lt_finv[ zdeal_id = <fs_data2>-ztsf_deal_id ] TO FIELD-SYMBOL(<fs_finv>).
    IF sy-subrc = 0.
      <fs_data2>-zamt_inv = <fs_finv>-zamt_usd.
    ENDIF.
    """""""""""""""""""""""""""""""""""""""""""""""""""

    ASSIGN gt_top[ deal_id = <fs_data2>-ztsf_deal_id ] TO FIELD-SYMBOL(<fs_top>).
    IF sy-subrc = 0.
      IF <fs_top>-curr1 = c_usd.
        TRY.
            <fs_data2>-zvol_usd = abs( <fs_data2>-amt1 ).
            <fs_data2>-zpl_new = <fs_data2>-amt1.
            <fs_data2>-zamt_ninv = <fs_data2>-amt1 + <fs_data2>-zamt_inv.
            <fs_data2>-zpnl_inv = <fs_data2>-zpl *  <fs_data2>-zamt_inv / ( <fs_data2>-zamt_inv + <fs_data2>-zamt_ninv ) .
            <fs_data2>-zpnl_uninv = <fs_data2>-zpl *  <fs_data2>-zamt_ninv / ( <fs_data2>-zamt_ninv + <fs_data2>-zamt_inv ) .
          CATCH cx_sy_arithmetic_overflow.
        ENDTRY.
      ELSE.
        TRY.
            IF <fs_top>-curr2 = c_usd.
              <fs_data2>-zvol_usd = abs( <fs_data2>-amt1 ).
            ENDIF.
            <fs_data2>-zpl_new = <fs_data2>-amt2.
            <fs_data2>-zamt_ninv = <fs_data2>-amt2 + <fs_data2>-zamt_inv.
            <fs_data2>-zpnl_inv = <fs_data2>-zpl *  <fs_data2>-zamt_inv / ( <fs_data2>-zamt_inv + <fs_data2>-zamt_ninv ).
            <fs_data2>-zpnl_uninv = <fs_data2>-zpl *  <fs_data2>-zamt_ninv / ( <fs_data2>-zamt_ninv + <fs_data2>-zamt_inv ).
          CATCH cx_sy_arithmetic_overflow.
        ENDTRY.
      ENDIF.

      IF <fs_top>-curr2 <> c_usd.
        <fs_data2>-zpl_local_new = <fs_top>-amt2.
      ELSE.
        <fs_data2>-zpl_local_new = <fs_top>-amt1.
      ENDIF.
    ENDIF.

  ENDLOOP.

  LOOP AT gt_data2 ASSIGNING FIELD-SYMBOL(<fs_data4>).

    """"""" Added by Saiteja - 27.06.2023 """"""""

    ASSIGN lt_model[ zdeal_id = <fs_data4>-ztsf_deal_id ] TO <fs_model>.
    IF sy-subrc = 0.
      IF <fs_model>-zdeal_stat IN lr_cdealstat .
        CLEAR: lr_name.
        lr_name = ls_param-param3.
      ELSEIF <fs_model>-zdeal_stat IN lr_pdealstat.
        CLEAR: lr_name.
        lr_name = ls_param-param2.
      ELSEIF <fs_model>-zdeal_stat IN lr_ndealstat.
        CLEAR: lr_name.
        lr_name = ls_param-param1.
      ENDIF.
      <fs_data4>-zinv_status = lr_name.
    ENDIF.

    ASSIGN lt_finv[ zdeal_id = <fs_data4>-ztsf_deal_id ] TO <fs_finv>.
    IF sy-subrc = 0.
      <fs_data4>-zamt_inv = <fs_finv>-zamt_usd.
    ENDIF.
    """""""""""""""""""""""""""""""""""""""""""""""""""

    ASSIGN gt_top[ deal_id = <fs_data4>-ztsf_deal_id ] TO <fs_top>.
    IF sy-subrc = 0.
      IF <fs_top>-curr1 = c_usd.
        TRY.
            <fs_data4>-zvol_usd = abs( <fs_data4>-amt1 ).
            <fs_data4>-zamt_ninv = <fs_data4>-amt1 + <fs_data4>-zamt_inv.
            <fs_data4>-zpnl_inv = <fs_data4>-zpl * ( <fs_data4>-zamt_inv / <fs_data4>-zamt_inv + <fs_data4>-zamt_ninv ).
            <fs_data4>-zpnl_uninv = <fs_data4>-zpl * ( <fs_data4>-zamt_ninv / <fs_data4>-zamt_ninv + <fs_data4>-zamt_inv ).
          CATCH cx_sy_arithmetic_overflow.
        ENDTRY.
      ELSE.
        TRY.
            IF <fs_top>-curr2 = c_usd.
              <fs_data4>-zvol_usd = abs( <fs_data4>-amt1 ).
            ENDIF.
            <fs_data4>-zamt_ninv = <fs_data4>-amt2 + <fs_data4>-zamt_inv.
            <fs_data4>-zpnl_inv = <fs_data4>-zpl * ( <fs_data4>-zamt_inv / <fs_data4>-zamt_inv + <fs_data4>-zamt_ninv ).
            <fs_data4>-zpnl_uninv = <fs_data4>-zpl * ( <fs_data4>-zamt_ninv / <fs_data4>-zamt_ninv + <fs_data4>-zamt_inv ).
          CATCH cx_sy_arithmetic_overflow.
        ENDTRY.
      ENDIF.

      IF <fs_top>-curr2 <> c_usd.
        <fs_data2>-zpl_local_new = <fs_top>-amt2.
      ELSE.
        <fs_data2>-zpl_local_new = <fs_top>-amt1.
      ENDIF.
    ENDIF.

  ENDLOOP.

  "" Process Data
  PERFORM style_color." Added by saurav on 02.03.2022 Scope 4000018703 to not PASS txn status.

  " Added by saurav on 02.03.2022 Scope 4000018703 to change color for txn status 02.{
  CLEAR:gs_data2.
  gs_data2-colortab = gt_color.
  MODIFY gt_data2 FROM gs_data2 TRANSPORTING colortab WHERE txn_status = c_02.

  CLEAR:gs_data1.
  gs_data1-colortab = gt_color.
  MODIFY gt_data1 FROM gs_data1 TRANSPORTING colortab WHERE txn_status = c_02."}

ENDFORM.
CLASS lcl_handle_events DEFINITION.
  PUBLIC SECTION.
    METHODS:
      on_line_click FOR EVENT link_click OF cl_salv_events_table
        IMPORTING row column. "event handler method for Hotspot

ENDCLASS.
*&---------------------------------------------------------------------*
*& Form SUB_PROCESS
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM sub_process .

  TRY .
      IF r_fx = c_x." Added by kisan  on 26.11.2021 Scope 4000015805 Replacing strings with constants.
        CALL METHOD cl_salv_table=>factory
          IMPORTING
            r_salv_table = lr_alv
          CHANGING
            t_table      = gt_data1.
      ELSEIF r_op = c_x." Added by kisan  on 26.11.2021 Scope 4000015805 Replacing strings with constants.
        CALL METHOD cl_salv_table=>factory
          IMPORTING
            r_salv_table = lr_alv
          CHANGING
            t_table      = gt_data2.
      ENDIF.
    CATCH cx_salv_msg.
  ENDTRY.

  DATA(lo_columns) = lr_alv->get_columns( ).

* Setting the Color Column name
  TRY.
      CALL METHOD lo_columns->set_color_column
        EXPORTING
          value = 'COLORTAB'.
    CATCH cx_salv_data_error.
  ENDTRY.

  lo_columns->set_optimize( 'X' ). "--> Optimise all columns

  "" Setting the Color Column name
  TRY.
      CALL METHOD lo_columns->set_color_column
        EXPORTING
          value = 'COLOR'.
    CATCH cx_salv_data_error.
  ENDTRY.

  " For HotSpot for RFHA Column
  DATA : lr_col TYPE REF TO cl_salv_column_table. "column instance
  IF lo_columns IS NOT INITIAL.
    TRY .
        lr_col ?= lo_columns->get_column( 'RFHA' ) .
      CATCH cx_salv_not_found.
    ENDTRY.

    TRY .
        CALL METHOD lr_col->set_cell_type
          EXPORTING
            value = if_salv_c_cell_type=>hotspot.
      CATCH cx_salv_data_error .
    ENDTRY.
  ENDIF.

  "" GUI STATUS
  lr_alv->set_screen_status(
    pfstatus      =  'ZSTATUS'
    report        =  'ZSGTSF_RFX_BLOTTER_COMP'
    set_functions = lr_alv->c_functions_all ).

  DATA(lo_functions) = lr_alv->get_functions( ).
  lo_functions->set_all( ).

  "" Events for ON Hotpsot Line click or Double click or user command
  DATA: gr_events TYPE REF TO lcl_handle_events.
*Register events
  DATA: lr_events TYPE REF TO cl_salv_events_table.
  lr_events = lr_alv->get_event( ). "get event

  "" Events for ON Hotpsot Line click or Double click or user command
  CREATE OBJECT gr_events.
  SET HANDLER gr_events->on_line_click FOR lr_events. "register event handler method

  "" Build Layout
  DATA(lo_layout) = lr_alv->get_layout( ).
  DATA:ls_key TYPE salv_s_layout_key..
  lo_layout->set_save_restriction( if_salv_c_layout=>restrict_none ).
  ls_key-report = sy-repid.
  lo_layout->set_key( ls_key ).
  lo_layout->set_default( abap_true ).

  lo_layout->set_initial_layout( gs_variant-variant ).

* Modify Field Catalog
  DATA: err_notfound TYPE REF TO cx_salv_not_found.
  TRY.
      " Changed by saurav on 28.04.2021 Scope 4000013818 to change column names{
      DATA(single_column) = lo_columns->get_column( 'ZPL_NEW' ).
      single_column->set_short_text( 'P&L Amt(N)' ).
      single_column->set_medium_text( 'FX P&L Amt(New)' ).
      single_column->set_long_text( 'FX P&L Amt(New)' ).
      "added by saurav 25.11.2021 Scope to change column names{
      single_column = lo_columns->get_column( 'ZPL_LOCAL_NEW' ).
      single_column->set_short_text( 'P&L loc(N)' ).
      single_column->set_medium_text( 'FX P&L loc Amt(New)' ).
      single_column->set_long_text( 'FX P&L local Amt(New)' ).

      """" Added by Saiteja 14.06.2023

      single_column = lo_columns->get_column( 'ZINV_STATUS' ).
      single_column->set_short_text( 'Inv Status' ).
      single_column->set_medium_text( 'Invoicing Status' ).
      single_column->set_long_text( 'Invoicing Status' ).

      single_column = lo_columns->get_column( 'ZAMT_INV' ).
      single_column->set_short_text( 'Amt Inv' ).
      single_column->set_medium_text( 'Amount Invoiced' ).
      single_column->set_long_text( 'Amount Invoiced ' ).

      single_column = lo_columns->get_column( 'ZAMT_NINV' ).
      single_column->set_short_text( 'Amt NInv' ).
      single_column->set_medium_text( 'Amount Not Invoiced' ).
      single_column->set_long_text( 'Amount Not Invoiced' ).

      single_column = lo_columns->get_column( 'ZPNL_INV' ).
      single_column->set_short_text( 'PNL INV' ).
      single_column->set_medium_text( 'PNL of Invoiced' ).
      single_column->set_long_text( 'PNL of Invoiced' ).

      single_column = lo_columns->get_column( 'ZPNL_UNINV' ).
      single_column->set_short_text( 'PNL UnINV' ).
      single_column->set_medium_text( 'PNL of UnInvoiced' ).
      single_column->set_long_text( 'PNL of UnInvoiced' ).

      single_column = lo_columns->get_column( 'ZVOL_USD' ).
      single_column->set_short_text( 'Volume-USD' ).
      single_column->set_medium_text( 'Volume(USD)' ).
      single_column->set_long_text( 'Volume(USD)' ).

    CATCH cx_salv_not_found INTO err_notfound.
*   Add error processing
  ENDTRY.

***TOP OF PAGE
  DATA : lr_header TYPE REF TO cl_salv_form_element.
  DATA: lr_grid_layout TYPE REF TO cl_salv_form_layout_grid,
        lr_label       TYPE REF TO cl_salv_form_label,
        lr_text        TYPE REF TO cl_salv_form_text,
        l_text         TYPE string,
        lv_sdate(10)   TYPE c,
        lv_edate(10)   TYPE c.

  DATA : lv_cnt TYPE i.
  CREATE OBJECT lr_grid_layout.
  l_text = TEXT-105." Added by kisan  on 26.11.2021 Scope 4000015805 Replacing string with text element.
  lr_grid_layout->create_header_information( "create header for gird
    row    = 1
    column = 1
    text    = l_text
    tooltip = l_text ).
  lr_grid_layout->add_row( ). "add row

  CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
    EXPORTING
      date_internal            = s_date-low
    IMPORTING
      date_external            = lv_sdate
    EXCEPTIONS
      date_internal_is_invalid = 1
      OTHERS                   = 2.

  CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
    EXPORTING
      date_internal            = s_date-high
    IMPORTING
      date_external            = lv_edate
    EXCEPTIONS
      date_internal_is_invalid = 1
      OTHERS                   = 2.

  CONCATENATE lv_sdate '-' lv_edate INTO l_text SEPARATED BY space.

  CONDENSE l_text.

  lr_label = lr_grid_layout->create_label(
    row    = 3
    column = 1
    text    = TEXT-106 " Added by kisan  on 26.11.2021 Scope 4000015805 Replacing string with text element.{
    tooltip = TEXT-107 )." }

  lr_text = lr_grid_layout->create_text(
    row    = 3
    column = 2
    text    = l_text
    tooltip = l_text ).

  lr_label->set_label_for( lr_text ).

  lr_header = lr_grid_layout.

  CALL METHOD lr_alv->set_top_of_list  "set top of list
    EXPORTING
      value = lr_header.

  SELECT SINGLE                   " Added by Aditi Macwan on 25.10.2023
      param1,
      param5,
      param8,
      param9
      FROM zgtcatr_param
      WHERE prognam = 'ZSGTRM3AR_REXE_EXP' AND
      mapid = 'A'
      INTO @ls_txnstat.

  IF p_sm IS NOT INITIAL.
    " Added by Ryan Nayak 07.08.2023
    PERFORM send_email_dlist USING ls_txnstat.
    MESSAGE s061(zsgtrmm).
  ENDIF.

  "" Final Data to Display Output
  lr_alv->display( ). "display grid

ENDFORM.

CLASS lcl_handle_events IMPLEMENTATION.
  " Hotspot Click
  METHOD on_line_click.
**handle double click here
    IF r_fx = c_x." Added by kisan  on 26.11.2021 Scope 4000015805 Replacing strings with constants.
      ASSIGN gt_data1[ row ] TO FIELD-SYMBOL(<fs_data1>)." Added by kisan  on 26.11.2021 Scope 4000015805 reading gt_data1 .
      IF sy-subrc = 0.
        gs_data1 = <fs_data1>.
      ENDIF." }
    ELSEIF r_op = c_x. " Added by kisan  on 26.11.2021 Scope 4000015805 Replacing strings with constants.
      ASSIGN gt_data2[ row ] TO FIELD-SYMBOL(<fs_data2>)." Added by kisan  on 26.11.2021 Scope 4000015805 reading gt_data1 .
      IF sy-subrc = 0.
        gs_data2 = <fs_data2>.
      ENDIF." }
    ENDIF.
    IF sy-subrc EQ 0.
      CASE column.
        WHEN 'RFHA'.
          IF r_fx = c_x." Added by kisan  on 26.11.2021 Scope 4000015805 Replacing strings with constants.
            PERFORM view_txn USING gs_data1-bukrs gs_data1-rfha.
          ELSEIF r_op = c_x." Added by kisan  on 26.11.2021 Scope 4000015805 Replacing strings with constants.
            PERFORM view_txn USING gs_data2-bukrs gs_data2-rfha.
          ENDIF.
      ENDCASE.
    ENDIF.
  ENDMETHOD.
ENDCLASS.


*&---------------------------------------------------------------------*
*& Form VIEW_TXN
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      --> GS_DATA_BUKRS
*&      --> GS_DATA_RFHA
*&---------------------------------------------------------------------*
FORM view_txn  USING    p_bukrs
                        p_rfha.

  DATA: lv_activitytype LIKE vtbfhazu-sfgzustt,
        lv_companycode  LIKE vtbfha-bukrs,
        lv_dealno       LIKE vtbfha-rfha,
        lv_dealtype     LIKE vtbfha-sfgtyp,
        lv_producttype  LIKE vtbfha-sanlf.

  SELECT SINGLE sfgzustt FROM vtbfhazu                  "#EC CI_NOORDER
         INTO lv_activitytype
         WHERE bukrs = p_bukrs
         AND   rfha = p_rfha.

  lv_companycode = p_bukrs.
  lv_dealno      = p_rfha.

  SELECT SINGLE sfgtyp sanlf FROM vtbfha
   INTO ( lv_dealtype , lv_producttype )
   WHERE bukrs = p_bukrs
   AND   rfha = p_rfha.

  CALL FUNCTION 'TB_TRANSACTION_TO_DISPLAY'
    EXPORTING
      activitytype = lv_activitytype
      companycode  = lv_companycode
      dealno       = lv_dealno
      dealtype     = lv_dealtype
      producttype  = lv_producttype
    EXCEPTIONS
      transaction  = 1
      OTHERS       = 2.
  IF sy-subrc <> 0.
* Implement suitable error handling here
  ENDIF.

ENDFORM.

*&---------------------------------------------------------------------*
*& Form SUB_GET_LAYOUT
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM sub_get_layout .

  gs_variant-report   = sy-repid.

  CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      is_variant    = gs_variant
    IMPORTING
      es_variant    = gs_variant
    EXCEPTIONS
      not_found     = 1
      program_error = 2
      OTHERS        = 3.
  IF sy-subrc = 0.
    p_layout = gs_variant-variant.
  ENDIF.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form TRD_VALUE_REQUEST
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM trd_value_request .
  TYPES: BEGIN OF ty_value,
           ztrader TYPE zsgtrmtr_trader-ztrader,
         END OF ty_value.

  DATA: lt_return TYPE STANDARD TABLE OF ddshretval,
        lt_value  TYPE TABLE OF ty_value.

  SELECT ztrader FROM                                   "#EC CI_NOWHERE
  zsgtrmtr_trader INTO TABLE @DATA(lt_trade)." Added by kisan  on 26.11.2021 Scope 4000015805 added inline declaration.
  " Added by kisan  on 26.11.2021 Scope 4000015805 passing the from interbnal table lt_trade to lt_value.{
  IF lt_trade IS NOT INITIAL .
    lt_value = CORRESPONDING #( lt_trade MAPPING
    ztrader = ztrader ).
  ENDIF." }
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'ZTRADER'
      value_org       = 'S'
    TABLES
      value_tab       = lt_value
      return_tab      = lt_return
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.
  IF sy-subrc <> 0.
* Implement suitable error handling here
  ENDIF.

  ASSIGN lt_return[ 1 ] TO FIELD-SYMBOL(<fs_return>)." Added by kisan  on 26.11.2021 Scope 4000015805 replacing read statment with assign.
  IF sy-subrc = 0.
    DATA(ls_return) = <fs_return>.
    p_trd = ls_return-fieldval.
  ENDIF." }
ENDFORM.
*&---------------------------------------------------------------------*
*& Form STYLE_COLOR
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      --> <FS_DATA1>_TXN_STATUS
*&---------------------------------------------------------------------*
FORM style_color." Added by saurav on 02.03.2022 Scope 4000018703 to not PASS txn status.
  CLEAR:gt_color.
  " Added by kisan  on 26.11.2021 Scope 4000015805  added values for alv column.
  APPEND VALUE #( color-col = 6 color-int = 0 color-inv = 1 ) TO gt_color.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form CHECK_AUTHORIZATION
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM check_authorization .
  " Added by saurav on 11.08.2021 Scope 4000015805 for authorization object.{
  "" For Company Code

  """Fetching Company codes
  SELECT bukrs
  FROM t001
  INTO TABLE @DATA(lt_t001)
  WHERE bukrs IN @s_bukrs
  ORDER BY bukrs." Added by kisan  on 26.11.2021 Scope 4000015805 added filter to comapny code.

  "" Clear the values of select options
  CLEAR : s_bukrs,s_bukrs[].

  LOOP AT lt_t001 ASSIGNING FIELD-SYMBOL(<fs_t001>).
    " AUTHORIZATION CHECK for co.code
    AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
    ID 'BUKRS' FIELD <fs_t001>-bukrs
    ID 'ACTVT' FIELD cs_03.
    IF sy-subrc = 0.
      "" If user have authorisation then append value into select options
      APPEND VALUE #( sign = cs_i option = cs_o low = <fs_t001>-bukrs ) TO s_bukrs.
    ENDIF.
  ENDLOOP.

  ""If user doesn't have any authorisation then display a meassge & laeve to selection screen
  IF s_bukrs[] IS INITIAL.
    MESSAGE TEXT-104 TYPE cs_e. "You do not have an authorization for the given company code
    LEAVE LIST-PROCESSING.
  ENDIF."}

ENDFORM.
*&---------------------------------------------------------------------*
*& Form RATE
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      --> LV_CURR1
*&      --> LV_CURR2
*&      --> LS_TOP_DBLFZ
*&---------------------------------------------------------------------*
FORM rate  USING   lv_curr1 lv_curr2 date.
  " calling bapi to get exchage rate.
  CALL FUNCTION 'BAPI_EXCHANGERATE_GETDETAIL'
    EXPORTING
      rate_type  = 'M'
      from_curr  = lv_curr1
      to_currncy = lv_curr2
      date       = date
    IMPORTING
      exch_rate  = gs_exch_rate.

  gs_top-rate = gs_exch_rate-exch_rate.
  TRY .
      IF gs_top-amt1 IS NOT INITIAL.
        gs_top-amt2 =  gs_top-amt1  / gs_top-rate.
      ELSE.
        gs_top-amt1 =  gs_top-amt2  / gs_top-rate.
      ENDIF.

    CATCH cx_sy_zerodivide.
  ENDTRY.
  " Added by saurav on 04.08.2021 Scope 4000015282 to add exception handling{
  TRY.
      IF lv_curr1 = c_twd." Added by saurav on 03.08.2021 Scope 4000015282 to replace constant with strings
        gs_top-amt1 = gs_top-amt1 * 100.
      ELSEIF lv_curr2 = c_twd." Added by saurav on 03.08.2021 Scope 4000015282 to replace constant with strings
        gs_top-amt1 = gs_top-amt1 * 100.
      ENDIF.
    CATCH cx_sy_arithmetic_overflow.
  ENDTRY. "}
ENDFORM.


""" Added by Ryan Nayak 07.08.2023
FORM send_email_dlist USING ls_txnstat TYPE gt_params.

  CONSTANTS:
    gc_tab  TYPE c VALUE cl_bcs_convert=>gc_tab,
    gc_crlf TYPE c VALUE cl_bcs_convert=>gc_crlf.


  ls_txnstat-param1 = ls_txnstat-param1+0(1).   "Added by Aditi Macwan on 25.10.2023

  ""For getting Variant of Background Job
  CALL FUNCTION 'GET_JOB_RUNTIME_INFO'
    IMPORTING
      eventid                 = lv_eventid
      eventparm               = lv_evtparm
      external_program_active = lv_active
      jobcount                = lv_jobcnt
      jobname                 = lv_jobnm
      stepcount               = lv_stepcnt
    EXCEPTIONS
      no_runtime_info         = 1
      OTHERS                  = 2.
  IF sy-subrc <> 0.
*   Error calling FM: GET_JOB_RUNTIME_INFO
  ENDIF.


  "******selecting Background Job Step Overview data from table based on the Background job name and Job ID Job step ID number..
  SELECT jobname,jobcount,stepcount,variant
  FROM   tbtcp
  INTO TABLE @DATA(l_it_tbtcp)
  WHERE  jobname   = @lv_jobnm
  AND    jobcount  = @lv_jobcnt
  AND    stepcount = @lv_stepcnt.
  IF sy-subrc = 0.
    SORT l_it_tbtcp BY jobname jobcount stepcount.
    READ TABLE l_it_tbtcp ASSIGNING FIELD-SYMBOL(<fs_tbtcp>) INDEX 1.
    IF sy-subrc = 0.
      lv_variant = <fs_tbtcp>-variant.
      lv_variant_name = lv_variant.
    ENDIF.
  ENDIF.


  CALL FUNCTION 'SO_DLI_READ_API1'
    EXPORTING
      dli_name                   = lv_variant_name "lv_vari  "sy-slset
      shared_dli                 = 'X'
    TABLES
      dli_entries                = gt_email
    EXCEPTIONS
      dli_not_exist              = 1
      operation_no_authorization = 2
      parameter_error            = 3
      x_error                    = 4
      OTHERS                     = 5.
  IF sy-subrc <> 0.
  ENDIF.

  IF gt_email IS NOT INITIAL.

    TRY.
        lo_send_request = cl_bcs=>create_persistent( ).

*       For setting the email format
        CLEAR: lv_ebody, wa_message_body.
        CONCATENATE lv_ebody
        '<html><style>*{font-family: Calibri;}table,td{border-collapse:collapse;text-align: center;height: 20px;border: 1px solid #000;border-color: black;font-size:15px;white-space: nowrap}'
        INTO lv_ebody.
        APPEND lv_ebody TO text.
        wa_message_body-line = lv_ebody.
        APPEND wa_message_body TO lt_message_body.

        CLEAR: lv_ebody, wa_message_body.
        CONCATENATE lv_ebody
        'body{padding: 25px 10px 75px 10px;}.Grey{background-color:#d8d8d8;font-size:15px;font-weight : bold;}</style><meta name="generator" content="HTML Tidy for HTML5 for ABAP version 5.6.0">'
        INTO lv_ebody.
        APPEND lv_ebody TO text.
        wa_message_body-line = lv_ebody.
        APPEND wa_message_body TO lt_message_body.

*      For Main Body Of Mail
        CLEAR: lv_ebody, wa_message_body.
        CONCATENATE lv_ebody
        '<body><p>Dear all,</p>'
        INTO lv_ebody SEPARATED BY space .
        APPEND lv_ebody TO text.
        wa_message_body-line = lv_ebody.
        APPEND wa_message_body TO lt_message_body.

        CLEAR: lv_ebody, wa_message_body.
        CONCATENATE lv_ebody
        '<p> Please find attached for the OGA new trade due for submission to MAS </p>'
        INTO lv_ebody SEPARATED BY space .
        APPEND lv_ebody TO text.
        wa_message_body-line = lv_ebody.
        APPEND wa_message_body TO lt_message_body.

        IF r_fx IS NOT INITIAL.
          CLEAR: lv_ebody, wa_message_body.
          CONCATENATE lv_ebody
          '<p> Note : It is for DE6 blotter (Forwards) </p>'
          INTO lv_ebody SEPARATED BY space .
          APPEND lv_ebody TO text.
          wa_message_body-line = lv_ebody.
          APPEND wa_message_body TO lt_message_body.
        ELSE.
          CLEAR: lv_ebody, wa_message_body.
          CONCATENATE lv_ebody
          '<p> Note : It is for DE7 blotter (Options) </p>'
          INTO lv_ebody SEPARATED BY space .
          APPEND lv_ebody TO text.
          wa_message_body-line = lv_ebody.
          APPEND wa_message_body TO lt_message_body.
        ENDIF.

        CLEAR: lv_ebody,wa_message_body.
        CONCATENATE lv_ebody
        '<p> Thank You </p>'
        INTO lv_ebody.
        APPEND lv_ebody TO text.
        wa_message_body-line = lv_ebody.
        APPEND wa_message_body TO lt_message_body.

        CLEAR: lv_ebody,wa_message_body.
        CONCATENATE lv_ebody
        '<p><b> **** This Is System Generated E-Mail **** </b></p>'
        INTO lv_ebody.
        APPEND lv_ebody TO text.
        wa_message_body-line = lv_ebody.
        APPEND wa_message_body TO lt_message_body.

        APPEND '</body>' TO lt_message_body .
        APPEND '</html>' TO lt_message_body .

        "" Email Subject
        lv_subject = 'SAP New Trades - MAS Submission COB -'.
        CONCATENATE lv_subject ` ` s_date-low+6(2)'/'s_date-low+4(2)'/'s_date-low+0(4) INTO lv_subject.


*       Calculate the Document Size
        CLEAR: lv_lines, lv_so_obj_len.
        DESCRIBE TABLE lt_message_body LINES lv_lines.
        TRY .
            lv_so_obj_len = 255 * lv_lines.
          CATCH cx_sy_arithmetic_overflow.
        ENDTRY.

*       Create the Document
        lo_document = cl_document_bcs=>create_document(
                        i_type    = 'HTM'
                        i_text    = text
                        i_length  = lv_so_obj_len
                        i_subject = '' ).

        CALL METHOD lo_send_request->set_message_subject
          EXPORTING
            ip_subject = lv_subject.

*       Creating fcat for excel file
        IF gt_data1 IS NOT INITIAL OR gt_data2 IS NOT INITIAL.

          CLEAR lv_line.
          " Changes by Aditi Macwan on 08.09.2023 (
          IF r_fx IS NOT INITIAL.
            CONCATENATE lv_line 'Transaction' gc_tab
            'Company Code' gc_tab
            'Business Area' gc_tab
            'Trade Date' gc_tab
            'Value Date' gc_tab
            'Fixing Date' gc_tab
            'TSF Entity' gc_tab
            'Transaction Type Description' gc_tab
            'Partner Name' gc_tab
            'Buy/Sell 2' gc_tab
            'Currency 2 ' gc_tab
            'Amount 2' gc_tab
            'Buy/Sell 1' gc_tab
            'Currency 1 ' gc_tab
            'Amount 1' gc_tab
            'All in Rate' gc_tab
            'Txn Status Desc' gc_tab
            'Value Date' gc_tab
            'Deal ID' gc_tab
            'MC Reference No' gc_tab
            'Business Area Desc' gc_tab
            'Trader Name' gc_tab
            'Accounting Category' gc_tab
            'External Reference'  gc_crlf INTO lv_line.

          ELSE. " Added by Vaishnavi Jambhale on 22.08.2023 (

            CONCATENATE lv_line 'Trade Date' gc_tab
            'Company Name' gc_tab
            'Exercise Type' gc_tab
            'Transaction Type Description' gc_tab
            'Put/Call 1' gc_tab
            'Currency 1' gc_tab
            'Amount 1' gc_tab
            'Put/Call 2' gc_tab
            'Currency 2' gc_tab
            'Amount 2' gc_tab
            'Strike Rate' gc_tab
            'Expiry Date' gc_tab
            'Value Date' gc_tab
            'Transaction' gc_tab
            'Deal ID' gc_tab
            'External Reference' gc_tab
            'Partner Name' gc_tab
            'Rate' gc_tab
            'Currency Pair' gc_tab
            'Internal Deal Ref' gc_tab
            'Premium Currency' gc_tab
            'Premium Amount' gc_tab
            'Premium Date' gc_tab
            'MC Ref No.' gc_tab
            'Commodity Description Long' gc_tab
            'MC Date' gc_tab
            'Ship Start' gc_tab
            'Ship End' gc_tab
            'Txn Status Desc' gc_tab
            'Trader' gc_tab
            'FX Model' gc_tab
            'Business Area Desc' gc_tab
            'Old MC Ref' gc_tab
            'FO Remarks' gc_tab
            'MO Remarks' gc_crlf INTO lv_line.
          ENDIF.

          "" For Main Data
*         Added by Vaishnavi Jambhale on 22.08.2023(
          CLEAR: lv_premium_date, lv_fixdate, lv_bldate, lv_trdate, lv_valdate, lv_exp_date,
                 lv_mc_date, lv_ship_start_date, lv_ship_end_date, lv_rfha, lv_dealid, lv_mcrefno,
                 lv_extref, lv_ba, lv_amt1, lv_amt2, lv_premium_amt, lv_tot_rate. ")
          IF r_op IS NOT INITIAL.
            LOOP AT gt_data2 ASSIGNING FIELD-SYMBOL(<fs_odata>).
              IF <fs_odata>-txn_status = ls_txnstat-param5 OR <fs_odata>-txn_status = ls_txnstat-param8 OR <fs_odata>-txn_status = ls_txnstat-param9.
                " Added by Vaishnavi Jambhale on 22.08.2023(
                IF <fs_odata>-dzterm IS NOT INITIAL.
                  WRITE <fs_odata>-dzterm TO lv_premium_date.
                ENDIF.
                ")

                IF <fs_odata>-dblfz IS NOT INITIAL.
                  WRITE <fs_odata>-dblfz TO lv_trdate.
                ENDIF.

                IF <fs_odata>-delfz IS NOT INITIAL.
                  WRITE <fs_odata>-delfz TO lv_valdate.
                ENDIF.

                IF <fs_odata>-e_date IS NOT INITIAL.
                  WRITE <fs_odata>-e_date TO lv_exp_date. " Modified by Vaishnavi Jambhale on 22.08.2023
                ENDIF.

                " Added by Vaishnavi Jambhale on 22.08.2023(
                IF <fs_odata>-zmc_date IS NOT INITIAL.
                  WRITE <fs_odata>-zmc_date TO lv_mc_date.
                ENDIF.

                IF <fs_odata>-zship_start IS NOT INITIAL.
                  WRITE <fs_odata>-zship_start TO lv_ship_start_date.
                ENDIF.

                IF <fs_odata>-zship_end IS NOT INITIAL.
                  WRITE <fs_odata>-zship_end TO lv_ship_end_date.
                ENDIF.
                ")

                REPLACE ALL OCCURRENCES OF:  '.' IN lv_premium_date WITH '/',    " Added by Vaishnavi Jambhale on 22.08.2023
                                             '.' IN lv_trdate WITH '/',
                                             '.' IN lv_valdate WITH '/',
                                             '.' IN lv_exp_date WITH '/',        " Modified by Vaishnavi Jambhale on 22.08.2023
                                             '.' IN lv_mc_date WITH '/',         " Added by Vaishnavi Jambhale on 22.08.2023
                                             '.' IN lv_ship_start_date WITH '/', " Added by Vaishnavi Jambhale on 22.08.2023
                                             '.' IN lv_ship_end_date WITH '/'.   " Added by Vaishnavi Jambhale on 22.08.2023


                "" processing IDs & numeric values
                IF <fs_odata>-rfha IS NOT INITIAL.
                  SHIFT <fs_odata>-rfha LEFT DELETING LEADING '0'.
*                WRITE <fs_odata>-rfha  TO lv_rfha.
                  lv_rfha = |="| && <fs_odata>-rfha && |"|.
                ENDIF.

                IF <fs_odata>-ztsf_deal_id IS NOT INITIAL.
                  WRITE <fs_odata>-ztsf_deal_id  TO lv_dealid.
                ENDIF.

                IF <fs_odata>-ztsf_mc_ref_no IS NOT INITIAL.
                  WRITE <fs_odata>-ztsf_mc_ref_no  TO lv_mcrefno.
                ENDIF.

                IF <fs_odata>-nordext IS NOT INITIAL.
                  WRITE <fs_odata>-nordext TO lv_extref.
                ENDIF.

                IF <fs_odata>-rbusa IS NOT INITIAL.
                  WRITE <fs_odata>-rbusa TO lv_ba.
                ENDIF.

                IF <fs_odata>-fo_remark IS NOT INITIAL. " Added by Aditi Macwan on 09.10.2023
                  WRITE <fs_odata>-fo_remark TO lv_fo_remarks.
                ENDIF.

                IF <fs_odata>-mo_remark IS NOT INITIAL. " Added by Aditi Macwan on 09.10.2023
                  WRITE <fs_odata>-mo_remark TO lv_mo_remarks.
                ENDIF.


                "" processing amounts & rates
                IF <fs_odata>-amt1 < 0.
                  TRY. lv_amt1_dec = <fs_odata>-amt1 * -1. CATCH cx_sy_arithmetic_overflow. ENDTRY.
                  WRITE lv_amt1_dec TO lv_amt1 CURRENCY <fs_odata>-curr1. " Added by Aditi Macwan on 10.10.2023
                  lv_amt1 = '-' &&  lv_amt1.
                ELSE.
                  WRITE <fs_odata>-amt1 TO lv_amt1. " Modified by Vaishnavi Jambhale on 22.08.2023
                ENDIF.

                IF <fs_odata>-amt2 < 0.
                  TRY. lv_amt2_dec = <fs_odata>-amt2 * -1. CATCH cx_sy_arithmetic_overflow. ENDTRY.
                  WRITE lv_amt2_dec TO lv_amt2 CURRENCY <fs_odata>-curr2. " Added by Aditi Macwan on 10.10.2023
                  lv_amt2 = '-' &&  lv_amt2.
                ELSE.
                  WRITE <fs_odata>-amt2 TO lv_amt2. " Modified by Vaishnavi Jambhale on 22.08.2023
                ENDIF.

                " Added by Vaishnavi Jambhale on 22.08.2023(
                IF <fs_odata>-bzbetr < 0.
                  TRY. lv_premium_amt = <fs_odata>-bzbetr * -1. CATCH cx_sy_arithmetic_overflow. ENDTRY.
                  lv_premium_amt = '-' && lv_premium_amt.
                ELSE.
                  WRITE <fs_odata>-bzbetr TO lv_premium_amt.
                ENDIF.

                IF <fs_odata>-kkurs < 0.
                  TRY. lv_strike_rate = <fs_odata>-kkurs * -1. CATCH cx_sy_arithmetic_overflow. ENDTRY.
                  lv_strike_rate = '-' &&  lv_strike_rate.
                ELSE.
                  WRITE <fs_odata>-kkurs TO lv_strike_rate.
                ENDIF.


                IF <fs_odata>-exp_rate < 0.
                  TRY. lv_exp_rate = <fs_odata>-exp_rate * -1. CATCH cx_sy_arithmetic_overflow. ENDTRY.
                  lv_exp_rate = '-' &&  lv_exp_rate.
                ELSE.
                  WRITE <fs_odata>-exp_rate TO lv_exp_rate.
                ENDIF.
                "" appending data
                " Changes by Aditi Macwan on 07.09.2023 (
                CONCATENATE lv_line lv_trdate gc_tab
                <fs_odata>-butxt gc_tab
                <fs_odata>-e_type gc_tab
                <fs_odata>-xtext gc_tab
                <fs_odata>-pc1 gc_tab
                <fs_odata>-curr1 gc_tab
                lv_amt1 gc_tab
                <fs_odata>-pc2 gc_tab
                <fs_odata>-curr2 gc_tab
                lv_amt2 gc_tab
                lv_strike_rate gc_tab
                lv_exp_date gc_tab
                lv_valdate gc_tab
                lv_rfha gc_tab
                lv_dealid gc_tab
                lv_extref gc_tab
                <fs_odata>-bp_name gc_tab
                lv_exp_rate gc_tab
                <fs_odata>-cpair gc_tab
                <fs_odata>-zolam_deal_no gc_tab
                <fs_odata>-wzbetr gc_tab
                lv_premium_amt gc_tab
                lv_premium_date gc_tab
                lv_mcrefno gc_tab
                <fs_odata>-zcom_desc_long gc_tab
                lv_mc_date gc_tab
                lv_ship_start_date gc_tab
                lv_ship_end_date gc_tab
                <fs_odata>-ext_stat_desc gc_tab
                <fs_odata>-rdealer gc_tab
                <fs_odata>-zmod_id gc_tab
                <fs_odata>-ba_name gc_tab
                <fs_odata>-zold_mc_ref_no gc_tab
                lv_fo_remarks gc_tab
                lv_mo_remarks gc_crlf INTO lv_line.
              ENDIF.
            ENDLOOP.
          ELSE.
            LOOP AT gt_data1 ASSIGNING FIELD-SYMBOL(<fs_edata>).
              IF <fs_edata>-txn_status = ls_txnstat-param1 OR <fs_edata>-txn_status = ls_txnstat-param5.

                "" converting excel data type by moving fields to local variables
                "" processing dates to excel format
                IF <fs_edata>-blotter_date IS NOT INITIAL.
                  WRITE <fs_edata>-blotter_date TO lv_bldate.
                ENDIF.

                IF <fs_edata>-dblfz IS NOT INITIAL.
                  WRITE <fs_edata>-dblfz TO lv_trdate.
                ENDIF.

                IF <fs_edata>-delfz IS NOT INITIAL.
                  WRITE <fs_edata>-delfz TO lv_valdate.
                ENDIF.

                IF <fs_edata>-v_date IS NOT INITIAL.
                  WRITE <fs_edata>-v_date TO lv_fixdate.
                ENDIF.

                REPLACE ALL OCCURRENCES OF:  '.' IN lv_bldate WITH '/',
                                             '.' IN lv_trdate WITH '/',
                                             '.' IN lv_fixdate WITH '/',
                                             '.' IN lv_valdate WITH '/'.

                "" processing IDs & numeric values
                IF <fs_edata>-rfha IS NOT INITIAL.
                  SHIFT <fs_edata>-rfha LEFT DELETING LEADING '0'.
*                WRITE <fs_edata>-rfha  TO lv_rfha.
                  lv_rfha = |="| && <fs_edata>-rfha && |"|.
                ENDIF.

                IF <fs_edata>-ztsf_deal_id IS NOT INITIAL.
                  WRITE <fs_edata>-ztsf_deal_id  TO lv_dealid.
                ENDIF.

                IF <fs_edata>-ztsf_mc_ref_no IS NOT INITIAL.
                  WRITE <fs_edata>-ztsf_mc_ref_no  TO lv_mcrefno.
                ENDIF.

                IF <fs_edata>-nordext IS NOT INITIAL.
                  WRITE <fs_edata>-nordext TO lv_extref.
                ENDIF.

                IF <fs_edata>-rbusa IS NOT INITIAL.
                  WRITE <fs_edata>-rbusa TO lv_ba.
                ENDIF.

                "" processing amounts & rates
                IF <fs_edata>-amt1 < 0.
                  TRY. lv_amt1_dec = <fs_edata>-amt1 * -1. CATCH cx_sy_arithmetic_overflow. ENDTRY.
                  WRITE lv_amt1_dec TO lv_amt1 CURRENCY <fs_edata>-curr1. " Added by Aditi Macwan on 10.10.2023
                  lv_amt1 = '-' &&  lv_amt1.
                ELSE.
                  WRITE <fs_edata>-amt1 TO lv_amt1.
*                lv_amt1 = <fs_edata>-amt1.
                ENDIF.

                IF <fs_edata>-amt2 < 0.
                  TRY. lv_amt2_dec = <fs_edata>-amt2 * -1. CATCH cx_sy_arithmetic_overflow. ENDTRY.
                  WRITE lv_amt2_dec TO lv_amt2 CURRENCY <fs_edata>-curr2. " Added by Aditi Macwan on 10.10.2023
                  lv_amt2 = '-' &&  lv_amt2.
                ELSE.
                  WRITE <fs_edata>-amt2 TO lv_amt2.
*                lv_amt2 = <fs_edata>-amt2.
                ENDIF.

                IF <fs_edata>-tot_rate < 0.
                  TRY. lv_tot_rate = <fs_edata>-tot_rate * -1. CATCH cx_sy_arithmetic_overflow. ENDTRY.
                  lv_tot_rate = '-' &&  lv_tot_rate.
                ELSE.
                  lv_tot_rate = <fs_edata>-tot_rate.
                ENDIF.

                "" appending data,
                CONCATENATE lv_line lv_rfha gc_tab
                <fs_edata>-bukrs gc_tab
                lv_ba gc_tab
                lv_bldate gc_tab
                lv_trdate gc_tab
                lv_fixdate gc_tab
                <fs_edata>-zcom_id gc_tab
                <fs_edata>-xtext gc_tab
                <fs_edata>-bp_name gc_tab
                <fs_edata>-bs_2 gc_tab
                <fs_edata>-curr2 gc_tab
                lv_amt2 gc_tab
                <fs_edata>-bs_1 gc_tab
                <fs_edata>-curr1 gc_tab
                lv_amt1 gc_tab
                lv_tot_rate gc_tab
                <fs_edata>-ext_stat_desc gc_tab
                lv_valdate gc_tab
                lv_dealid gc_tab
                lv_mcrefno gc_tab
                <fs_edata>-ba_name gc_tab
                <fs_edata>-trd_name gc_tab
                <fs_edata>-xportb gc_tab
                lv_extref gc_crlf INTO lv_line.
              ENDIF.
            ENDLOOP.
          ENDIF.
*         BREAK-POINT.
*          lv_line = lv_line && |</TABLE> </HTML>|.

          "" Converting xml to binary
          TRY.
              cl_bcs_convert=>string_to_solix(
                EXPORTING
                  iv_string   = lv_line
                  iv_codepage = '4103'  "suitable for MS Excel, leave empty
                  iv_add_bom  = 'X'     "for other doc types
                IMPORTING
                  et_solix  = lt_att_content_hex
                  ev_size   = lv_so_obj_len ).
            CATCH cx_bcs.

          ENDTRY.

          IF r_fx IS NOT INITIAL.
            lv_exceldesc = 'OLAM_OGA_MAS_SAP_TSF_Transaction_' && s_date-low+0(4) && s_date-low+4(2) && s_date-low+6(2). " Changed by Aditi Macwan on 09.10.2023 'DE6 - Forwards'
          ELSE.
            lv_exceldesc = 'OLAM_OGA_MAS_SAP_OPTION_' && s_date-low+0(4) && s_date-low+4(2) && s_date-low+6(2). " Changed by Aditi Macwan on 09.10.2023 'DE7 - Options'
          ENDIF.

          """ to attach xls file
          TRY.
              lo_document->add_attachment(
                EXPORTING
                i_attachment_type     = 'csv'
                i_attachment_subject  = lv_exceldesc  "BU CCR NDF
                i_attachment_size     = lv_so_obj_len
                i_att_content_hex     = lt_att_content_hex ).
*                i_att_content_hex     = lv_line ).

            CATCH cx_document_bcs INTO lx_document_bcs.
          ENDTRY.

        ENDIF.


*     Add document to send request
        CALL METHOD lo_send_request->set_document( lo_document ).
**     --------- set sender -------------------------------------------
**     note: this is necessary only if you want to set the sender
**           different from actual user (SY-UNAME). Otherwise sender is
**           set automatically with actual user.
        lo_sender = cl_sapuser_bcs=>create( sy-uname ).
        CALL METHOD lo_send_request->set_sender
          EXPORTING
            i_sender = lo_sender.

*       Create recipient
        LOOP AT gt_email ASSIGNING FIELD-SYMBOL(<fs_email>).

          DATA lv_eadd TYPE ad_smtpadr.
          lv_eadd = <fs_email>-member_adr.
          TRY.
              lo_recipient = cl_cam_address_bcs=>create_internet_address( lv_eadd ).
            CATCH cx_address_bcs.
          ENDTRY.

*       Set recipient
          TRY.
              lo_send_request->add_recipient(
              EXPORTING
              i_recipient = lo_recipient
              i_express = 'X' ).
            CATCH cx_send_req_bcs .
          ENDTRY.
        ENDLOOP.
*     ---------- Send document ---------------------------------------
        TRY.
            lo_send_request->set_send_immediately( 'X' ).
            lo_send_request->send(
            EXPORTING
            i_with_error_screen = 'X'
            RECEIVING
            result = lv_sent_to_all ).
          CATCH cx_send_req_bcs INTO lv_send_exc.
          CATCH cx_address_bcs INTO lv_addr_exc.
        ENDTRY.
        COMMIT WORK AND WAIT.
        MESSAGE s131(zsgtrmm).
      CATCH cx_bcs INTO bcs_exception.


    ENDTRY.
  ENDIF.
ENDFORM.

​x
 
*&---------------------------------------------------------------------*
*& Include          ZSGTSF_RFX_BLOTTER_COMP_F01
*&---------------------------------------------------------------------*
*&  Program Name        : ZSGTSF_RFX_BLOTTER_COMP                     *&
*&  Author Name         : Sufyan Khan                                 *&
*&  Functional Name     : Sunil Alva                                  *&
*&  Module              : TSF                                         *&
*&  Description         : Blotter                                     *&
*&  Request No          : TRSK900073                                  *&
*&  Transaction Code    : ZSGTSFR015                                  *&
*&---------------------------------------------------------------------*
* Change History
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
* Modified By            : Kisan                                       *
* Date of Modification   : 10.12.2020                                  *
* Change Request No      : TRDK904778                                  *
* Reason Of Modification : MC/ BU Details required in columns          *
*----------------------------------------------------------------------*
* Modified By            : Saurav                                      *
* Date of Modification   : 30.12.2021                                  *
* Change Request No      : TRDK910602                                  *
* Reason Of Modification : Auth obj maintenance (ZSGTSFR006)           *
*----------------------------------------------------------------------*
* Modified By            : Saurav                                      *
* Date of Modification   : 02.03.2022                                  *
* Change Request No      : TRDK913534                                  *
* Reason Of Modification : Deal Dump Report - Buy/Sell Mapping         *
*----------------------------------------------------------------------*
* Modified By            : Vaishnavi Jambhale                          *
* Date of Modification   : 22.08.2023                                  *
* Change Request No      : TRDK917678                                  *
* Reason Of Modification : Additional Columns / Email Functionality    *
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
* Modified By            : Aditi Macwan                                *
* Date of Modification   : 23.10.2023                                  *
* Change Request No      : TRDK917677                                  *
* Reason Of Modification : Adding Txn status                           *
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form SUB_GET_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM sub_get_data .
​
  PERFORM check_authorization." Added by saurav on 11.08.2021 Scope 4000015805 to call subroutine for authorization object.
​
  IF rb_b IS NOT INITIAL.           "Blotter Date
    DATA(lv_where) = 'ZBLOTTER_DATE IN @S_DATE'.
  ELSEIF rb_t IS NOT INITIAL.       "Trade Date
    lv_where  = 'ZT_DATE IN @S_DATE'.
  ENDIF.
​
  IF r_fx = c_x." Added by kisan  on 26.11.2021 Scope 4000015805 Replacing strings with constants and added inline data declaration {
    SELECT  a~bukrs,
            a~rfha,
            a~saktiv,
            a~sgsart,
            a~butxt,
            a~ltx,
            a~sfhaart,
            a~xtext,
            a~bp_name,
            a~rfhazul,
            a~kontrh,
            a~blotter_date,
            a~prd_code,
            a~prd_desc,
            a~prctr,
            a~pc_name,
            a~rbusa,
            a~ba_name,
            a~rportb,
            a~xportb,
            a~zuonr,
            a~zuond,
            a~assign_desc,
            a~refer,
            a~int_ref_desc,
            a~objnr,
            a~refnr,
            a~dblfz,
            a~delfz,
            a~sfgtyp,
            a~sanlf,
            a~zwaers,
            a~zcom_id,
            a~rdealer,
            a~gsppart,
            a~nordext,
            a~txn_status,
            a~ztrcode,
            a~trd_name,
            a~zgrp,
            a~grp_desc,
            a~tsf_code,
            a~blo_desc,
            a~merkm,
            a~v_date,
            a~ndf_date,
            a~ndf_ref,
            a~ext_stat_desc,
            a~zsubject,
            a~mat_unmat,
            a~fo_remark,
            a~mo_remark,
            a~ztsf_deal_desc,
            a~ztsf_deal_id,
            a~ztsf_mc_ref_no,
            a~ztsf_deal_type,
            a~zolam_deal_no,
            a~zpl,
            a~zpl_curr,
            a~zpl_rate,
            a~zpl_lamt,
            a~zpl_lcurr,
            a~ztsf_exe_co,
            a~ndf_fo_rem,
            a~ndf_mo_rem,
            a~bs,
            a~bs_o,
            a~bs_1,
            a~bs_2,
            a~curr1,
            a~curr2,
            a~amt1,
            a~amt2,
            a~curr_st1,
            a~zamt_st1,
            a~curr_st2,
            a~zamt_st2,
            a~ospot,
            a~oswap,
            a~otot_rate,
            a~t_rate,
            a~spot,
            a~swap,
            a~tot_rate,
            a~ndf_rate,
            a~cpair,
            a~f_curr1,
            a~t_curr1,
            a~cash_curr,
            a~zcash_amt,
            a~email_code,
            a~dcrdat,
            a~cruser,
            a~tcrtim,
            a~dupdat,
            a~upuser,
            a~tuptim,
            b~zmc_ref_no,
            b~zmc_desc,
            b~zmc_date,
            b~zsell,
            b~zbuy,
            b~zorigin,
            b~zamt,
            b~zcurr,
            b~zorg_amt,
            b~zocurr,
            b~zex_rate,
            b~zship_start,
            b~zship_end,
            b~zcommodity,
            b~zcom_desc,
            b~zcom_desc_long,
            b~zent_id,
            b~zent_desc,
            b~zcurr_id,
            b~zcurr_desc,
            b~zpay_term,
            b~zmod_id,
            b~zmod_desc,
            b~zmc_stat,
            b~zpay_terms,
            b~zpay_terms_text,
            b~zpos,
            b~zpod,
            b~zold_mc_ref_no,
            b~zuti_amt,
            b~zcreated_by,
            b~zcreated_date,
            b~zcreated_time,
            b~zchanged_by,
            b~zchanged_date,
            b~zchanged_time
        FROM ( zsgtsfv_fx AS a
        INNER JOIN zsgtsftr_mas_con AS b  "added by sufyan(13.10.2020) to get mas cont details
        ON b~zmc_ref_no = a~ztsf_mc_ref_no )
      INTO TABLE @DATA(lt_fx)
        WHERE a~bukrs IN @s_bukrs
*        AND a~blotter_date IN @s_date
         AND a~dblfz IN @s_date         "" Added by Ryan Nayak 07.08.2023   to fetch based on Trade Date
         AND b~zmc_ref_no <> ''." } " Added by saurav 29.11.2021 Scope 4000015805 to avoid fetching where mc ref is initial.
​
    " Added by kisan  on 26.11.2021 Scope 4000015805  passing local internal to global internal table {
    IF lt_fx IS NOT INITIAL .
      gt_data1 = CORRESPONDING #( lt_fx MAPPING
         bukrs           =    bukrs
         rfha            =    rfha
         saktiv          =    saktiv
         sgsart          =    sgsart
         butxt           =    butxt
         ltx             =    ltx
         sfhaart         =    sfhaart
         xtext           =    xtext
         bp_name         =    bp_name
         rfhazul         =    rfhazul
         kontrh          =    kontrh
         blotter_date    =    blotter_date
         prd_code        =    prd_code
         prd_desc        =    prd_desc
         prctr           =    prctr
         pc_name         =    pc_name
         rbusa           =    rbusa
         ba_name         =    ba_name
         rportb          =    rportb
         xportb          =    xportb
         zuonr           =    zuonr
         zuond           =    zuond
         assign_desc     =    assign_desc
         refer           =    refer
         int_ref_desc    =    int_ref_desc
         objnr           =    objnr
         refnr           =    refnr
         dblfz           =    dblfz
         delfz           =    delfz
         sfgtyp          =    sfgtyp
         sanlf           =    sanlf
         zwaers          =    zwaers
         zcom_id         =    zcom_id
         rdealer         =    rdealer
         gsppart         =    gsppart
         nordext         =    nordext
         txn_status      =    txn_status
         ztrcode         =    ztrcode
         trd_name        =    trd_name
         zgrp            =    zgrp
         grp_desc        =    grp_desc
         tsf_code        =    tsf_code
         blo_desc        =    blo_desc
         merkm           =    merkm
         v_date          =    v_date
         ndf_date        =    ndf_date
         ndf_ref         =    ndf_ref
         ext_stat_desc   =    ext_stat_desc
         zsubject        =    zsubject
         mat_unmat       =    mat_unmat
         fo_remark       =    fo_remark
         mo_remark       =    mo_remark
         ztsf_deal_desc  =    ztsf_deal_desc
         ztsf_deal_id    =    ztsf_deal_id
         ztsf_mc_ref_no  =    ztsf_mc_ref_no
         ztsf_deal_type  =    ztsf_deal_type
         zolam_deal_no   =    zolam_deal_no
         zpl             =    zpl
         zpl_curr        =    zpl_curr
         zpl_rate        =    zpl_rate
         zpl_lamt        =    zpl_lamt
         zpl_lcurr       =    zpl_lcurr
         ztsf_exe_co     =    ztsf_exe_co
         ndf_fo_rem      =    ndf_fo_rem
         ndf_mo_rem      =    ndf_mo_rem
         bs              =    bs
         bs_o            =    bs_o
         bs_1            =    bs_1
         bs_2            =    bs_2
         curr1           =    curr1
         curr2           =    curr2
         amt1            =    amt1
         amt2            =    amt2
         curr_st1        =    curr_st1
         zamt_st1        =    zamt_st1
         curr_st2        =    curr_st2
         zamt_st2        =    zamt_st2
         ospot           =    ospot
         oswap           =    oswap
         otot_rate       =    otot_rate
         t_rate          =    t_rate
         spot            =    spot
         swap            =    swap
         tot_rate        =    tot_rate
         ndf_rate        =    ndf_rate
         cpair           =    cpair
         f_curr1         =    f_curr1
         t_curr1         =    t_curr1
         cash_curr       =    cash_curr
         zcash_amt       =    zcash_amt
         email_code      =    email_code
         dcrdat          =    dcrdat
         cruser          =    cruser
         tcrtim          =    tcrtim
         dupdat          =    dupdat
         upuser          =    upuser
         tuptim          =    tuptim
         zmc_ref_no      =    zmc_ref_no
         zmc_desc        =    zmc_desc
         zmc_date        =    zmc_date
         zsell           =    zsell
         zbuy            =    zbuy
         zorigin         =    zorigin
         zamt            =    zamt
         zcurr           =    zcurr
         zorg_amt        =    zorg_amt
         zocurr          =    zocurr
         zex_rate        =    zex_rate
         zship_start     =    zship_start
         zship_end       =    zship_end
         zcommodity      =    zcommodity
         zcom_desc       =    zcom_desc
         zcom_desc_long  =    zcom_desc_long
         zent_id         =    zent_id
         zent_desc       =    zent_desc
         zcurr_id        =    zcurr_id
         zcurr_desc      =    zcurr_desc
         zpay_term       =    zpay_term
         zmod_id         =    zmod_id
         zmod_desc       =    zmod_desc
         zmc_stat        =    zmc_stat
         zpay_terms      =    zpay_terms
         zpay_terms_text =    zpay_terms_text
         zpos            =    zpos
         zpod            =    zpod
         zold_mc_ref_no  =    zold_mc_ref_no
         zuti_amt        =    zuti_amt
         zcreated_by     =    zcreated_by
         zcreated_date   =    zcreated_date
         zcreated_time   =    zcreated_time
         zchanged_by     =    zchanged_by
         zchanged_date   =    zchanged_date
         zchanged_time   =    zchanged_time  ).
    ENDIF." }
​
    " Added by saurav 26.11.2021 Scope 4000015805 to populate currency 1 as USD{
    LOOP AT gt_data1 ASSIGNING FIELD-SYMBOL(<fs_data3>) WHERE curr2 = c_usd.
      gs_data1 = <fs_data3>.
      IF gs_data1-curr2   = c_usd.
        <fs_data3>-curr1 = gs_data1-curr2.
        <fs_data3>-amt1  = gs_data1-amt2.
        <fs_data3>-bs_1   = gs_data1-bs_2." Added by saurav on 02.03.2022 Scope 4000018703 to change mapping of BS1.
        <fs_data3>-curr2 = gs_data1-curr1.
        <fs_data3>-amt2  = gs_data1-amt1.
        <fs_data3>-bs_2  = gs_data1-bs_1." Added by saurav on 02.03.2022 Scope 4000018703 to change mapping of BS2.
      ENDIF."}
    ENDLOOP.
​
  ELSEIF r_op = c_x." Added by kisan  on 26.11.2021 Scope 4000015805 Replacing strings with constants and added inline data declaration {
    SELECT  a~rfha,
            a~bukrs,
            a~butxt,
            a~sgsart,
            a~ltx,
            a~rfhazul,
            a~kontrh,
            a~saktiv,
            a~zcom_id,
            a~bp_name,
            a~sfhaart,
            a~xtext,
            a~prd_code,
            a~prd_desc,
            a~prctr,
            a~pc_name,
            a~rbusa,
            a~ba_name,
            a~dblfz,
            a~blotter_date,
            a~txn_status,
            a~ztrcode,
            a~trd_name,
            a~zgrp,
            a~grp_desc,
            a~tsf_code,
            a~blo_desc,
            a~rportb,
            a~xportb,
            a~refer,
            a~int_ref_desc,
            a~zuond,
            a~assign_desc,
            a~merkm,
            a~exp_rate,
            a~ztsf_deal_id,
            a~ztsf_deal_desc,
            a~ztsf_mc_ref_no,
            a~ztsf_deal_type,
            a~ztsf_exe_co,
            a~zolam_deal_no,
            a~zpl,
            a~zpl_curr,
            a~zpl_rate,
            a~zpl_lamt,
            a~zpl_lcurr,
            a~fo_remark,
            a~mo_remark,
            a~e_date,
            a~delfz,
            a~curr1,
            a~curr2,
            a~kkurs,
            a~soptaus,
            a~rdealer,
            a~gsppart,
            a~nordext,
            a~e_type,
            a~settlfl,
            a~s_type,
            a~sputcal,
            a~pc1,
            a~pc2,
            a~expiry_location,
            a~expiry_time,
            a~loc_code_text,
            a~amt1,
            a~amt2,
            a~bzbetr,
            a~wzbetr,
            a~dzterm,
            a~pwkurs,
            a~cs_date,
            a~cs_amt,
            a~cs_curr,
            a~cs_rate,
            a~cpair,
            a~f_curr1,
            a~t_curr1,
            a~email_code,
            a~mat_unmat,
            a~ext_stat_desc,
            a~dcrdat,
            a~cruser,
            a~tcrtim,
            a~dupdat,
            a~upuser,
            a~tuptim,
            b~zmc_ref_no,
            b~zmc_desc,
            b~zmc_date,
            b~zsell,
            b~zbuy,
            b~zorigin,
            b~zamt,
            b~zcurr,
            b~zorg_amt,
            b~zocurr,
            b~zex_rate,
            b~zship_start,
            b~zship_end,
            b~zcommodity,
            b~zcom_desc,
            b~zcom_desc_long,
            b~zent_id,
            b~zent_desc,
            b~zcurr_id,
            b~zcurr_desc,
            b~zpay_term,
            b~zmod_id,
            b~zmod_desc,
            b~zmc_stat,
            b~zpay_terms,
            b~zpay_terms_text,
            b~zpos,
            b~zpod,
            b~zold_mc_ref_no,
            b~zuti_amt,
            b~zcreated_by,
            b~zcreated_date,
            b~zcreated_time,
            b~zchanged_by,
            b~zchanged_date,
            b~zchanged_time
       FROM ( zsgtsfv_op AS a
       INNER JOIN zsgtsftr_mas_con AS b  "added by sufyan(13.10.2020) to get mas cont details
        ON b~zmc_ref_no = a~ztsf_mc_ref_no )
       INTO  TABLE @DATA(lt_op)
       WHERE a~bukrs IN @s_bukrs
*       AND a~blotter_date IN @s_date
       AND a~dblfz IN @s_date         "" Added by Ryan Nayak 07.08.2023   to fetch based on Trade Date
      AND zmc_ref_no <> ''." }" Added by saurav 29.11.2021 Scope 4000015805 to avoid fetching where mc ref is initial.
​
    " Added by kisan  on 26.11.2021 Scope 4000015805  passing local internal to global internal table {
    IF lt_op IS NOT INITIAL.
      gt_data2 = CORRESPONDING #(  lt_op MAPPING
                rfha              =      rfha
                bukrs             =      bukrs
                butxt             =      butxt
                sgsart            =      sgsart
                ltx               =      ltx
                rfhazul           =      rfhazul
                kontrh            =      kontrh
                saktiv            =      saktiv
                zcom_id           =      zcom_id
                bp_name           =      bp_name
                sfhaart           =      sfhaart
                xtext             =      xtext
                prd_code          =      prd_code
                prd_desc          =      prd_desc
                prctr             =      prctr
                pc_name           =      pc_name
                rbusa             =      rbusa
                ba_name           =      ba_name
                dblfz             =      dblfz
                blotter_date      =      blotter_date
                txn_status        =      txn_status
                ztrcode           =      ztrcode
                trd_name          =      trd_name
                zgrp              =      zgrp
                grp_desc          =      grp_desc
                tsf_code          =      tsf_code
                blo_desc          =      blo_desc
                rportb            =      rportb
                xportb            =      xportb
                refer             =      refer
                int_ref_desc      =      int_ref_desc
                zuond             =      zuond
                assign_desc       =      assign_desc
                merkm             =      merkm
                exp_rate          =      exp_rate
                ztsf_deal_id      =      ztsf_deal_id
                ztsf_deal_desc    =      ztsf_deal_desc
                ztsf_mc_ref_no    =      ztsf_mc_ref_no
                ztsf_deal_type    =      ztsf_deal_type
                ztsf_exe_co       =      ztsf_exe_co
                zolam_deal_no     =      zolam_deal_no
                zpl               =      zpl
                zpl_curr          =      zpl_curr
                zpl_rate          =      zpl_rate
                zpl_lamt          =      zpl_lamt
                zpl_lcurr         =      zpl_lcurr
                fo_remark         =      fo_remark
                mo_remark         =      mo_remark
                e_date            =      e_date
                delfz             =      delfz
                curr1             =      curr1
                curr2             =      curr2
                kkurs             =      kkurs
                soptaus           =      soptaus
                rdealer           =      rdealer
                gsppart           =      gsppart
                nordext           =      nordext
                e_type            =      e_type
                settlfl           =      settlfl
                s_type            =      s_type
                sputcal           =      sputcal
                pc1               =      pc1
                pc2               =      pc2
                expiry_location   =      expiry_location
                expiry_time       =      expiry_time
                loc_code_text     =      loc_code_text
                amt1              =      amt1
                amt2              =      amt2
                bzbetr            =      bzbetr
                wzbetr            =      wzbetr
                dzterm            =      dzterm
                pwkurs            =      pwkurs
                cs_date           =      cs_date
                cs_amt            =      cs_amt
                cs_curr           =      cs_curr
                cs_rate           =      cs_rate
                cpair             =      cpair
                f_curr1           =      f_curr1
                t_curr1           =      t_curr1
                email_code        =      email_code
                mat_unmat         =      mat_unmat
                ext_stat_desc     =      ext_stat_desc
                dcrdat            =      dcrdat
                cruser            =      cruser
                tcrtim            =      tcrtim
                dupdat            =      dupdat
                upuser            =      upuser
                tuptim            =      tuptim
                zmc_ref_no        =      zmc_ref_no
                zmc_desc          =      zmc_desc
                zmc_date          =      zmc_date
                zsell             =      zsell
                zbuy              =      zbuy
                zorigin           =      zorigin
                zamt              =      zamt
                zcurr             =      zcurr
                zorg_amt          =      zorg_amt
                zocurr            =      zocurr
                zex_rate          =      zex_rate
                zship_start       =      zship_start
                zship_end         =      zship_end
                zcommodity        =      zcommodity
                zcom_desc         =      zcom_desc
                zcom_desc_long    =      zcom_desc_long
                zent_id           =      zent_id
                zent_desc         =      zent_desc
                zcurr_id          =      zcurr_id
                zcurr_desc        =      zcurr_desc
                zpay_term         =      zpay_term
                zmod_id           =      zmod_id
                zmod_desc         =      zmod_desc
                zmc_stat          =      zmc_stat
                zpay_terms        =      zpay_terms
                zpay_terms_text   =      zpay_terms_text
                zpos              =      zpos
                zpod              =      zpod
                zold_mc_ref_no    =      zold_mc_ref_no
                zuti_amt          =      zuti_amt
                zcreated_by       =      zcreated_by
                zcreated_date     =      zcreated_date
                zcreated_time     =      zcreated_time
                zchanged_by       =      zchanged_by
                zchanged_date     =      zchanged_date
                zchanged_time     =      zchanged_time ).
    ENDIF." }
  ENDIF.
​
  IF p_trd IS NOT INITIAL.
    DELETE gt_data1 WHERE ztrcode <> p_trd.
    DELETE gt_data2 WHERE ztrcode <> p_trd.
  ENDIF.
  "added by saurav 25.11.2021 Scope 4000015805 declaring variable and assignig value to lr_sfhaart {
  DATA : lv_curr1 TYPE tb_wgschf1,
         lv_curr2 TYPE tb_wgschf1.
  DATA: ls_top LIKE LINE OF gt_data1.
  DATA: lv_date1 TYPE d,
        lv_date2 TYPE d.
  DATA: lr_sfhaart TYPE RANGE OF zdt_sfhaart.
​
  lr_sfhaart = VALUE #( sign = cs_i option = cs_o ( low = c_604 ) ( low = c_609 ) )." }
  "added by saurav 25.11.2021 Scope 4000015805 fetchingDeal ID - Data Table deatils .
  SELECT a~zdeal_id,
                a~ztsf_model,
                a~zdeal_stat,
                b~zsub_type
    FROM zsgtsftr_dealid AS a
    INNER JOIN zsgtsftr_rule_bt AS b
    ON b~zmod_id = a~ztsf_model
    INTO TABLE @DATA(lt_model)
    WHERE a~zdeal_id <> ''.
​
  SELECT zdeal_id,
         zinv_ref,
         zinv_type,
         zamt_usd,
         zamt,
         zcurr
    FROM zsgtsftr_bil_adj
    INTO TABLE @DATA(lt_finv)
    WHERE zdeal_id <> ''.
​
​
  """""" Added by Saiteja - 13.06.2023 """"""""""
​
  SELECT SINGLE param1,
                param2,
                param3,
                param4,
                param5,
                param6,
                param7,
                param8,
                param9,
                param10,
                param11
  FROM zgtcatr_param
    INTO @DATA(ls_param)
    WHERE prognam = @sy-repid.
​
  "Added by saiteja (07.06.2023) deal status range
  DATA: lr_cdealstat TYPE RANGE OF zdt_tsf_deal_stat.
  DATA: lr_pdealstat TYPE RANGE OF zdt_tsf_deal_stat.
  DATA: lr_ndealstat TYPE RANGE OF zdt_tsf_deal_stat.
  DATA: lr_name TYPE c LENGTH 30.
​
  lr_cdealstat = VALUE #( sign = cs_i option = cs_o ( low = ls_param-param4 ) ( low = ls_param-param5 ) ( low = ls_param-param6 ) ( low = ls_param-param7 ) ).
  lr_pdealstat = VALUE #( sign = cs_i option = cs_o ( low = ls_param-param8 ) ).
  lr_ndealstat = VALUE #( sign = cs_i option = cs_o ( low = ls_param-param9 ) ( low = ls_param-param10 ) ( low = ls_param-param11 ) ).
​
  """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
​
  SORT gt_data1 BY ztsf_deal_id.
  " Process Data "added by saurav 25.11.2021 Scope 4000015805
  DATA(lt_data1) = gt_data1.
  DELETE lt_data1 WHERE sfhaart IN lr_sfhaart.
  DATA(lt_data) = lt_data1.
  SORT lt_data BY ztsf_deal_id.
  SORT lt_data1 BY ztsf_deal_id.
  DELETE lt_data WHERE ztsf_deal_id IS INITIAL.
  DELETE lt_data1 WHERE ztsf_deal_type IS INITIAL.
  DELETE ADJACENT DUPLICATES FROM lt_data COMPARING ztsf_deal_id.
​
  "added by saurav 25.11.2021 Scope 4000015805 perfroming loop to calculate amount {
  LOOP AT lt_data ASSIGNING FIELD-SYMBOL(<fs_data>).
    ASSIGN lt_model[ zdeal_id = <fs_data>-ztsf_deal_id ] TO FIELD-SYMBOL(<fs_model>).
    IF sy-subrc = 0.
      IF <fs_model>-zsub_type = c_fx1." Added by kisan  on 26.11.2021 Scope 4000015805 Replacing strings with constants.
        DATA(lv_index) = line_index( lt_data1[ ztsf_deal_id = <fs_data>-ztsf_deal_id ] ).
        IF lv_index <> 0.
          LOOP AT lt_data1 ASSIGNING FIELD-SYMBOL(<fs_data1>) FROM lv_index."WHERE ztsf_deal_id = <fs_data>-ztsf_deal_id .
            IF <fs_data1>-ztsf_deal_id = <fs_data>-ztsf_deal_id.
              IF <fs_data1>-curr1 <> c_usd.
                TRY.
                    gs_top-amt1 =  <fs_data1>-amt1 + gs_top-amt1.
                  CATCH cx_sy_arithmetic_overflow.
                ENDTRY. "}
              ELSE.
                TRY.
                    gs_top-amt2 =  <fs_data1>-amt2 + gs_top-amt2.
                  CATCH cx_sy_arithmetic_overflow.
                ENDTRY. "}
              ENDIF.
              gs_top-deal_id = <fs_data1>-ztsf_deal_id.
              gs_top-curr1 = <fs_data1>-curr1.
              gs_top-curr2 = <fs_data1>-curr2.
            ELSE.
              EXIT.
            ENDIF.
          ENDLOOP.
        ENDIF."}
        "added by saurav 25.11.2021 Scope 4000015805 added exceptional handling
        IF gs_top-curr1 = c_twd.
          TRY.
              gs_top-amt1 = gs_top-amt1 * 100.
            CATCH cx_sy_arithmetic_overflow.
          ENDTRY. "}
        ELSEIF gs_top-curr2 = c_twd.
          TRY.
              gs_top-amt1 = gs_top-amt1 * 100.
            CATCH cx_sy_arithmetic_overflow.
          ENDTRY. "}
        ENDIF.
​
        gs_top-amt1 =  abs( gs_top-amt1 ).
        gs_top-amt2 =  abs( gs_top-amt2 ).
        "added by saurav 25.11.2021 Scope 4000015805 to process lead currency.
        CALL FUNCTION 'ZSGTRMFM_LEAD_CURR'
          EXPORTING
            currency1  = gs_top-curr1
            currency2  = gs_top-curr2
          IMPORTING
            l_currency = lv_curr1
            f_currency = lv_curr2.
        "added by saurav 25.11.2021 Scope 4000015805 processing the date based on deal_id
        IF line_exists( lt_data1[ ztsf_deal_id = <fs_data>-ztsf_deal_id ztsf_deal_type = c_d1 ] ) OR line_exists( lt_data1[ ztsf_deal_id = <fs_data>-ztsf_deal_id ztsf_deal_type = c_d2 ] ).
          TRY .
              ls_top = lt_data1[ ztsf_deal_id = <fs_data>-ztsf_deal_id ztsf_deal_type = c_d1 ].
              lv_date1 = ls_top-dblfz.
            CATCH cx_sy_itab_line_not_found.
          ENDTRY.
          CLEAR ls_top.
          TRY .
              ls_top = lt_data1[ ztsf_deal_id = <fs_data>-ztsf_deal_id ztsf_deal_type = c_d2 ].
              lv_date2 = ls_top-dblfz.
            CATCH cx_sy_itab_line_not_found.
          ENDTRY.
​
          CLEAR ls_top.
          IF lv_date1 <= lv_date2.
            ls_top-dblfz = lv_date1.
          ELSE.
            ls_top-dblfz = lv_date2.
          ENDIF.
          PERFORM rate USING lv_curr1 lv_curr2 ls_top-dblfz.
        ENDIF.
        APPEND gs_top TO gt_top.
        CLEAR gs_top.
      ENDIF.
    ENDIF.
  ENDLOOP.
  ""added by saurav 25.11.2021 Scope 4000015805 passing pl_amt based obn currency.
  LOOP AT gt_data1 ASSIGNING FIELD-SYMBOL(<fs_data2>).
​
    """"""" Added by Saiteja - 27.06.2023 """"""""
    CLEAR: lr_name.
    ASSIGN lt_model[ zdeal_id = <fs_data2>-ztsf_deal_id ] TO <fs_model>.
    IF sy-subrc = 0.
      IF <fs_model>-zdeal_stat IN lr_cdealstat .
        CLEAR: lr_name.
        lr_name = ls_param-param3.
      ELSEIF <fs_model>-zdeal_stat IN lr_pdealstat.
        CLEAR: lr_name.
        lr_name = ls_param-param2.
      ELSEIF <fs_model>-zdeal_stat IN lr_ndealstat.
        CLEAR: lr_name.
        lr_name = ls_param-param1.
      ENDIF.
      <fs_data2>-zinv_status = lr_name.
    ENDIF.
​
    ASSIGN lt_finv[ zdeal_id = <fs_data2>-ztsf_deal_id ] TO FIELD-SYMBOL(<fs_finv>).
    IF sy-subrc = 0.
      <fs_data2>-zamt_inv = <fs_finv>-zamt_usd.
    ENDIF.
    """""""""""""""""""""""""""""""""""""""""""""""""""
​
    ASSIGN gt_top[ deal_id = <fs_data2>-ztsf_deal_id ] TO FIELD-SYMBOL(<fs_top>).
    IF sy-subrc = 0.
      IF <fs_top>-curr1 = c_usd.
        TRY.
            <fs_data2>-zvol_usd = abs( <fs_data2>-amt1 ).
            <fs_data2>-zpl_new = <fs_data2>-amt1.
            <fs_data2>-zamt_ninv = <fs_data2>-amt1 + <fs_data2>-zamt_inv.
            <fs_data2>-zpnl_inv = <fs_data2>-zpl *  <fs_data2>-zamt_inv / ( <fs_data2>-zamt_inv + <fs_data2>-zamt_ninv ) .
            <fs_data2>-zpnl_uninv = <fs_data2>-zpl *  <fs_data2>-zamt_ninv / ( <fs_data2>-zamt_ninv + <fs_data2>-zamt_inv ) .
          CATCH cx_sy_arithmetic_overflow.
        ENDTRY.
      ELSE.
        TRY.
            IF <fs_top>-curr2 = c_usd.
              <fs_data2>-zvol_usd = abs( <fs_data2>-amt1 ).
            ENDIF.
            <fs_data2>-zpl_new = <fs_data2>-amt2.
            <fs_data2>-zamt_ninv = <fs_data2>-amt2 + <fs_data2>-zamt_inv.
            <fs_data2>-zpnl_inv = <fs_data2>-zpl *  <fs_data2>-zamt_inv / ( <fs_data2>-zamt_inv + <fs_data2>-zamt_ninv ).
            <fs_data2>-zpnl_uninv = <fs_data2>-zpl *  <fs_data2>-zamt_ninv / ( <fs_data2>-zamt_ninv + <fs_data2>-zamt_inv ).
          CATCH cx_sy_arithmetic_overflow.
        ENDTRY.
      ENDIF.
​
      IF <fs_top>-curr2 <> c_usd.
        <fs_data2>-zpl_local_new = <fs_top>-amt2.
      ELSE.
        <fs_data2>-zpl_local_new = <fs_top>-amt1.
      ENDIF.
    ENDIF.
​
  ENDLOOP.
​
  LOOP AT gt_data2 ASSIGNING FIELD-SYMBOL(<fs_data4>).
​
    """"""" Added by Saiteja - 27.06.2023 """"""""
​
    ASSIGN lt_model[ zdeal_id = <fs_data4>-ztsf_deal_id ] TO <fs_model>.
    IF sy-subrc = 0.
      IF <fs_model>-zdeal_stat IN lr_cdealstat .
        CLEAR: lr_name.
        lr_name = ls_param-param3.
      ELSEIF <fs_model>-zdeal_stat IN lr_pdealstat.
        CLEAR: lr_name.
        lr_name = ls_param-param2.
      ELSEIF <fs_model>-zdeal_stat IN lr_ndealstat.
        CLEAR: lr_name.
        lr_name = ls_param-param1.
      ENDIF.
      <fs_data4>-zinv_status = lr_name.
    ENDIF.
​
    ASSIGN lt_finv[ zdeal_id = <fs_data4>-ztsf_deal_id ] TO <fs_finv>.
    IF sy-subrc = 0.
      <fs_data4>-zamt_inv = <fs_finv>-zamt_usd.
    ENDIF.
    """""""""""""""""""""""""""""""""""""""""""""""""""
​
    ASSIGN gt_top[ deal_id = <fs_data4>-ztsf_deal_id ] TO <fs_top>.
    IF sy-subrc = 0.
      IF <fs_top>-curr1 = c_usd.
        TRY.
            <fs_data4>-zvol_usd = abs( <fs_data4>-amt1 ).
            <fs_data4>-zamt_ninv = <fs_data4>-amt1 + <fs_data4>-zamt_inv.
            <fs_data4>-zpnl_inv = <fs_data4>-zpl * ( <fs_data4>-zamt_inv / <fs_data4>-zamt_inv + <fs_data4>-zamt_ninv ).
            <fs_data4>-zpnl_uninv = <fs_data4>-zpl * ( <fs_data4>-zamt_ninv / <fs_data4>-zamt_ninv + <fs_data4>-zamt_inv ).
          CATCH cx_sy_arithmetic_overflow.
        ENDTRY.
      ELSE.
        TRY.
            IF <fs_top>-curr2 = c_usd.
              <fs_data4>-zvol_usd = abs( <fs_data4>-amt1 ).
            ENDIF.
            <fs_data4>-zamt_ninv = <fs_data4>-amt2 + <fs_data4>-zamt_inv.
            <fs_data4>-zpnl_inv = <fs_data4>-zpl * ( <fs_data4>-zamt_inv / <fs_data4>-zamt_inv + <fs_data4>-zamt_ninv ).
            <fs_data4>-zpnl_uninv = <fs_data4>-zpl * ( <fs_data4>-zamt_ninv / <fs_data4>-zamt_ninv + <fs_data4>-zamt_inv ).
          CATCH cx_sy_arithmetic_overflow.
        ENDTRY.
      ENDIF.
​
      IF <fs_top>-curr2 <> c_usd.
        <fs_data2>-zpl_local_new = <fs_top>-amt2.
      ELSE.
        <fs_data2>-zpl_local_new = <fs_top>-amt1.
      ENDIF.
    ENDIF.
​
  ENDLOOP.
​
  "" Process Data
  PERFORM style_color." Added by saurav on 02.03.2022 Scope 4000018703 to not PASS txn status.
​
  " Added by saurav on 02.03.2022 Scope 4000018703 to change color for txn status 02.{
  CLEAR:gs_data2.
  gs_data2-colortab = gt_color.
  MODIFY gt_data2 FROM gs_data2 TRANSPORTING colortab WHERE txn_status = c_02.
​
  CLEAR:gs_data1.
  gs_data1-colortab = gt_color.
  MODIFY gt_data1 FROM gs_data1 TRANSPORTING colortab WHERE txn_status = c_02."}
​
ENDFORM.
CLASS lcl_handle_events DEFINITION.
  PUBLIC SECTION.
    METHODS:
      on_line_click FOR EVENT link_click OF cl_salv_events_table
        IMPORTING row column. "event handler method for Hotspot
​
ENDCLASS.
*&---------------------------------------------------------------------*
*& Form SUB_PROCESS
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM sub_process .
​
  TRY .
      IF r_fx = c_x." Added by kisan  on 26.11.2021 Scope 4000015805 Replacing strings with constants.
        CALL METHOD cl_salv_table=>factory
          IMPORTING
            r_salv_table = lr_alv
          CHANGING
            t_table      = gt_data1.
      ELSEIF r_op = c_x." Added by kisan  on 26.11.2021 Scope 4000015805 Replacing strings with constants.
        CALL METHOD cl_salv_table=>factory
          IMPORTING
            r_salv_table = lr_alv
          CHANGING
            t_table      = gt_data2.
      ENDIF.
    CATCH cx_salv_msg.
  ENDTRY.
​
  DATA(lo_columns) = lr_alv->get_columns( ).
​
* Setting the Color Column name
  TRY.
      CALL METHOD lo_columns->set_color_column
        EXPORTING
          value = 'COLORTAB'.
    CATCH cx_salv_data_error.
  ENDTRY.
​
  lo_columns->set_optimize( 'X' ). "--> Optimise all columns
​
  "" Setting the Color Column name
  TRY.
      CALL METHOD lo_columns->set_color_column
        EXPORTING
          value = 'COLOR'.
    CATCH cx_salv_data_error.
  ENDTRY.
​
  " For HotSpot for RFHA Column
  DATA : lr_col TYPE REF TO cl_salv_column_table. "column instance
  IF lo_columns IS NOT INITIAL.
    TRY .
        lr_col ?= lo_columns->get_column( 'RFHA' ) .
      CATCH cx_salv_not_found.
    ENDTRY.
​
    TRY .
        CALL METHOD lr_col->set_cell_type
          EXPORTING
            value = if_salv_c_cell_type=>hotspot.
      CATCH cx_salv_data_error .
    ENDTRY.
  ENDIF.
​
  "" GUI STATUS
  lr_alv->set_screen_status(
    pfstatus      =  'ZSTATUS'
    report        =  'ZSGTSF_RFX_BLOTTER_COMP'
    set_functions = lr_alv->c_functions_all ).
​
  DATA(lo_functions) = lr_alv->get_functions( ).
  lo_functions->set_all( ).
​
  "" Events for ON Hotpsot Line click or Double click or user command
  DATA: gr_events TYPE REF TO lcl_handle_events.
*Register events
  DATA: lr_events TYPE REF TO cl_salv_events_table.
  lr_events = lr_alv->get_event( ). "get event
​
  "" Events for ON Hotpsot Line click or Double click or user command
  CREATE OBJECT gr_events.
  SET HANDLER gr_events->on_line_click FOR lr_events. "register event handler method
​
  "" Build Layout
  DATA(lo_layout) = lr_alv->get_layout( ).
  DATA:ls_key TYPE salv_s_layout_key..
  lo_layout->set_save_restriction( if_salv_c_layout=>restrict_none ).
  ls_key-report = sy-repid.
  lo_layout->set_key( ls_key ).
  lo_layout->set_default( abap_true ).
​
  lo_layout->set_initial_layout( gs_variant-variant ).
​
* Modify Field Catalog
  DATA: err_notfound TYPE REF TO cx_salv_not_found.
  TRY.
      " Changed by saurav on 28.04.2021 Scope 4000013818 to change column names{
      DATA(single_column) = lo_columns->get_column( 'ZPL_NEW' ).
      single_column->set_short_text( 'P&L Amt(N)' ).
      single_column->set_medium_text( 'FX P&L Amt(New)' ).
      single_column->set_long_text( 'FX P&L Amt(New)' ).
      "added by saurav 25.11.2021 Scope to change column names{
      single_column = lo_columns->get_column( 'ZPL_LOCAL_NEW' ).
      single_column->set_short_text( 'P&L loc(N)' ).
      single_column->set_medium_text( 'FX P&L loc Amt(New)' ).
      single_column->set_long_text( 'FX P&L local Amt(New)' ).
​
      """" Added by Saiteja 14.06.2023
​
      single_column = lo_columns->get_column( 'ZINV_STATUS' ).
      single_column->set_short_text( 'Inv Status' ).
      single_column->set_medium_text( 'Invoicing Status' ).
      single_column->set_long_text( 'Invoicing Status' ).
​
      single_column = lo_columns->get_column( 'ZAMT_INV' ).
      single_column->set_short_text( 'Amt Inv' ).
      single_column->set_medium_text( 'Amount Invoiced' ).
      single_column->set_long_text( 'Amount Invoiced ' ).
​
      single_column = lo_columns->get_column( 'ZAMT_NINV' ).
      single_column->set_short_text( 'Amt NInv' ).
      single_column->set_medium_text( 'Amount Not Invoiced' ).
      single_column->set_long_text( 'Amount Not Invoiced' ).
​
      single_column = lo_columns->get_column( 'ZPNL_INV' ).
      single_column->set_short_text( 'PNL INV' ).
      single_column->set_medium_text( 'PNL of Invoiced' ).
      single_column->set_long_text( 'PNL of Invoiced' ).
​
      single_column = lo_columns->get_column( 'ZPNL_UNINV' ).
      single_column->set_short_text( 'PNL UnINV' ).
      single_column->set_medium_text( 'PNL of UnInvoiced' ).
      single_column->set_long_text( 'PNL of UnInvoiced' ).
​
      single_column = lo_columns->get_column( 'ZVOL_USD' ).
      single_column->set_short_text( 'Volume-USD' ).
      single_column->set_medium_text( 'Volume(USD)' ).
      single_column->set_long_text( 'Volume(USD)' ).
​
    CATCH cx_salv_not_found INTO err_notfound.
*   Add error processing
  ENDTRY.
​
***TOP OF PAGE
  DATA : lr_header TYPE REF TO cl_salv_form_element.
  DATA: lr_grid_layout TYPE REF TO cl_salv_form_layout_grid,
        lr_label       TYPE REF TO cl_salv_form_label,
        lr_text        TYPE REF TO cl_salv_form_text,
        l_text         TYPE string,
        lv_sdate(10)   TYPE c,
        lv_edate(10)   TYPE c.
​
  DATA : lv_cnt TYPE i.
  CREATE OBJECT lr_grid_layout.
  l_text = TEXT-105." Added by kisan  on 26.11.2021 Scope 4000015805 Replacing string with text element.
  lr_grid_layout->create_header_information( "create header for gird
    row    = 1
    column = 1
    text    = l_text
    tooltip = l_text ).
  lr_grid_layout->add_row( ). "add row
​
  CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
    EXPORTING
      date_internal            = s_date-low
    IMPORTING
      date_external            = lv_sdate
    EXCEPTIONS
      date_internal_is_invalid = 1
      OTHERS                   = 2.
​
  CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
    EXPORTING
      date_internal            = s_date-high
    IMPORTING
      date_external            = lv_edate
    EXCEPTIONS
      date_internal_is_invalid = 1
      OTHERS                   = 2.
​
  CONCATENATE lv_sdate '-' lv_edate INTO l_text SEPARATED BY space.
​
  CONDENSE l_text.
​
  lr_label = lr_grid_layout->create_label(
    row    = 3
    column = 1
    text    = TEXT-106 " Added by kisan  on 26.11.2021 Scope 4000015805 Replacing string with text element.{
    tooltip = TEXT-107 )." }
​
  lr_text = lr_grid_layout->create_text(
    row    = 3
    column = 2
    text    = l_text
    tooltip = l_text ).
​
  lr_label->set_label_for( lr_text ).
​
  lr_header = lr_grid_layout.
​
  CALL METHOD lr_alv->set_top_of_list  "set top of list
    EXPORTING
      value = lr_header.
​
  SELECT SINGLE                   " Added by Aditi Macwan on 25.10.2023
      param1,
      param5,
      param8,
      param9
      FROM zgtcatr_param
      WHERE prognam = 'ZSGTRM3AR_REXE_EXP' AND
      mapid = 'A'
      INTO @ls_txnstat.
​
  IF p_sm IS NOT INITIAL.
    " Added by Ryan Nayak 07.08.2023
    PERFORM send_email_dlist USING ls_txnstat.
    MESSAGE s061(zsgtrmm).
  ENDIF.
​
  "" Final Data to Display Output
  lr_alv->display( ). "display grid
​
ENDFORM.
​
CLASS lcl_handle_events IMPLEMENTATION.
  " Hotspot Click
  METHOD on_line_click.
**handle double click here
    IF r_fx = c_x." Added by kisan  on 26.11.2021 Scope 4000015805 Replacing strings with constants.
      ASSIGN gt_data1[ row ] TO FIELD-SYMBOL(<fs_data1>)." Added by kisan  on 26.11.2021 Scope 4000015805 reading gt_data1 .
      IF sy-subrc = 0.
        gs_data1 = <fs_data1>.
      ENDIF." }
    ELSEIF r_op = c_x. " Added by kisan  on 26.11.2021 Scope 4000015805 Replacing strings with constants.
      ASSIGN gt_data2[ row ] TO FIELD-SYMBOL(<fs_data2>)." Added by kisan  on 26.11.2021 Scope 4000015805 reading gt_data1 .
      IF sy-subrc = 0.
        gs_data2 = <fs_data2>.
      ENDIF." }
    ENDIF.
    IF sy-subrc EQ 0.
      CASE column.
        WHEN 'RFHA'.
          IF r_fx = c_x." Added by kisan  on 26.11.2021 Scope 4000015805 Replacing strings with constants.
            PERFORM view_txn USING gs_data1-bukrs gs_data1-rfha.
          ELSEIF r_op = c_x." Added by kisan  on 26.11.2021 Scope 4000015805 Replacing strings with constants.
            PERFORM view_txn USING gs_data2-bukrs gs_data2-rfha.
          ENDIF.
      ENDCASE.
    ENDIF.
  ENDMETHOD.
ENDCLASS.
​
​
*&---------------------------------------------------------------------*
*& Form VIEW_TXN
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      --> GS_DATA_BUKRS
*&      --> GS_DATA_RFHA
*&---------------------------------------------------------------------*
FORM view_txn  USING    p_bukrs
                        p_rfha.
​
  DATA: lv_activitytype LIKE vtbfhazu-sfgzustt,
        lv_companycode  LIKE vtbfha-bukrs,
        lv_dealno       LIKE vtbfha-rfha,
        lv_dealtype     LIKE vtbfha-sfgtyp,
        lv_producttype  LIKE vtbfha-sanlf.
​
  SELECT SINGLE sfgzustt FROM vtbfhazu                  "#EC CI_NOORDER
         INTO lv_activitytype
         WHERE bukrs = p_bukrs
         AND   rfha = p_rfha.
​
  lv_companycode = p_bukrs.
  lv_dealno      = p_rfha.
​
  SELECT SINGLE sfgtyp sanlf FROM vtbfha
   INTO ( lv_dealtype , lv_producttype )
   WHERE bukrs = p_bukrs
   AND   rfha = p_rfha.
​
  CALL FUNCTION 'TB_TRANSACTION_TO_DISPLAY'
    EXPORTING
      activitytype = lv_activitytype
      companycode  = lv_companycode
      dealno       = lv_dealno
      dealtype     = lv_dealtype
      producttype  = lv_producttype
    EXCEPTIONS
      transaction  = 1
      OTHERS       = 2.
  IF sy-subrc <> 0.
* Implement suitable error handling here
  ENDIF.
​
ENDFORM.
​
*&---------------------------------------------------------------------*
*& Form SUB_GET_LAYOUT
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM sub_get_layout .
​
  gs_variant-report   = sy-repid.
​
  CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      is_variant    = gs_variant
    IMPORTING
      es_variant    = gs_variant
    EXCEPTIONS
      not_found     = 1
      program_error = 2
      OTHERS        = 3.
  IF sy-subrc = 0.
    p_layout = gs_variant-variant.
  ENDIF.
​
ENDFORM.
*&---------------------------------------------------------------------*
*& Form TRD_VALUE_REQUEST
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM trd_value_request .
  TYPES: BEGIN OF ty_value,
           ztrader TYPE zsgtrmtr_trader-ztrader,
         END OF ty_value.
​
  DATA: lt_return TYPE STANDARD TABLE OF ddshretval,
        lt_value  TYPE TABLE OF ty_value.
​
  SELECT ztrader FROM                                   "#EC CI_NOWHERE
  zsgtrmtr_trader INTO TABLE @DATA(lt_trade)." Added by kisan  on 26.11.2021 Scope 4000015805 added inline declaration.
  " Added by kisan  on 26.11.2021 Scope 4000015805 passing the from interbnal table lt_trade to lt_value.{
  IF lt_trade IS NOT INITIAL .
    lt_value = CORRESPONDING #( lt_trade MAPPING
    ztrader = ztrader ).
  ENDIF." }
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'ZTRADER'
      value_org       = 'S'
    TABLES
      value_tab       = lt_value
      return_tab      = lt_return
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.
  IF sy-subrc <> 0.
* Implement suitable error handling here
  ENDIF.
​
  ASSIGN lt_return[ 1 ] TO FIELD-SYMBOL(<fs_return>)." Added by kisan  on 26.11.2021 Scope 4000015805 replacing read statment with assign.
  IF sy-subrc = 0.
    DATA(ls_return) = <fs_return>.
    p_trd = ls_return-fieldval.
  ENDIF." }
ENDFORM.
*&---------------------------------------------------------------------*
*& Form STYLE_COLOR
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      --> <FS_DATA1>_TXN_STATUS
*&---------------------------------------------------------------------*
FORM style_color." Added by saurav on 02.03.2022 Scope 4000018703 to not PASS txn status.
  CLEAR:gt_color.
  " Added by kisan  on 26.11.2021 Scope 4000015805  added values for alv column.
  APPEND VALUE #( color-col = 6 color-int = 0 color-inv = 1 ) TO gt_color.
​
ENDFORM.
*&---------------------------------------------------------------------*
*& Form CHECK_AUTHORIZATION
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM check_authorization .
  " Added by saurav on 11.08.2021 Scope 4000015805 for authorization object.{
  "" For Company Code
​
  """Fetching Company codes
  SELECT bukrs
  FROM t001
  INTO TABLE @DATA(lt_t001)
  WHERE bukrs IN @s_bukrs
  ORDER BY bukrs." Added by kisan  on 26.11.2021 Scope 4000015805 added filter to comapny code.
​
  "" Clear the values of select options
  CLEAR : s_bukrs,s_bukrs[].
​
  LOOP AT lt_t001 ASSIGNING FIELD-SYMBOL(<fs_t001>).
    " AUTHORIZATION CHECK for co.code
    AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
    ID 'BUKRS' FIELD <fs_t001>-bukrs
    ID 'ACTVT' FIELD cs_03.
    IF sy-subrc = 0.
      "" If user have authorisation then append value into select options
      APPEND VALUE #( sign = cs_i option = cs_o low = <fs_t001>-bukrs ) TO s_bukrs.
    ENDIF.
  ENDLOOP.
​
  ""If user doesn't have any authorisation then display a meassge & laeve to selection screen
  IF s_bukrs[] IS INITIAL.
    MESSAGE TEXT-104 TYPE cs_e. "You do not have an authorization for the given company code
    LEAVE LIST-PROCESSING.
  ENDIF."}
​
ENDFORM.
*&---------------------------------------------------------------------*
*& Form RATE
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      --> LV_CURR1
*&      --> LV_CURR2
*&      --> LS_TOP_DBLFZ
*&---------------------------------------------------------------------*
FORM rate  USING   lv_curr1 lv_curr2 date.
  " calling bapi to get exchage rate.
  CALL FUNCTION 'BAPI_EXCHANGERATE_GETDETAIL'
    EXPORTING
      rate_type  = 'M'
      from_curr  = lv_curr1
      to_currncy = lv_curr2
      date       = date
    IMPORTING
      exch_rate  = gs_exch_rate.
​
  gs_top-rate = gs_exch_rate-exch_rate.
  TRY .
      IF gs_top-amt1 IS NOT INITIAL.
        gs_top-amt2 =  gs_top-amt1  / gs_top-rate.
      ELSE.
        gs_top-amt1 =  gs_top-amt2  / gs_top-rate.
      ENDIF.
​
    CATCH cx_sy_zerodivide.
  ENDTRY.
  " Added by saurav on 04.08.2021 Scope 4000015282 to add exception handling{
  TRY.
      IF lv_curr1 = c_twd." Added by saurav on 03.08.2021 Scope 4000015282 to replace constant with strings
        gs_top-amt1 = gs_top-amt1 * 100.
      ELSEIF lv_curr2 = c_twd." Added by saurav on 03.08.2021 Scope 4000015282 to replace constant with strings
        gs_top-amt1 = gs_top-amt1 * 100.
      ENDIF.
    CATCH cx_sy_arithmetic_overflow.
  ENDTRY. "}
ENDFORM.
​
​
""" Added by Ryan Nayak 07.08.2023
FORM send_email_dlist USING ls_txnstat TYPE gt_params.
​
  CONSTANTS:
    gc_tab  TYPE c VALUE cl_bcs_convert=>gc_tab,
    gc_crlf TYPE c VALUE cl_bcs_convert=>gc_crlf.
​
​
  ls_txnstat-param1 = ls_txnstat-param1+0(1).   "Added by Aditi Macwan on 25.10.2023
​
  ""For getting Variant of Background Job
  CALL FUNCTION 'GET_JOB_RUNTIME_INFO'
    IMPORTING
      eventid                 = lv_eventid
      eventparm               = lv_evtparm
      external_program_active = lv_active
      jobcount                = lv_jobcnt
      jobname                 = lv_jobnm
      stepcount               = lv_stepcnt
    EXCEPTIONS
      no_runtime_info         = 1
      OTHERS                  = 2.
  IF sy-subrc <> 0.
*   Error calling FM: GET_JOB_RUNTIME_INFO
  ENDIF.
​
​
  "******selecting Background Job Step Overview data from table based on the Background job name and Job ID Job step ID number..
  SELECT jobname,jobcount,stepcount,variant
  FROM   tbtcp
  INTO TABLE @DATA(l_it_tbtcp)
  WHERE  jobname   = @lv_jobnm
  AND    jobcount  = @lv_jobcnt
  AND    stepcount = @lv_stepcnt.
  IF sy-subrc = 0.
    SORT l_it_tbtcp BY jobname jobcount stepcount.
    READ TABLE l_it_tbtcp ASSIGNING FIELD-SYMBOL(<fs_tbtcp>) INDEX 1.
    IF sy-subrc = 0.
      lv_variant = <fs_tbtcp>-variant.
      lv_variant_name = lv_variant.
    ENDIF.
  ENDIF.
​
​
  CALL FUNCTION 'SO_DLI_READ_API1'
    EXPORTING
      dli_name                   = lv_variant_name "lv_vari  "sy-slset
      shared_dli                 = 'X'
    TABLES
      dli_entries                = gt_email
    EXCEPTIONS
      dli_not_exist              = 1
      operation_no_authorization = 2
      parameter_error            = 3
      x_error                    = 4
      OTHERS                     = 5.
  IF sy-subrc <> 0.
  ENDIF.
​
  IF gt_email IS NOT INITIAL.
​
    TRY.
        lo_send_request = cl_bcs=>create_persistent( ).
​
*       For setting the email format
        CLEAR: lv_ebody, wa_message_body.
        CONCATENATE lv_ebody
        '<html><style>*{font-family: Calibri;}table,td{border-collapse:collapse;text-align: center;height: 20px;border: 1px solid #000;border-color: black;font-size:15px;white-space: nowrap}'
        INTO lv_ebody.
        APPEND lv_ebody TO text.
        wa_message_body-line = lv_ebody.
        APPEND wa_message_body TO lt_message_body.
​
        CLEAR: lv_ebody, wa_message_body.
        CONCATENATE lv_ebody
        'body{padding: 25px 10px 75px 10px;}.Grey{background-color:#d8d8d8;font-size:15px;font-weight : bold;}</style><meta name="generator" content="HTML Tidy for HTML5 for ABAP version 5.6.0">'
        INTO lv_ebody.
        APPEND lv_ebody TO text.
        wa_message_body-line = lv_ebody.
        APPEND wa_message_body TO lt_message_body.
​
*      For Main Body Of Mail
        CLEAR: lv_ebody, wa_message_body.
        CONCATENATE lv_ebody
        '<body><p>Dear all,</p>'
        INTO lv_ebody SEPARATED BY space .
        APPEND lv_ebody TO text.
        wa_message_body-line = lv_ebody.
        APPEND wa_message_body TO lt_message_body.
​
        CLEAR: lv_ebody, wa_message_body.
        CONCATENATE lv_ebody
        '<p> Please find attached for the OGA new trade due for submission to MAS </p>'
        INTO lv_ebody SEPARATED BY space .
        APPEND lv_ebody TO text.
        wa_message_body-line = lv_ebody.
        APPEND wa_message_body TO lt_message_body.
​
        IF r_fx IS NOT INITIAL.
          CLEAR: lv_ebody, wa_message_body.
          CONCATENATE lv_ebody
          '<p> Note : It is for DE6 blotter (Forwards) </p>'
          INTO lv_ebody SEPARATED BY space .
          APPEND lv_ebody TO text.
          wa_message_body-line = lv_ebody.
          APPEND wa_message_body TO lt_message_body.
        ELSE.
          CLEAR: lv_ebody, wa_message_body.
          CONCATENATE lv_ebody
          '<p> Note : It is for DE7 blotter (Options) </p>'
          INTO lv_ebody SEPARATED BY space .
          APPEND lv_ebody TO text.
          wa_message_body-line = lv_ebody.
          APPEND wa_message_body TO lt_message_body.
        ENDIF.
​
        CLEAR: lv_ebody,wa_message_body.
        CONCATENATE lv_ebody
        '<p> Thank You </p>'
        INTO lv_ebody.
        APPEND lv_ebody TO text.
        wa_message_body-line = lv_ebody.
        APPEND wa_message_body TO lt_message_body.
​
        CLEAR: lv_ebody,wa_message_body.
        CONCATENATE lv_ebody
        '<p><b> **** This Is System Generated E-Mail **** </b></p>'
        INTO lv_ebody.
        APPEND lv_ebody TO text.
        wa_message_body-line = lv_ebody.
        APPEND wa_message_body TO lt_message_body.
​
        APPEND '</body>' TO lt_message_body .
        APPEND '</html>' TO lt_message_body .
​
        "" Email Subject
        lv_subject = 'SAP New Trades - MAS Submission COB -'.
        CONCATENATE lv_subject ` ` s_date-low+6(2)'/'s_date-low+4(2)'/'s_date-low+0(4) INTO lv_subject.
​
​
*       Calculate the Document Size
        CLEAR: lv_lines, lv_so_obj_len.
        DESCRIBE TABLE lt_message_body LINES lv_lines.
        TRY .
            lv_so_obj_len = 255 * lv_lines.
          CATCH cx_sy_arithmetic_overflow.
        ENDTRY.
​
*       Create the Document
        lo_document = cl_document_bcs=>create_document(
                        i_type    = 'HTM'
                        i_text    = text
                        i_length  = lv_so_obj_len
                        i_subject = '' ).
​
        CALL METHOD lo_send_request->set_message_subject
          EXPORTING
            ip_subject = lv_subject.
​
*       Creating fcat for excel file
        IF gt_data1 IS NOT INITIAL OR gt_data2 IS NOT INITIAL.
​
          CLEAR lv_line.
          " Changes by Aditi Macwan on 08.09.2023 (
          IF r_fx IS NOT INITIAL.
            CONCATENATE lv_line 'Transaction' gc_tab
            'Company Code' gc_tab
            'Business Area' gc_tab
            'Trade Date' gc_tab
            'Value Date' gc_tab
            'Fixing Date' gc_tab
            'TSF Entity' gc_tab
            'Transaction Type Description' gc_tab
            'Partner Name' gc_tab
            'Buy/Sell 2' gc_tab
            'Currency 2 ' gc_tab
            'Amount 2' gc_tab
            'Buy/Sell 1' gc_tab
            'Currency 1 ' gc_tab
            'Amount 1' gc_tab
            'All in Rate' gc_tab
            'Txn Status Desc' gc_tab
            'Value Date' gc_tab
            'Deal ID' gc_tab
            'MC Reference No' gc_tab
            'Business Area Desc' gc_tab
            'Trader Name' gc_tab
            'Accounting Category' gc_tab
            'External Reference'  gc_crlf INTO lv_line.
​
          ELSE. " Added by Vaishnavi Jambhale on 22.08.2023 (
​
            CONCATENATE lv_line 'Trade Date' gc_tab
            'Company Name' gc_tab
            'Exercise Type' gc_tab
            'Transaction Type Description' gc_tab
            'Put/Call 1' gc_tab
            'Currency 1' gc_tab
            'Amount 1' gc_tab
            'Put/Call 2' gc_tab
            'Currency 2' gc_tab
            'Amount 2' gc_tab
            'Strike Rate' gc_tab
            'Expiry Date' gc_tab
            'Value Date' gc_tab
            'Transaction' gc_tab
            'Deal ID' gc_tab
            'External Reference' gc_tab
            'Partner Name' gc_tab
            'Rate' gc_tab
            'Currency Pair' gc_tab
            'Internal Deal Ref' gc_tab
            'Premium Currency' gc_tab
            'Premium Amount' gc_tab
            'Premium Date' gc_tab
            'MC Ref No.' gc_tab
            'Commodity Description Long' gc_tab
            'MC Date' gc_tab
            'Ship Start' gc_tab
            'Ship End' gc_tab
            'Txn Status Desc' gc_tab
            'Trader' gc_tab
            'FX Model' gc_tab
            'Business Area Desc' gc_tab
            'Old MC Ref' gc_tab
            'FO Remarks' gc_tab
            'MO Remarks' gc_crlf INTO lv_line.
          ENDIF.
​
          "" For Main Data
*         Added by Vaishnavi Jambhale on 22.08.2023(
          CLEAR: lv_premium_date, lv_fixdate, lv_bldate, lv_trdate, lv_valdate, lv_exp_date,
                 lv_mc_date, lv_ship_start_date, lv_ship_end_date, lv_rfha, lv_dealid, lv_mcrefno,
                 lv_extref, lv_ba, lv_amt1, lv_amt2, lv_premium_amt, lv_tot_rate. ")
          IF r_op IS NOT INITIAL.
            LOOP AT gt_data2 ASSIGNING FIELD-SYMBOL(<fs_odata>).
              IF <fs_odata>-txn_status = ls_txnstat-param5 OR <fs_odata>-txn_status = ls_txnstat-param8 OR <fs_odata>-txn_status = ls_txnstat-param9.
                " Added by Vaishnavi Jambhale on 22.08.2023(
                IF <fs_odata>-dzterm IS NOT INITIAL.
                  WRITE <fs_odata>-dzterm TO lv_premium_date.
                ENDIF.
                ")
​
                IF <fs_odata>-dblfz IS NOT INITIAL.
                  WRITE <fs_odata>-dblfz TO lv_trdate.
                ENDIF.
​
                IF <fs_odata>-delfz IS NOT INITIAL.
                  WRITE <fs_odata>-delfz TO lv_valdate.
                ENDIF.
​
                IF <fs_odata>-e_date IS NOT INITIAL.
                  WRITE <fs_odata>-e_date TO lv_exp_date. " Modified by Vaishnavi Jambhale on 22.08.2023
                ENDIF.
​
                " Added by Vaishnavi Jambhale on 22.08.2023(
                IF <fs_odata>-zmc_date IS NOT INITIAL.
                  WRITE <fs_odata>-zmc_date TO lv_mc_date.
                ENDIF.
​
                IF <fs_odata>-zship_start IS NOT INITIAL.
                  WRITE <fs_odata>-zship_start TO lv_ship_start_date.
                ENDIF.
​
                IF <fs_odata>-zship_end IS NOT INITIAL.
                  WRITE <fs_odata>-zship_end TO lv_ship_end_date.
                ENDIF.
                ")
​
                REPLACE ALL OCCURRENCES OF:  '.' IN lv_premium_date WITH '/',    " Added by Vaishnavi Jambhale on 22.08.2023
                                             '.' IN lv_trdate WITH '/',
                                             '.' IN lv_valdate WITH '/',
                                             '.' IN lv_exp_date WITH '/',        " Modified by Vaishnavi Jambhale on 22.08.2023
                                             '.' IN lv_mc_date WITH '/',         " Added by Vaishnavi Jambhale on 22.08.2023
                                             '.' IN lv_ship_start_date WITH '/', " Added by Vaishnavi Jambhale on 22.08.2023
                                             '.' IN lv_ship_end_date WITH '/'.   " Added by Vaishnavi Jambhale on 22.08.2023
​
​
                "" processing IDs & numeric values
                IF <fs_odata>-rfha IS NOT INITIAL.
                  SHIFT <fs_odata>-rfha LEFT DELETING LEADING '0'.
*                WRITE <fs_odata>-rfha  TO lv_rfha.
                  lv_rfha = |="| && <fs_odata>-rfha && |"|.
                ENDIF.
​
                IF <fs_odata>-ztsf_deal_id IS NOT INITIAL.
                  WRITE <fs_odata>-ztsf_deal_id  TO lv_dealid.
                ENDIF.
​
                IF <fs_odata>-ztsf_mc_ref_no IS NOT INITIAL.
                  WRITE <fs_odata>-ztsf_mc_ref_no  TO lv_mcrefno.
                ENDIF.
​
                IF <fs_odata>-nordext IS NOT INITIAL.
                  WRITE <fs_odata>-nordext TO lv_extref.
                ENDIF.
​
                IF <fs_odata>-rbusa IS NOT INITIAL.
                  WRITE <fs_odata>-rbusa TO lv_ba.
                ENDIF.
​
                IF <fs_odata>-fo_remark IS NOT INITIAL. " Added by Aditi Macwan on 09.10.2023
                  WRITE <fs_odata>-fo_remark TO lv_fo_remarks.
                ENDIF.
​
                IF <fs_odata>-mo_remark IS NOT INITIAL. " Added by Aditi Macwan on 09.10.2023
                  WRITE <fs_odata>-mo_remark TO lv_mo_remarks.
                ENDIF.
​
​
                "" processing amounts & rates
                IF <fs_odata>-amt1 < 0.
                  TRY. lv_amt1_dec = <fs_odata>-amt1 * -1. CATCH cx_sy_arithmetic_overflow. ENDTRY.
                  WRITE lv_amt1_dec TO lv_amt1 CURRENCY <fs_odata>-curr1. " Added by Aditi Macwan on 10.10.2023
                  lv_amt1 = '-' &&  lv_amt1.
                ELSE.
                  WRITE <fs_odata>-amt1 TO lv_amt1. " Modified by Vaishnavi Jambhale on 22.08.2023
                ENDIF.
​
                IF <fs_odata>-amt2 < 0.
                  TRY. lv_amt2_dec = <fs_odata>-amt2 * -1. CATCH cx_sy_arithmetic_overflow. ENDTRY.
                  WRITE lv_amt2_dec TO lv_amt2 CURRENCY <fs_odata>-curr2. " Added by Aditi Macwan on 10.10.2023
                  lv_amt2 = '-' &&  lv_amt2.
                ELSE.
                  WRITE <fs_odata>-amt2 TO lv_amt2. " Modified by Vaishnavi Jambhale on 22.08.2023
                ENDIF.
​
                " Added by Vaishnavi Jambhale on 22.08.2023(
                IF <fs_odata>-bzbetr < 0.
                  TRY. lv_premium_amt = <fs_odata>-bzbetr * -1. CATCH cx_sy_arithmetic_overflow. ENDTRY.
                  lv_premium_amt = '-' && lv_premium_amt.
                ELSE.
                  WRITE <fs_odata>-bzbetr TO lv_premium_amt.
                ENDIF.
​
                IF <fs_odata>-kkurs < 0.
                  TRY. lv_strike_rate = <fs_odata>-kkurs * -1. CATCH cx_sy_arithmetic_overflow. ENDTRY.
                  lv_strike_rate = '-' &&  lv_strike_rate.
                ELSE.
                  WRITE <fs_odata>-kkurs TO lv_strike_rate.
                ENDIF.
​
​
                IF <fs_odata>-exp_rate < 0.
                  TRY. lv_exp_rate = <fs_odata>-exp_rate * -1. CATCH cx_sy_arithmetic_overflow. ENDTRY.
                  lv_exp_rate = '-' &&  lv_exp_rate.
                ELSE.
                  WRITE <fs_odata>-exp_rate TO lv_exp_rate.
                ENDIF.
                "" appending data
                " Changes by Aditi Macwan on 07.09.2023 (
                CONCATENATE lv_line lv_trdate gc_tab
                <fs_odata>-butxt gc_tab
                <fs_odata>-e_type gc_tab
                <fs_odata>-xtext gc_tab
                <fs_odata>-pc1 gc_tab
                <fs_odata>-curr1 gc_tab
                lv_amt1 gc_tab
                <fs_odata>-pc2 gc_tab
                <fs_odata>-curr2 gc_tab
                lv_amt2 gc_tab
                lv_strike_rate gc_tab
                lv_exp_date gc_tab
                lv_valdate gc_tab
                lv_rfha gc_tab
                lv_dealid gc_tab
                lv_extref gc_tab
                <fs_odata>-bp_name gc_tab
                lv_exp_rate gc_tab
                <fs_odata>-cpair gc_tab
                <fs_odata>-zolam_deal_no gc_tab
                <fs_odata>-wzbetr gc_tab
                lv_premium_amt gc_tab
                lv_premium_date gc_tab
                lv_mcrefno gc_tab
                <fs_odata>-zcom_desc_long gc_tab
                lv_mc_date gc_tab
                lv_ship_start_date gc_tab
                lv_ship_end_date gc_tab
                <fs_odata>-ext_stat_desc gc_tab
                <fs_odata>-rdealer gc_tab
                <fs_odata>-zmod_id gc_tab
                <fs_odata>-ba_name gc_tab
                <fs_odata>-zold_mc_ref_no gc_tab
                lv_fo_remarks gc_tab
                lv_mo_remarks gc_crlf INTO lv_line.
              ENDIF.
            ENDLOOP.
          ELSE.
            LOOP AT gt_data1 ASSIGNING FIELD-SYMBOL(<fs_edata>).
              IF <fs_edata>-txn_status = ls_txnstat-param1 OR <fs_edata>-txn_status = ls_txnstat-param5.
​
                "" converting excel data type by moving fields to local variables
                "" processing dates to excel format
                IF <fs_edata>-blotter_date IS NOT INITIAL.
                  WRITE <fs_edata>-blotter_date TO lv_bldate.
                ENDIF.
​
                IF <fs_edata>-dblfz IS NOT INITIAL.
                  WRITE <fs_edata>-dblfz TO lv_trdate.
                ENDIF.
​
                IF <fs_edata>-delfz IS NOT INITIAL.
                  WRITE <fs_edata>-delfz TO lv_valdate.
                ENDIF.
​
                IF <fs_edata>-v_date IS NOT INITIAL.
                  WRITE <fs_edata>-v_date TO lv_fixdate.
                ENDIF.
​
                REPLACE ALL OCCURRENCES OF:  '.' IN lv_bldate WITH '/',
                                             '.' IN lv_trdate WITH '/',
                                             '.' IN lv_fixdate WITH '/',
                                             '.' IN lv_valdate WITH '/'.
​
                "" processing IDs & numeric values
                IF <fs_edata>-rfha IS NOT INITIAL.
                  SHIFT <fs_edata>-rfha LEFT DELETING LEADING '0'.
*                WRITE <fs_edata>-rfha  TO lv_rfha.
                  lv_rfha = |="| && <fs_edata>-rfha && |"|.
                ENDIF.
​
                IF <fs_edata>-ztsf_deal_id IS NOT INITIAL.
                  WRITE <fs_edata>-ztsf_deal_id  TO lv_dealid.
                ENDIF.
​
                IF <fs_edata>-ztsf_mc_ref_no IS NOT INITIAL.
                  WRITE <fs_edata>-ztsf_mc_ref_no  TO lv_mcrefno.
                ENDIF.
​
                IF <fs_edata>-nordext IS NOT INITIAL.
                  WRITE <fs_edata>-nordext TO lv_extref.
                ENDIF.
​
                IF <fs_edata>-rbusa IS NOT INITIAL.
                  WRITE <fs_edata>-rbusa TO lv_ba.
                ENDIF.
​
                "" processing amounts & rates
                IF <fs_edata>-amt1 < 0.
                  TRY. lv_amt1_dec = <fs_edata>-amt1 * -1. CATCH cx_sy_arithmetic_overflow. ENDTRY.
                  WRITE lv_amt1_dec TO lv_amt1 CURRENCY <fs_edata>-curr1. " Added by Aditi Macwan on 10.10.2023
                  lv_amt1 = '-' &&  lv_amt1.
                ELSE.
                  WRITE <fs_edata>-amt1 TO lv_amt1.
*                lv_amt1 = <fs_edata>-amt1.
                ENDIF.
​
                IF <fs_edata>-amt2 < 0.
                  TRY. lv_amt2_dec = <fs_edata>-amt2 * -1. CATCH cx_sy_arithmetic_overflow. ENDTRY.
                  WRITE lv_amt2_dec TO lv_amt2 CURRENCY <fs_edata>-curr2. " Added by Aditi Macwan on 10.10.2023
                  lv_amt2 = '-' &&  lv_amt2.
                ELSE.
                  WRITE <fs_edata>-amt2 TO lv_amt2.
*                lv_amt2 = <fs_edata>-amt2.
                ENDIF.
​
                IF <fs_edata>-tot_rate < 0.
                  TRY. lv_tot_rate = <fs_edata>-tot_rate * -1. CATCH cx_sy_arithmetic_overflow. ENDTRY.
                  lv_tot_rate = '-' &&  lv_tot_rate.
                ELSE.
                  lv_tot_rate = <fs_edata>-tot_rate.
                ENDIF.
​
                "" appending data,
                CONCATENATE lv_line lv_rfha gc_tab
                <fs_edata>-bukrs gc_tab
                lv_ba gc_tab
                lv_bldate gc_tab
                lv_trdate gc_tab
                lv_fixdate gc_tab
                <fs_edata>-zcom_id gc_tab
                <fs_edata>-xtext gc_tab
                <fs_edata>-bp_name gc_tab
                <fs_edata>-bs_2 gc_tab
                <fs_edata>-curr2 gc_tab
                lv_amt2 gc_tab
                <fs_edata>-bs_1 gc_tab
                <fs_edata>-curr1 gc_tab
                lv_amt1 gc_tab
                lv_tot_rate gc_tab
                <fs_edata>-ext_stat_desc gc_tab
                lv_valdate gc_tab
                lv_dealid gc_tab
                lv_mcrefno gc_tab
                <fs_edata>-ba_name gc_tab
                <fs_edata>-trd_name gc_tab
                <fs_edata>-xportb gc_tab
                lv_extref gc_crlf INTO lv_line.
              ENDIF.
            ENDLOOP.
          ENDIF.
*         BREAK-POINT.
*          lv_line = lv_line && |</TABLE> </HTML>|.
​
          "" Converting xml to binary
          TRY.
              cl_bcs_convert=>string_to_solix(
                EXPORTING
                  iv_string   = lv_line
                  iv_codepage = '4103'  "suitable for MS Excel, leave empty
                  iv_add_bom  = 'X'     "for other doc types
                IMPORTING
                  et_solix  = lt_att_content_hex
                  ev_size   = lv_so_obj_len ).
            CATCH cx_bcs.
​
          ENDTRY.
​
          IF r_fx IS NOT INITIAL.
            lv_exceldesc = 'OLAM_OGA_MAS_SAP_TSF_Transaction_' && s_date-low+0(4) && s_date-low+4(2) && s_date-low+6(2). " Changed by Aditi Macwan on 09.10.2023 'DE6 - Forwards'
          ELSE.
            lv_exceldesc = 'OLAM_OGA_MAS_SAP_OPTION_' && s_date-low+0(4) && s_date-low+4(2) && s_date-low+6(2). " Changed by Aditi Macwan on 09.10.2023 'DE7 - Options'
          ENDIF.
​
          """ to attach xls file
          TRY.
              lo_document->add_attachment(
                EXPORTING
                i_attachment_type     = 'csv'
                i_attachment_subject  = lv_exceldesc  "BU CCR NDF
                i_attachment_size     = lv_so_obj_len
                i_att_content_hex     = lt_att_content_hex ).
*                i_att_content_hex     = lv_line ).
​
            CATCH cx_document_bcs INTO lx_document_bcs.
          ENDTRY.
​
        ENDIF.
​
​
*     Add document to send request
        CALL METHOD lo_send_request->set_document( lo_document ).
**     --------- set sender -------------------------------------------
**     note: this is necessary only if you want to set the sender
**           different from actual user (SY-UNAME). Otherwise sender is
**           set automatically with actual user.
        lo_sender = cl_sapuser_bcs=>create( sy-uname ).
        CALL METHOD lo_send_request->set_sender
          EXPORTING
            i_sender = lo_sender.
​
*       Create recipient
        LOOP AT gt_email ASSIGNING FIELD-SYMBOL(<fs_email>).
​
          DATA lv_eadd TYPE ad_smtpadr.
          lv_eadd = <fs_email>-member_adr.
          TRY.
              lo_recipient = cl_cam_address_bcs=>create_internet_address( lv_eadd ).
            CATCH cx_address_bcs.
          ENDTRY.
​
*       Set recipient
          TRY.
              lo_send_request->add_recipient(
              EXPORTING
              i_recipient = lo_recipient
              i_express = 'X' ).
            CATCH cx_send_req_bcs .
          ENDTRY.
        ENDLOOP.
*     ---------- Send document ---------------------------------------
        TRY.
            lo_send_request->set_send_immediately( 'X' ).
            lo_send_request->send(
            EXPORTING
            i_with_error_screen = 'X'
            RECEIVING
            result = lv_sent_to_all ).
          CATCH cx_send_req_bcs INTO lv_send_exc.
          CATCH cx_address_bcs INTO lv_addr_exc.
        ENDTRY.
        COMMIT WORK AND WAIT.
        MESSAGE s131(zsgtrmm).
      CATCH cx_bcs INTO bcs_exception.
​
​
    ENDTRY.
  ENDIF.
ENDFORM.

29.5kg <==> 2.655E+34J
29.5kg powers 7.375E+28 100W bulbs for 1 hour
32°F <==> 0°C

Cached Result
Last Run:	5:03:08 am
Compile:	0.379s
Execute:	0s
Memory:	0b
CPU:	0.016s

View IL Code