*&---------------------------------------------------------------------*

*& Include          ZSGTSF_RFX_BLOTTER_COMP_TOP

*&---------------------------------------------------------------------*

*&  Program Name        : ZSGTSF_RFX_BLOTTER_COMP                     *&

*&  Author Name         : Sudhey S Koli                               *&

*&  Functional Name     : Sunil Alva                                  *&

*&  Module              : TSF                                         *&

*&  Description         : Blotter                                     *&

*&  Request No          : TRSK900073                                  *&

*&  Transaction Code    : ZSGTSFR015                                  *&

*&---------------------------------------------------------------------*

* Change History

*----------------------------------------------------------------------*

* Date     | Programmer  |Requestor        |Request   | Description    |

*          |             |                 |          |                |

*&---------------------------------------------------------------------*

*----------------------------------------------------------------------*

* Modified By            : Kisan                                       *

* Date of Modification   : 26.11.2021                                  *

* Change Request No      : TRDK910602                                  *

* Reason Of Modification : Code-Correction                             *

*----------------------------------------------------------------------*

* Modified By            : Vaishnavi Jambhale                          *

* Date of Modification   : 22.08.2023                                  *

* Change Request No      : TRDK917678                                  *

* Reason Of Modification : Additional Columns / Email Functionality    *

*----------------------------------------------------------------------*

*&---------------------------------------------------------------------*

​

REPORT zsgtsf_rfx_blotter_comp.

TABLES:vtbfha.

​

" Added by saurav on 11.08.2021 Scope 4000015805 to declare constants{

CONSTANTS : cs_i  TYPE char1 VALUE 'I',

            cs_e  TYPE char1 VALUE 'E',

            cs_o  TYPE char2 VALUE 'EQ',

            cs_03 TYPE char2 VALUE '03'. "}

" Added by kisan  on 26.11.2021 Scope 4000015805 declaring the constant vales{

CONSTANTS:c_usd(3) VALUE 'USD',

          c_twd(3) VALUE 'TWD',

          c_d1(2)  VALUE 'D1',

          c_d2(2)  VALUE 'D2',

          c_d3(2)  VALUE 'D3',

          c_604(3) VALUE '604',

          c_609(3) VALUE '609'.

​

CONSTANTS : c_x(1)       VALUE 'X',

            c_fx1(3)     VALUE 'FX1',

            lc_saktiv(1) VALUE '3',

            c_02(2)      VALUE '02'. " }

TYPES: BEGIN OF zsgtsfv_fx ,

         colortab      TYPE lvc_t_scol, " Added by saurav on 26.11.2021 Scope 4000015805 added fields {

         zpl_new       TYPE zdt_pl_amt,

         zinv_status   TYPE c LENGTH 30,          "" Added by Saiteja - 14.06.2023

         zamt_inv      TYPE tb_limit_amount,      "" Added by Saiteja - 14.06.2023

         zamt_ninv     TYPE tb_limit_amount,      "" Added by Saiteja - 14.06.2023

         zpnl_inv      TYPE tb_limit_amount,      "" Added by Saiteja - 14.06.2023

         zpnl_uninv    TYPE tb_limit_amount,      "" Added by Saiteja - 14.06.2023

         zvol_usd      TYPE tb_limit_amount,      "" Added by Saiteja - 14.06.2023

         zpl_local_new TYPE zdt_pl_amt. " }

         INCLUDE TYPE zsgtsfv_fx .

         INCLUDE TYPE zsgtsftr_mas_con.

       TYPES: END OF zsgtsfv_fx .

​

TYPES: BEGIN OF zsgtsfv_op ,

         zinv_status TYPE c LENGTH 30,      "" Added by Saiteja - 14.06.2023

         zamt_inv    TYPE tb_limit_amount,        "" Added by Saiteja - 14.06.2023

         zamt_ninv   TYPE tb_limit_amount,        "" Added by Saiteja - 14.06.2023

         zpnl_inv    TYPE tb_limit_amount,        "" Added by Saiteja - 14.06.2023

         zpnl_uninv  TYPE tb_limit_amount,        "" Added by Saiteja - 14.06.2023

         zvol_usd    TYPE tb_limit_amount,        "" Added by Saiteja - 14.06.2023

         colortab    TYPE lvc_t_scol.

         INCLUDE TYPE zsgtsfv_op .

         INCLUDE TYPE zsgtsftr_mas_con.

       TYPES: END OF zsgtsfv_op .

