TOP

*&**********************************************************************
*OBJECT NAME           : ZSTP_R_UPLOAD_MAPPING_DATA_TOP                *
*TITLE                 : Upload Mapping Data                           *
*AUTHOR                : IBOUAZZA                                      *
*DATE                  : 03/11/2022                                    *
*DEVELOPMENT ID        : STP_R_114                                     *
*CR/Rev-Trac           : CHG0034285/7025                               *
*REQUESTED BY          : Gee Sin Khoo                                  *
*TRANSPORT NO.         : SR4K902452                                    *
*DESCRIPTION           : Upload Mapping Data                           *
*                                                                      *
*&*********************************************************************&
*&                      CHANGE HISTORY LOG                             *
*&---------------------------------------------------------------------*
* CR/HPQC #|DATE(MM/DD/YY)|  DEVELOPER     | REQUESTOR   | TRANSPORT # *
* DESCRIPTION                                                          *
*&---------------------------------------------------------------------&

*&**************************************************************************
*                      Constants Declarations                              *
*&**************************************************************************

CONSTANTS: c_e     TYPE char01 VALUE 'E',
           c_s     TYPE char01 VALUE 'S',
           c_valid TYPE char08 VALUE 'Valid',
           c_en    TYPE sy-langu VALUE 'EN'.

*&**************************************************************************
*                      Types Declarations                                  *
*&**************************************************************************

TYPES : BEGIN OF ty_table1,
          mandt    TYPE mandt,           "Client
          plant    TYPE hum_werks,       "Plant
          str_loc  TYPE lgort_d,         "Storage Location
          mtr_type TYPE mtart,           "Material Type
          inv_org  TYPE zde_invorg,      "Inventory Organization
        END OF ty_table1,

        BEGIN OF ty_table2,
          mandt      TYPE mandt,         "Client
          plant      TYPE hum_werks,     "Plant
          mtr_type   TYPE mtart,         "Material Type
          stock_cat  TYPE bestq,         "Stock Category
          spec_stock TYPE sobkz,         "Special Stock
          val_type   TYPE charg_d,       "Valuation Type
          sub_inv    TYPE zde_subinv,    "SubInventory
          lock_code  TYPE zde_lcode,     "Lock Code
        END OF ty_table2,

        BEGIN OF ty_table3,
          mandt       TYPE mandt,        "Client
          warehouse   TYPE lgnum,        "Warehouse
          storage_bin TYPE lgpla,        "Storage Bin
          orc_locator TYPE zde_loctr,    "Oracle Locators
        END OF ty_table3,

        BEGIN OF ty_table4,
          mandt        TYPE mandt,       "Client
          inv_org      TYPE zde_wmsinv,  "Inventory Organization
          company_code TYPE zde_ccode,   "Company Code
        END OF ty_table4,

        BEGIN OF ty_table5,
          mandt    TYPE mandt,       "Client
          meins    TYPE meins,
          uom_desc TYPE zuom_desc,
          orc_uom  TYPE zorc_uom,
        END OF ty_table5,

        BEGIN OF ty_table6,
          mandt TYPE mandt,       "Client
          matnr TYPE matnr,
          maktx TYPE maktx,
          umrez TYPE umrez,
          meins TYPE meins,
          umren TYPE umren,
          meinh TYPE lrmei,
        END OF ty_table6,

        BEGIN OF ty_table7,
          mandt  type mandt ,
          inv_org TYPE zstp_invorg_name-inv_org,
          inv_des TYPE zstp_invorg_name-inv_des,
        END OF ty_table7,


        BEGIN OF ty_t001w,
          werks TYPE werks_d,            "Plant
        END OF ty_t001w,

        BEGIN OF ty_t001l,
          werks TYPE werks_d,            "Plant
          lgort TYPE lgort_d,            "Storage Location
        END OF ty_t001l,

        BEGIN OF ty_t134,
          mtart TYPE mtart,              "Material Type
        END OF ty_t134,

        BEGIN OF ty_t148,
          sobkz TYPE sobkz,              "Special Stock Indicator
        END OF ty_t148,

        BEGIN OF ty_mch1,
          matnr TYPE matnr,              "Material Number
          charg TYPE charg_d,            "Batch Number
        END OF ty_mch1,

        BEGIN OF ty_t300,
          lgnum TYPE lgnum,              "Warehouse Number
        END OF ty_t300,

        BEGIN OF ty_mara,
          matnr TYPE matnr,              "Material Number
          meins TYPE meins,              "Base UOM
        END OF ty_mara,

        BEGIN OF ty_makt,
          matnr TYPE matnr,              "Material Number
          spras TYPE spras,              "Language Key
          maktx TYPE maktx,              "Material description
        END OF ty_makt,

        BEGIN OF ty_marm,
          matnr TYPE matnr,              "Material Number
          meinh TYPE meinh,              "Alternative Unit of Measure for Stockkeeping Unit
          umrez TYPE umrez,              "Numerator for Conversion to Base Units of Measure
          umren TYPE umren,              "Denominator for conversion to base units of measure
        END OF ty_marm,

        BEGIN OF ty_t006a,
          spras TYPE spras,              "Language
          msehi TYPE msehi,              "Base UOM
        END OF ty_t006a.

