Populating Additional data in Material master record

主要解决禁用MM02 事务码后，用户需要更改物料主数据，所做的customer transaction.

 

*&---------------------------------------------------------------------*
*& Report  Z_MCFE_UPDATE
*& test pgm
*&---------------------------------------------------------------------*
*& Created by Ken Zong for Custom MCFE transaction in 04/26/2019
*& No tr
*&---------------------------------------------------------------------*

REPORT Z_MCFE_UPDATE_DEMON.
TYPE-POOLS: slis.
*&---------------------------------------------------------------------*
*& Type define
*&---------------------------------------------------------------------*
TYPES:
  BEGIN OF ty_show,
    matnr         TYPE char18,
    meinh         TYPE marm-meinh,
    xfhdw         TYPE marm-xfhdw,
    atnam         TYPE char30,
    atwrt         TYPE smeinh_ws-atwrt,
  END   OF ty_show,
  tt_show TYPE TABLE OF ty_show,

  BEGIN OF ty_check_type,
    matnr         TYPE char18,
    mtart         TYPE char4,
    mbrsh         TYPE char1,
  END OF ty_check_type.

DATA:
* ALV DEFINIE
  gt_fieldcat      TYPE          lvc_t_fcat,
  gs_fieldcat      TYPE          lvc_s_fcat,
  gs_layout        TYPE          lvc_s_layo,
  i_grid_settings  TYPE          lvc_s_glay,
  gv_matnr         LIKE          mara-matnr,
  gv_return        TYPE          bool,
  gv_flag_succ     TYPE          bool,

  gs_info_show     TYPE          ty_show,
  gt_info_show     TYPE TABLE OF ty_show,

  gt_meinh         TYPE TABLE OF smeinh,
  gt_return        TYPE TABLE OF bapireturn1 WITH HEADER LINE,
  gt_message       TYPE TABLE OF matmess,
  gt_meinh_ws      TYPE TABLE OF smeinh_ws,
  gt_meinh_ws_upd  TYPE TABLE OF smeinh_wsupd,
  gt_meinh_ws_updx TYPE TABLE OF smeinh_wsupdx,
  gt_headdata      TYPE          bapimathead.

*&---------------------------------------------------------------------*
*& SELECTION-SCREEN
*&---------------------------------------------------------------------*
SELECTION-SCREEN: BEGIN OF BLOCK bl01 WITH FRAME TITLE text-001.
PARAMETERS:       p_matnr TYPE char18 OBLIGATORY.
*PARAMETERS:       p_check TYPE char1 AS CHECKBOX.
SELECTION-SCREEN: END OF BLOCK bl01.
*&---------------------------------------------------------------------*
*& INITIALIZATION.
*&---------------------------------------------------------------------*
INITIALIZATION.
CLEAR:
  gt_fieldcat,
  gs_fieldcat,
  gs_layout,
  i_grid_settings,
  gv_matnr,
  gs_info_show,
  gt_info_show,
  gt_meinh,
  gt_return,
  gt_message,
  gt_meinh_ws,
  gt_meinh_ws_upd,
  gt_meinh_ws_updx,
  gt_headdata.
*&---------------------------------------------------------------------*
*& START-OF-SELECTION.
*&---------------------------------------------------------------------*
START-OF-SELECTION.
PERFORM CHECK_MATNR_TYPE.
* Erroe handle
IF gv_return = abap_true.
  MESSAGE 'please input correct Material Number which material type is MCFE !' TYPE 'E'.
ENDIF.

PERFORM GET_MIAN_INFO.
* Error handle
IF gv_return = abap_true..
  MESSAGE 'Have issue when try to get data for Populating Additional' TYPE 'E'.
ENDIF.

* Handle user command
FORM ALV_USER_COMMAND
      USING P_UCOMM    LIKE SY-UCOMM
            P_SELFIELD TYPE SLIS_SELFIELD.

   DATA: lt_out LIKE TABLE OF CABN.
   CLEAR lt_out.

  CASE P_UCOMM.
    WHEN 'E'.
      LEAVE PROGRAM.
    WHEN 'ENDE'.
*      MESSAGE 'No chanes' TYPE 'I'.
      LEAVE PROGRAM.
    WHEN 'ECAN'.
*      MESSAGE 'No chanes' TYPE 'I'.
      LEAVE PROGRAM.
    WHEN 'SPOS'.
        LOOP AT gt_info_show INTO gs_info_show.
          CALL FUNCTION 'CLSE_SELECT_CABN_VIA_NAME'
            EXPORTING
              CHARACTERISTIC          = gs_info_show-atnam
            TABLES
              T_CABN                  = lt_out
           EXCEPTIONS
             NO_ENTRY_FOUND           = 1
             OTHERS                   = 2
                    .
          IF SY-SUBRC <> 0.
            MESSAGE 'please input correct Characteristic Name ' TYPE 'I'.
          ENDIF.

          PERFORM CALL_BAPI_HANDLE.
        ENDLOOP.