​

" Added by saurav on 26.11.2021 Scope 4000015805 declaring the structure {

TYPES : BEGIN OF ty_top,

          bukrs     TYPE bukrs,

          rfha      TYPE tb_rfha,

          deal_type TYPE c LENGTH 3,

          deal_id   TYPE zdt_tsf_dealid,

          rate      TYPE zdt_tsf_spot_c,

          dblfz     TYPE zdt_t_date,

          delfz     TYPE zdt_v_date,

          curr1     TYPE zdt_tsf_curr1,

          amt1      TYPE zdt_tsf_amt_1,

          curr2     TYPE zdt_tsf_curr2,

          amt2      TYPE zdt_tsf_amt_2,

          f_curr1   TYPE   zdt_tsf_curr1,

          t_curr1   TYPE   zdt_tsf_curr1,

        END OF ty_top." }

" Added by saurav on 26.11.2021 Scope 4000015805 declaring the internal table and work area.

DATA: gt_top TYPE TABLE OF ty_top,

      gs_top TYPE ty_top.

​

DATA:gt_data1 TYPE TABLE OF zsgtsfv_fx,

     gs_data1 TYPE zsgtsfv_fx.

​

DATA:gt_data2 TYPE TABLE OF zsgtsfv_op,

     gs_data2 TYPE zsgtsfv_op.

​

DATA : gs_variant TYPE disvariant,

       gs_layout  TYPE lvc_s_layo,

       lr_alv     TYPE REF TO cl_salv_table.

​

DATA : gs_color               TYPE lvc_s_scol.

DATA : gt_color TYPE STANDARD TABLE OF lvc_s_scol.

DATA :gs_exch_rate LIKE  bapi1093_0." Added by saurav on 26.11.2021 Scope 4000015805 declaring variable .

​

​

​

