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

*& Report  ZTRM_R0193

*&

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

*&  Technical Consultant - Sandesh Yadav

*&  Functional Consultant - Shirley D'costa

*&  Description - Interest Rate Uploader

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

​

INCLUDE ztrm_r0193_top                          .    " global Data

​

* INCLUDE ZTRM_R0193_O01                          .  " PBO-Modules

* INCLUDE ZTRM_R0193_I01                          .  " PAI-Modules

INCLUDE ztrm_r0193_f01                          .  " FORM-Routines

​

​

AT SELECTION-SCREEN ON p_layout.

  IF p_layout IS NOT INITIAL.

    gw_variant-variant = p_layout.

  ENDIF.

​

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_layout.

  PERFORM sub_get_layout.

​

START-OF-SELECTION.

​

  PERFORM get_data.

  PERFORM process_data.

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

*& Include ZTRM_R0193_TOP                                    Report ZTRM_R0193

*&

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

​

REPORT   ztrm_r0193.

​

TYPES: BEGIN OF ty_data,

         referenz TYPE referenz,

         datab    TYPE char10,

         zsoll    TYPE azinssatz,

       END OF ty_data.

​

DATA: it_final TYPE TABLE OF t056p,

      wa_final TYPE t056p.

​

DATA: it_data TYPE TABLE OF ty_data,

      wa_data TYPE ty_data.

​

DATA : gt_raw  TYPE truxs_t_text_data.

​

DATA : gw_variant TYPE disvariant.

​

DATA : input      TYPE input,

       datum      TYPE datum,

       chdat(8)   TYPE c,

       houtput(8) TYPE n,

       output(8)  TYPE c.

​

***  DATA: chdat(8) TYPE c,

***        houtput(8) type n.

​

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

PARAMETERS: p_file TYPE rlgrap-filename .

SELECTION-SCREEN : END OF BLOCK b1.

​

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.

PARAMETERS   p_layout TYPE slis_vari.

SELECTION-SCREEN END OF BLOCK b2.

​

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

​

  CALL FUNCTION 'F4_FILENAME'

*   EXPORTING

*     PROGRAM_NAME        = SYST-CPROG

*     DYNPRO_NUMBER       = SYST-DYNNR

*     FIELD_NAME          = ' '

    IMPORTING

      file_name = p_file.

  .

​

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

*&  Include           ZTRM_R0193_F01

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

​

FORM get_data.

​

  CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'

    EXPORTING

*     I_FIELD_SEPERATOR    =

      i_line_header        = 'X'

      i_tab_raw_data       = gt_raw

      i_filename           = p_file

    TABLES

      i_tab_converted_data = it_data

    EXCEPTIONS

      conversion_failed    = 1

      OTHERS               = 2.

  IF sy-subrc <> 0.

    MESSAGE ID sy-msgid

          TYPE sy-msgty

          NUMBER sy-msgno

          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

  ENDIF.

​

ENDFORM.                    "get_data

​

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

*&      Form  process_data

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

*       text

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

FORM process_data.

​

​

​

  LOOP AT it_data INTO wa_data.

    MOVE-CORRESPONDING wa_data TO wa_final.

​

​

"Added by Jerin on 13.04.2022."

 IF wa_data-datab <> space.

​

      CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL'

        EXPORTING

          date_external            = wa_data-datab

*         ACCEPT_INITIAL_DATE      =

        IMPORTING

          date_internal            = wa_final-datab

        EXCEPTIONS

          date_external_is_invalid = 1

********       OTHERS        = 2

        .

      IF sy-subrc <> 0.

* Implement suitable error handling here

*        MESSAGE e102.

      ENDIF.

​

      MOVE wa_final-datab TO chdat.

      houtput = '99999999' - chdat.

      output  = houtput.

      wa_final-datab = output.

​

    ELSE .

​

      output = space.

​

    ENDIF.

​

*  *******************

​

******    CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL'

******      EXPORTING

******        date_external = wa_data-datab

*******       ACCEPT_INITIAL_DATE            =

******      IMPORTING

******        date_internal = wa_final-datab

******* EXCEPTIONS

*******       DATE_EXTERNAL_IS_INVALID       = 1

*******       OTHERS        = 2

******      .

******    IF sy-subrc <> 0.

******* Implement suitable error handling here

******    ENDIF.

​

    APPEND wa_final TO it_final .

    CLEAR : wa_data,wa_final.

​

  ENDLOOP.

​

  IF it_final IS NOT INITIAL.

    MODIFY t056p FROM TABLE it_final.

    MESSAGE 'Data Uploaded Successfully' TYPE 'S'.

  ENDIF.

​

ENDFORM.                    "process_data

​

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

*&      Form  sub_get_layout

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

*       text

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

FORM sub_get_layout.

​

  gw_variant-report   = sy-repid.

​

  CALL FUNCTION 'REUSE_ALV_VARIANT_F4'

    EXPORTING

      is_variant    = gw_variant

*     I_TABNAME_HEADER    =

*     I_TABNAME_ITEM      =

*     IT_DEFAULT_FIELDCAT =

*     I_SAVE        = ' '

*     I_DISPLAY_VIA_GRID  = ' '

    IMPORTING

*     E_EXIT        =

      es_variant    = gw_variant

    EXCEPTIONS

      not_found     = 1

      program_error = 2

      OTHERS        = 3.

  IF sy-subrc <> 0.

    p_layout = gw_variant-variant.

  ENDIF.

​

ENDFORM.                    "sub_get_layout