*       Update successfully
        CHECK gv_flag_succ = abap_true.
        MESSAGE:'Material has been updated successfully.' TYPE 'I'.
        LEAVE PROGRAM.
    WHEN OTHERS.
  ENDCASE.
ENDFORM.
*&---------------------------------------------------------------------*
*& END-OF-SELECTION.
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Form  CHECK_MATNR_TYPE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM CHECK_MATNR_TYPE .
  DATA ls_check_type TYPE ty_check_type.

  CLEAR ls_check_type.
* Change format
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = p_matnr
    IMPORTING
      output = gv_matnr.

* Get info from MARA and check the material type
  SELECT SINGLE
         matnr
         mtart
         mbrsh
    FROM mara
    INTO CORRESPONDING FIELDS OF ls_check_type
    WHERE matnr = gv_matnr AND
          mtart = 'MCFE'.

* Error handle
  IF sy-subrc <> 0.
    gv_return = abap_true.
    RETURN.
  ENDIF.

* Used for call Bapi
  gt_headdata-material       = ls_check_type-matnr.
  gt_headdata-matl_type      = ls_check_type-mtart.
  gt_headdata-ind_sector     = ls_check_type-mbrsh.

ENDFORM.                    " CHECK_MATNR_TYPE
*&---------------------------------------------------------------------*
*&      Form  GET_MIAN_INFO
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM GET_MIAN_INFO .
  DATA:
    ls_temp      TYPE ty_show,

    lt_class     LIKE TABLE OF sclass ,
    lt_clobjdat  LIKE TABLE OF clobjdat,
    ls_clobjdat  TYPE clobjdat.

  FIELD-SYMBOLS:
    <fs_temp>    TYPE SMEINH_WSUPD.

  CLEAR:
    ls_temp,
    lt_class,
    lt_clobjdat,
    ls_clobjdat.

  UNASSIGN <fs_temp>.

* Get all data for Populating Additional data
  CALL FUNCTION 'VBWS_UOM_READ_WITH_MATNR'
    EXPORTING
      I_MATNR                     = p_matnr
   TABLES
     E_MEINH_WS                   = gt_meinh_ws
     E_MEINH                      = gt_meinh
     E_MESSAGE                    = gt_message
     e_meinh_ws_upd               = gt_meinh_ws_upd
     e_meinh_ws_updx              = gt_meinh_ws_updx
     E_RETURN                     = gt_return
   EXCEPTIONS
     ERROR                         = 1
     OTHERS                        = 2
            .
  IF SY-SUBRC <> 0 AND gt_meinh_ws_upd IS NOT INITIAL.
*   Implement suitable error handling here
    gv_return = abap_true.
    RETURN.
  ENDIF.

* Create for alv
  LOOP AT gt_meinh_ws_upd ASSIGNING <fs_temp>.
    ls_temp-matnr = p_matnr.
    ls_temp-meinh = <fs_temp>-wsmei.
    ls_temp-xfhdw = <fs_temp>-xfhdw.
    ls_temp-atnam = <fs_temp>-atnam.
    ls_temp-atwrt = <fs_temp>-atwrt.
    APPEND ls_temp to gt_info_show.
    CLEAR ls_temp.
  ENDLOOP.

  PERFORM ALV_SHOW.

ENDFORM.                    " GET_MIAN_INFO
*&---------------------------------------------------------------------*
*&      Form  ALV_SHOW
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_LT_INFO_MARM  text
*----------------------------------------------------------------------*
FORM ALV_SHOW.

  gs_fieldcat-fieldname           = 'MATNR'."FIELDNAME
  gs_fieldcat-coltext             = 'Material Number'.
  gs_fieldcat-outputlen           = '15'.
  APPEND gs_fieldcat TO gt_fieldcat.

  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname           = 'MEINH'."FIELDNAME
  gs_fieldcat-coltext             = 'Alternative Unit of Measure for Stockkeeping Unit'.
  gs_fieldcat-outputlen           = '20'.
  APPEND gs_fieldcat TO gt_fieldcat.

  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname           = 'XFHDW'."FIELDNAME
  gs_fieldcat-coltext             = 'Leading batch-specific unit of measure'.
  gs_fieldcat-outputlen           = '2'.
*  IF p_check = abap_true.
    gs_fieldcat-edit    = abap_true.
*  ENDIF.
  APPEND gs_fieldcat TO gt_fieldcat.

  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname           = 'ATNAM'."FIELDNAME
  gs_fieldcat-coltext             = 'Characteristic Name'.
  gs_fieldcat-outputlen           = '50'.
*  IF p_check = abap_true.
    gs_fieldcat-edit    = abap_true.