""" Added by Ryan Nayak 07.08.2023

DATA: lv_eventid TYPE btceventid,                "

      lv_evtparm TYPE btcevtparm,

      lv_active  TYPE btcxpgflag,

      lv_jobcnt  TYPE btcjobcnt,

      lv_jobnm   TYPE btcjob,

      lv_ebody   TYPE so_text255,

      text       TYPE bcsy_text,

      dtext      TYPE bcsy_text,

      ftext      TYPE bcsy_text,

      lv_stepcnt TYPE btcstepcnt.

​

DATA: lv_variant TYPE btcvariant.

​

DATA: lv_variant_name TYPE so_obj_nam.

​

DATA : gw_variant TYPE disvariant.

​

DATA: gt_email    TYPE STANDARD TABLE OF sodlienti1.

DATA: lv_line TYPE string.

​

DATA: lv_premium_date(10)    TYPE c, "Added by Vaishnavi Jambhale on 22.08.2023

      lv_bldate(10)          TYPE c,

      lv_fixdate(10)         TYPE c,

      lv_trdate(10)          TYPE c,

      lv_valdate(10)         TYPE c,

      lv_exp_date(10)        TYPE c, "Added by Vaishnavi Jambhale on 22.08.2023

      lv_mc_date(10)         TYPE c, "Added by Vaishnavi Jambhale on 22.08.2023

      lv_ship_start_date(10) TYPE c, "Added by Vaishnavi Jambhale on 22.08.2023

      lv_ship_end_date(10)   TYPE c, "Added by Vaishnavi Jambhale on 22.08.2023

      lv_rfha                TYPE tb_rfha,

      lv_dealid(10)          TYPE c,

      lv_mcrefno(10)         TYPE c,

      lv_extref(10)          TYPE c,

      lv_ba(5)               TYPE c,

      lv_amt1(20)            TYPE c,

      lv_amt1_dec(16)        TYPE p DECIMALS 2,"Added by Aditi Macwan on 10.10.2023

      lv_amt2(20)            TYPE c,

      lv_amt2_dec(16)        TYPE p DECIMALS 2,"Added by Aditi Macwan on 10.10.2023

      lv_premium_amt(20)     TYPE c, "Added by Vaishnavi Jambhale on 22.08.2023

      lv_strike_rate(20)     TYPE c, "Added by Vaishnavi Jambhale on 22.08.2023

      lv_exp_rate(20)        TYPE c, "Added by Vaishnavi Jambhale on 22.08.2023

      lv_mo_remarks          TYPE zdt_mo_remark, "Added by Aditi Macwan on 09.10.2023

      lv_fo_remarks          TYPE zdt_fo_remark, "Added by Aditi Macwan on 09.10.2023

      lv_tot_rate(20)        TYPE c.

​

DATA: lo_send_request   TYPE REF TO cl_bcs . "VALUE IS INITIAL.

DATA: lt_message_body TYPE STANDARD TABLE OF solisti1, "VALUE IS INITIAL,

      wa_message_body TYPE solisti1,

      lt_mdata        TYPE STANDARD TABLE OF solisti1,

      lt_mfcat        TYPE STANDARD TABLE OF solisti1,

      ls_body         TYPE soli,

      lo_document     TYPE REF TO cl_document_bcs, "VALUE IS INITIAL,

      lv_subject      TYPE string,

      lv_amt          TYPE c LENGTH 100,            "modified by jahnavi (11.07.2023) 400024345

      lv_amount       TYPE tb_limit_amount,

      lv_lines        TYPE i,

      lv_so_obj_len   TYPE so_obj_len.

​

DATA: lv_exceldesc       TYPE sood-objdes,

      lt_att_content_hex TYPE solix_tab,

      lx_document_bcs    TYPE REF TO cx_document_bcs VALUE IS INITIAL.

​

​

DATA: lo_sender         TYPE REF TO cl_sapuser_bcs . "VALUE IS INITIAL.

* Create recipient

DATA: lo_recipient      TYPE REF TO if_recipient_bcs . "VALUE IS INITIAL.

* Send email

DATA : lv_sent_to_all   TYPE os_boolean. "VALUE IS INITIAL.

DATA : lv_send_exc   TYPE REF TO cx_send_req_bcs,

       lv_addr_exc   TYPE REF TO cx_address_bcs,

       bcs_exception TYPE REF TO cx_bcs.

​

​

​

"-   Selection-Screen

​

SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS: s_bukrs FOR vtbfha-bukrs OBLIGATORY.

SELECT-OPTIONS: s_date FOR sy-datum OBLIGATORY.

SELECTION-SCREEN : BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(12) TEXT-192.

PARAMETERS: rb_b RADIOBUTTON GROUP dat DEFAULT 'X'.       " Blotter Date

SELECTION-SCREEN COMMENT 16(12) TEXT-189.

PARAMETERS: rb_t RADIOBUTTON GROUP dat.                   " Trade Date

SELECTION-SCREEN COMMENT 31(12) TEXT-190.

SELECTION-SCREEN : END OF LINE.

PARAMETERS:     p_trd TYPE zsgtrmtr_trader-ztrader.

SELECTION-SCREEN : END OF BLOCK b1.

​

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE TEXT-003.

PARAMETERS :r_fx RADIOBUTTON GROUP g1,

            r_op RADIOBUTTON GROUP g1.

PARAMETERS: p_sm TYPE xfeld.

SELECTION-SCREEN END OF BLOCK b2.

​

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE TEXT-002.

PARAMETERS   p_layout TYPE slis_vari.

SELECTION-SCREEN END OF BLOCK b3.

​

"" Notes

SELECTION-SCREEN BEGIN OF BLOCK comment WITH FRAME TITLE TEXT-004.

SELECTION-SCREEN COMMENT /01(79) TEXT-006.

SELECTION-SCREEN COMMENT /01(79) TEXT-007.

SELECTION-SCREEN COMMENT /01(79) TEXT-008.

SELECTION-SCREEN COMMENT /01(79) TEXT-009.

SELECTION-SCREEN COMMENT /01(79) TEXT-010.

SELECTION-SCREEN COMMENT /01(79) TEXT-011.

SELECTION-SCREEN END OF BLOCK comment.