*&**************************************************************************
*                      DATA Declarations                                   *
*&**************************************************************************

DATA: gv_check TYPE string,
      gv_meins TYPE msehi,
      gv_matnr TYPE matnr.

*&**************************************************************************
*                      Work Area Declarations                              *
*&**************************************************************************

DATA: gs_final1 TYPE zstp_inv_org_map,
      gs_final2 TYPE zstp_subinv_map,
      gs_final3 TYPE zstp_wms_loc_map,
      gs_final4 TYPE zstp_cocode_map,
      gs_final5 TYPE zstp_convsap_uom,
      gs_final6 TYPE zstp_conv_factor,
      gs_final7 TYPE ZSTP_INVORG_NAME,
      gs_table1 TYPE ty_table1,
      gs_table2 TYPE ty_table2,
      gs_table3 TYPE ty_table3,
      gs_table4 TYPE ty_table4,
      gs_table5 TYPE ty_table5,
      gs_table6 TYPE ty_table6,
      gs_table7 TYPE ty_table7,
      gs_t001w  TYPE ty_t001w,
      gs_t001l  TYPE ty_t001l,
      gs_t134   TYPE ty_t134,
      gs_t148   TYPE ty_t148,
      gs_mch1   TYPE ty_mch1,
      gs_t300   TYPE ty_t300,
      gs_dd07v  TYPE dd07v,
      gs_mara   TYPE ty_mara,
      gs_makt   TYPE ty_makt,
      gs_marm   TYPE ty_marm,
      gs_t006a  TYPE ty_t006a.

*&**************************************************************************
*                      Internal Table Declarations                         *
*&**************************************************************************

DATA: gt_table1 TYPE STANDARD TABLE OF ty_table1,
      gt_check1 TYPE STANDARD TABLE OF ty_table1,
      gt_table2 TYPE STANDARD TABLE OF ty_table2,
      gt_check2 TYPE STANDARD TABLE OF ty_table2,
      gt_table3 TYPE STANDARD TABLE OF ty_table3,
      gt_check3 TYPE STANDARD TABLE OF ty_table3,
      gt_table4 TYPE STANDARD TABLE OF ty_table4,
      gt_check4 TYPE STANDARD TABLE OF ty_table4,
      gt_table5 TYPE STANDARD TABLE OF ty_table5,
      gt_check5 TYPE STANDARD TABLE OF ty_table5,
      gt_table6 TYPE STANDARD TABLE OF ty_table6,
      gt_check6 TYPE STANDARD TABLE OF ty_table6,
      gt_table7 TYPE STANDARD TABLE OF ty_table7,
      gt_check7 TYPE STANDARD TABLE OF ty_table7,
      gt_t001w  TYPE STANDARD TABLE OF ty_t001w,
      gt_t001l  TYPE STANDARD TABLE OF ty_t001l,
      gt_t134   TYPE STANDARD TABLE OF ty_t134,
      gt_t148   TYPE STANDARD TABLE OF ty_t148,
      gt_mch1   TYPE STANDARD TABLE OF ty_mch1,
      gt_t300   TYPE STANDARD TABLE OF ty_t300,
      gt_dd07v  TYPE STANDARD TABLE OF dd07v,
      gt_mara   TYPE STANDARD TABLE OF ty_mara,
      gt_makt   TYPE STANDARD TABLE OF ty_makt,
      gt_marm   TYPE STANDARD TABLE OF ty_marm,
      gt_t006a  TYPE STANDARD TABLE OF ty_t006a.

*&**************************************************************************
*                               Global Declaration                         *
*&**************************************************************************

DATA : c_perc TYPE char1 VALUE '%'.


*&**************************************************************************
*                      Selection Screen Definition                         *
*&**************************************************************************

SELECTION-SCREEN BEGIN OF BLOCK b1  WITH FRAME TITLE TEXT-001.
PARAMETERS : p_file TYPE localfile.
SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE TEXT-002.
PARAMETERS: p_r1 RADIOBUTTON GROUP rad DEFAULT 'X',
            p_r2 RADIOBUTTON GROUP rad,
            p_r3 RADIOBUTTON GROUP rad,
            p_r4 RADIOBUTTON GROUP rad,
            p_r5 RADIOBUTTON GROUP rad,
            p_r6 RADIOBUTTON GROUP rad,
            p_r7 RADIOBUTTON GROUP rad.

SELECTION-SCREEN END OF BLOCK b2.