*  ENDIF.
  APPEND gs_fieldcat TO gt_fieldcat.

  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname           = 'ATWRT'."FIELDNAME
  gs_fieldcat-coltext             = 'Conversion value'.
  gs_fieldcat-outputlen           = '20'.
*  IF p_check = abap_true.
    gs_fieldcat-edit    = abap_true.
*  ENDIF.
  APPEND gs_fieldcat TO gt_fieldcat.

* Set Layout
  gs_layout-cwidth_opt            = 'X'.
  gs_layout-zebra                 = 'X'.
  gs_layout-sel_mode              = 'D'.
  i_grid_settings-edt_cll_cb      = 'X'.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      I_CALLBACK_PROGRAM          = sy-repid
      IS_LAYOUT_LVC               = gs_layout
      i_callback_pf_status_set    = 'F_SET_STATUS'
      IT_FIELDCAT_LVC             = gt_fieldcat
      I_CALLBACK_USER_COMMAND     = 'ALV_USER_COMMAND'
      I_GRID_SETTINGS             = i_grid_settings
    TABLES
      T_OUTTAB                    = gt_info_show
   EXCEPTIONS
     PROGRAM_ERROR                = 1
     OTHERS                       = 2
            .
  IF SY-SUBRC <> 0.
* Implement suitable error handling here
    MESSAGE 'Have issue when try to display data' TYPE 'E'.
  ENDIF.
ENDFORM.                    " ALV_SHOW
*&---------------------------------------------------------------------*
*&      Form  CALL_BAPI_HANDLE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM CALL_BAPI_HANDLE .
  DATA:
    return            TYPE bapiret2,
    lv_flag_up        TYPE bool,
    lv_err            TYPE string.

  FIELD-SYMBOLS:
    <fs_meinh_ws_upd> TYPE SMEINH_WSUPD,
    <fs_info_show>    TYPE ty_show.

  CLEAR:
    gt_return,
    return,
    lv_flag_up,
    lv_err.

  UNASSIGN:
    <fs_meinh_ws_upd>,
    <fs_info_show>.

* Handle the changing
  LOOP AT gt_meinh_ws_upd ASSIGNING <fs_meinh_ws_upd>.
    LOOP AT gt_info_show ASSIGNING <fs_info_show>.
      "A.UOM
      IF <fs_meinh_ws_upd>-wsmei <> <fs_info_show>-meinh.
        <fs_meinh_ws_upd>-wsmei = <fs_info_show>-meinh.
        lv_flag_up = abap_true.
      ENDIF.
      "Char assignment
      IF <fs_meinh_ws_upd>-atnam <> <fs_info_show>-atnam.
        <fs_meinh_ws_upd>-atnam = <fs_info_show>-atnam.
        lv_flag_up = abap_true.
      ENDIF.
      "Conversion value
      IF <fs_meinh_ws_upd>-atwrt <> <fs_info_show>-atwrt.
        <fs_meinh_ws_upd>-atwrt = <fs_info_show>-atwrt.
        lv_flag_up = abap_true.
      ENDIF.
      "Leading Unit
      IF <fs_meinh_ws_upd>-xfhdw <> <fs_info_show>-xfhdw.
        <fs_meinh_ws_upd>-xfhdw = <fs_info_show>-xfhdw.
        lv_flag_up = abap_true.
      ENDIF.
    ENDLOOP.

  ENDLOOP.

  IF lv_flag_up <> abap_true .
    MESSAGE 'You have not do any changes...' TYPE 'I'.
    RETURN.
  ENDIF.

* Update Populating Additional data in Material master record
  CALL FUNCTION 'VBWS_UOM_MAINTAIN_DARK'
    EXPORTING
      I_MATNR                     = p_matnr
      i_user = sy-uname
      i_buffer_refresh = 'X'
      i_no_update = ' '
   TABLES
     E_MEINH_WS                   = gt_meinh_ws
     E_MEINH                      = gt_meinh
     E_MESSAGE                    = gt_message
     I_meinh_ws_upd               = gt_meinh_ws_upd
     I_meinh_ws_updx              = gt_meinh_ws_updx
     E_RETURN                     = gt_return
   EXCEPTIONS
     ERROR                        = 1
     OTHERS                       = 2
            .
  IF SY-SUBRC <> 0.
*   Implement suitable error handling here
  ENDIF.

  LOOP AT gt_return .
    IF gt_return-type <> 'E'.
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
      gv_flag_succ = abap_true.
    ELSE.
      lv_err       =  gt_return-message.
      gv_flag_succ = abap_false.
      CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
      MESSAGE e000(/DSD/OC) WITH lv_err.
      LEAVE PROGRAM.
     ENDIF.
  ENDLOOP.

ENDFORM.                    " CALL_BAPI_OBJCL

 

转载于:https://www.cnblogs.com/HARU/p/10819568.html