mm 批量 修改 计量单位 BAPI_MATERIAL_SAVEDATA

*&---------------------------------------------------------------------*
*& Report ZAPP01R1101 批量修改物料主檔資料
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

report  yamm01r1004 message-id zapp01..

type-pools : slis.    "引用ALV 要加入這語法

tables:mara,marc,makt,mast,stpo.

*------------------------------------------------------------
data: it_fieldcat type  slis_t_fieldcat_alv. "field catalog
data: it_fieldcat1 type  slis_t_fieldcat_alv. "field catalog

data: is_variant  like disvariant.         "ALV 儲存配置
data: is_layout   type slis_layout_alv.    "ALV 格式設定 *
data: it_events   type slis_t_event.       "ALV事件
data: wa_events   like line of it_events.
data: it_list_commentary type slis_t_listheader,"ALV TOP/END OF PAGE資訊
      wa_list_commentary like line of it_list_commentary.
data: g_save(1)       type c.
data: g_exit(1)      type c.

data: g_repid like sy-repid.
*DATA: gt_events       TYPE slis_t_event.
data: gt_excluding  type slis_t_extab.
data: gt_event_exit type slis_t_event_exit.

data: col    type lvc_s_scol,
      coltab type lvc_t_scol,
      color  type lvc_s_colo.
*-----------------------------------------------------------
data:i_exl like standard table of zalsmex_tabline1 with header line .
data:it_return like bapiret2  occurs 0  with header line.

data:wa_return     like bapiret2.
data:wa_headdata   like bapimathead.

data:wa_plantdata  like bapi_marc.
data:wa_plantdatax like bapi_marcx.

data:wa_bapi_mara   like bapi_mara.
data:wa_bapi_marax  like bapi_marax.

data:wa_bapi_marm   like table of bapi_marm with header line.
data:wa_bapi_marmx  like table of bapi_marmx with header line.

data:wa_tmcnv like tmcnv.

data : begin of i_tab occurs 0,
      matnr like marc-matnr,  "料號
      umren    like marm-umren,  "基本計量單位轉換的分母
      meinh    like marm-meinh,  "庫存記錄單位的替代計量單位
      umrez    like marm-umrez,  "轉換為基礎計量單位的分子
end of i_tab.

data:g_count(7) type n.
data: g_alvcnt(7) type n.
data: g_totcnt(8) type n.

*輸入條件

selection-screen begin of block blk1 with frame title text-001.

parameters: p_path like rlgrap-filename obligatory. "上傳BAPI的文件名稱
selection-screen end of block blk1.


* 說明部分
selection-screen begin of block comm3 with frame title text-009.
selection-screen comment /01(78) text-c10.
selection-screen comment /01(78) text-c11.
selection-screen comment /01(78) text-c12.
selection-screen comment /01(78) text-c13.
selection-screen comment /01(78) text-c14.

selection-screen skip 1.
selection-screen comment /01(78) text-c20.
selection-screen comment /01(78) text-c21.
selection-screen skip 1.

selection-screen end of  block comm3.

initialization.


at selection-screen output.

  loop at screen.
*    if screen-name = 'P_LESS'.
**      screen-input = 0.   " disable *
*      screen-active = 0.
*      modify screen.
*    endif.

  endloop.


at selection-screen on value-request for p_path.
  perform get_filename.                  "Choose upload filename


at selection-screen.
*  PERFORM check_screen.


start-of-selection.
  perform get_init_variant .    "取得ALV 配置呈現變量 *
  perform define_fieldcat.      "定義ALV欄位設定 *

  perform get_img_material.      "取得 IMG  料號前導零設定

  perform upload_data.          "EXCEL 資料上傳
  perform check_authority.      "檢查權限

  if it_return[] is not initial. "檢查權限有異常資料
    perform alv_display using 'CHK'.
  else.
    perform call_bapi_change.   "變更料號裝配廢品率
    if it_return[] is not initial.  "料號變更有異常資料
      perform alv_display using 'UPD'.
    else.

      message i000(zapp01) with text-s01.
    endif.
  endif.

end-of-selection.


  define append_selections.
    &4-sign = 'I'.
    &4-option = &1.
    &4-low = &2.
    &4-high = &3.
    append &4.
  end-of-definition.


*&---------------------------------------------------------------------*
*&      Form  get_layout_variant
*&---------------------------------------------------------------------*
*  取得 使用者 在show ALV 配置設定 *
*----------------------------------------------------------------------*
form get_init_variant .
  clear is_variant.

  is_variant-report = sy-repid.
  call function 'REUSE_ALV_VARIANT_DEFAULT_GET'
    exporting
      i_save     = 'A'
    changing
      cs_variant = is_variant
    exceptions
      not_found  = 2.
endform.                    "initialize_variant


*&---------------------------------------------------------------------*
*&      Form  get_t141 .
*&---------------------------------------------------------------------*
*       *"取得 IMG  料號前導零設定
*----------------------------------------------------------------------*
form get_img_material.

  "取得料號編碼 IMG 設定是否有前導零
  "TMCNV-LEXFLAG = ' '  --> 若料號號碼為數值存檔時前面會補零

  clear:wa_tmcnv.
  select single * into wa_tmcnv from tmcnv
    where convid = 'MATCONV'.

endform.                                                    "get_t141

*&---------------------------------------------------------------------*
*&      Form  check_authority.
*&---------------------------------------------------------------------*
*       檢查權限
*----------------------------------------------------------------------*
form check_authority.
  data: l_tabix like sy-tabix.
  data: l_count type p.

  refresh:it_return.

  describe table i_tab lines sy-tfill. " 取得 總筆數 *
  g_totcnt = sy-tfill.

  loop at i_tab.
    l_tabix = sy-tabix.

    "檢查有無維護料號工廠權限
    authority-check object 'M_MATE_STA'  "M_MATE_ZST
             id 'ACTVT' field '02'
             id 'STATM' field 'K'.

    if sy-subrc <> 0.
      it_return-type = 'E'.
      concatenate  text-e06  i_tab-matnr text-e04
      into it_return-message.
      append it_return.  clear:it_return.
    endif.

    "--------------------------------------------------------
    " 產生進度比率小時鐘 ------------------------------------
    l_count = l_tabix / g_totcnt * 100.
    perform progress_indicator using '2-1' l_count text-t03.
    " -------------------------------------------------------

  endloop.

  sort it_return by type message.
  delete adjacent duplicates from it_return comparing type message.
  describe table it_return lines sy-tfill. " 取得 總筆數 *
  g_alvcnt = sy-tfill.

endform.                    "get_mat_status

*&---------------------------------------------------------------------*
*&      Form  call_bapi_change
*&---------------------------------------------------------------------*
*       變更料號主檔資料
*----------------------------------------------------------------------*
form call_bapi_change.
  data: l_count type p,
        g_meins like mara-meins,
        g_gewei like t006i-isocode.
  data: l_tabix like sy-tabix.

  refresh:it_return.


  loop at i_tab.
    clear:wa_headdata,wa_bapi_mara,wa_bapi_marax,
          wa_bapi_marm,wa_bapi_marmx.
    l_tabix = sy-tabix.

    wa_headdata-material     = i_tab-matnr.
    wa_headdata-basic_view     = 'X'.

    wa_bapi_marm-denominatr     = i_tab-umren.
    wa_bapi_marm-alt_unit     = i_tab-meinh.
    wa_bapi_marm-numerator     = i_tab-umrez.


    wa_bapi_marmx-alt_unit       = i_tab-meinh.
    wa_bapi_marmx-denominatr     = 'X'.
    wa_bapi_marmx-denominatr     = 'X'.
    wa_bapi_marmx-gross_wt = 'X'.
    wa_bapi_marmx-unit_of_wt = 'X'.

    append wa_bapi_marm.
    append wa_bapi_marmx.


    "呼叫 BAPI 進行修改料號主檔資料 -----------
    call function 'BAPI_MATERIAL_SAVEDATA'
      exporting
       headdata                   = wa_headdata
       clientdata                 = wa_bapi_mara
       clientdatax                = wa_bapi_marax
       plantdata                  = wa_plantdata
       plantdatax                 = wa_plantdatax
*   FORECASTPARAMETERS         =
*   FORECASTPARAMETERSX        =
*   PLANNINGDATA               =
*   PLANNINGDATAX              =
*   STORAGELOCATIONDATA        =
*   STORAGELOCATIONDATAX       =
*   VALUATIONDATA              =
*   VALUATIONDATAX             =
*   WAREHOUSENUMBERDATA        =
*   WAREHOUSENUMBERDATAX       =
*   SALESDATA                  =
*   SALESDATAX                 =
*   STORAGETYPEDATA            =
*   STORAGETYPEDATAX           =
*   FLAG_ONLINE                = ' '
*   FLAG_CAD_CALL              = ' '
*   NO_DEQUEUE                 = ' '
*   NO_ROLLBACK_WORK           = ' '
      importing
       return                     = wa_return
 tables
*   MATERIALDESCRIPTION        =
   unitsofmeasure              = wa_bapi_marm
   unitsofmeasurex             = wa_bapi_marmx
*   INTERNATIONALARTNOS        =
*   MATERIALLONGTEXT           =
*   TAXCLASSIFICATIONS         =
*   RETURNMESSAGES             =
*   PRTDATA                    =
*   PRTDATAX                   =
*   EXTENSIONIN                =
*   EXTENSIONINX               =
              .

    if sy-subrc = 0.
      call function 'BAPI_TRANSACTION_COMMIT'
*               EXPORTING
*                 WAIT          =
*               IMPORTING
*                 RETURN        = RETURN
              .
    else.
      call function 'BAPI_TRANSACTION_ROLLBACK'.
    endif.
    refresh: wa_bapi_marm,wa_bapi_marm[],wa_bapi_marmx,wa_bapi_marmx[].
    "--------------------------------------------------------
    if wa_return-type = 'E'.    "更新失敗
      move-corresponding wa_return to it_return.
      concatenate i_tab-matnr it_return-message into it_return-message.
      append it_return.
      g_alvcnt = g_alvcnt + 1. "計算總筆數, show 在 ALV Title
    endif.

    " 產生進度比率小時鐘 ------------------------------------
    l_count = l_tabix / g_totcnt * 100.
    perform progress_indicator using '2-2' l_count text-t04.
    " -------------------------------------------------------

  endloop.


endform.                    "get_request_data

*&---------------------------------------------------------------------*
*&      Form  define_fieldcat
*&---------------------------------------------------------------------*
*       Field Catalog
*----------------------------------------------------------------------*
form define_fieldcat.
  data:wa_fieldcat type slis_t_fieldcat_alv with header line.
  clear:it_fieldcat,it_fieldcat[],wa_fieldcat,wa_fieldcat[].

  "從SAP DDIC 抓出 ALV 欄位標準設定  ---------------------------------------
  call function 'REUSE_ALV_FIELDCATALOG_MERGE'
    exporting
      i_program_name         = sy-repid
      i_internal_tabname     = 'IT_RETURN'   " IT_LIST 一定要大寫
      i_inclname             = sy-repid
    changing
      ct_fieldcat            = it_fieldcat
    exceptions "
      inconsistent_interface = 1
      program_error          = 2
      others                 = 3.

endform.                    "define_fieldcat


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

*&---------------------------------------------------------------------*
*&      Form  set_layout
*&---------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
form set_layout.
  is_layout-info_fieldname   = 'ROW_COLOR'.   "設定ALV 一整列顏色
  is_layout-coltab_fieldname = 'CELL_COLOR'.  "設定ALV  欄(cell) 顏色

endform.                    "set_layout


*&---------------------------------------------------------------------*
*&      Form  alv_display
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
form alv_display  using l_mode.
  data:l_headdesc type lvc_title.

  if l_mode = 'CHK'.
    shift g_alvcnt left deleting leading '0' .
    concatenate text-601 g_alvcnt into l_headdesc.
  else.
    shift g_alvcnt left deleting leading '0' .
    concatenate text-602 g_alvcnt into l_headdesc.

  endif.


  call function 'REUSE_ALV_GRID_DISPLAY'
    exporting
      i_callback_program       = sy-repid
*      i_callback_pf_status_set = 'ALV_STATUS'
*      i_callback_user_command  = 'USER_COMMAND'
      i_grid_title             = l_headdesc
      is_layout                = is_layout  "ALV 格式設定 *
      i_save                   = ' '
      is_variant               = is_variant "傳入 使用者 在show ALV 配置設定
      it_events                = it_events
      it_fieldcat              = it_fieldcat "傳入ALV Field Catalog *
      i_default                = 'X'
    tables
      t_outtab                 = it_return
    exceptions
      program_error            = 1.


endform.                    "alv_display



*&---------------------------------------------------------------------*
*&      Form  alv_status
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->EXTAB      text
*----------------------------------------------------------------------*
form alv_status using  extab type slis_t_extab.
  refresh extab.
  set pf-status 'ALV_STATUS' excluding extab.
endform.                    "alv_status


*&---------------------------------------------------------------------*
*&      Form  progress_indicator
*&---------------------------------------------------------------------*
*       產生進度比率小時鐘
*----------------------------------------------------------------------*
*      -->
*----------------------------------------------------------------------*
form progress_indicator using   l_step  vn_test vc_desc.
  data: vc_num(4), vc_text(30).

  vc_num = vn_test.
  concatenate ' Process->' l_step vc_num '%  ' vc_desc into vc_text.
  call function 'SAPGUI_PROGRESS_INDICATOR'
    exporting
      percentage = vn_test
      text       = vc_text
    exceptions
      others     = 1.
endform.                  "progress_indicator

*&---------------------------------------------------------------------*
*&      Form  get_filename
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
form get_filename .
  call function 'WS_FILENAME_GET'
    exporting
      def_filename     = '*.xls'
      def_path         = 'C:\'
      mask             = ',*.xls.'
      mode             = 'O'
      title            = text-t01    "請選擇上傳的Excel文件
    importing
      filename         = p_path
    exceptions
      inv_winsys       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error  = 4
      others           = 5.
  if sy-subrc <> 0.
    "上傳的EXCEL路徑及檔名不正確，請重新輸入！
    message s000 with text-e01.
    stop.
  endif.
endform.                    "get_filename

*&---------------------------------------------------------------------*
*&      Form  upload_data
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
form upload_data.
  clear:i_tab,i_tab[],i_exl,i_exl[].
  data:l_count(7) type n.

  clear:l_count.
  refresh:i_tab.

  call function 'ZALSM_EXCEL_TO_INTERNAL_TABL1'
    exporting
      filename                = p_path
      i_begin_col             = 1
      i_begin_row             = 1
      i_end_col               = 4
      i_end_row               = 65535
    tables
      intern                  = i_exl
    exceptions
      inconsistent_parameters = 1
      upload_ole              = 2
      others                  = 3.

  if sy-subrc = 0 or i_exl[] is initial..
    sort i_exl by row col.

    loop at i_exl where row >= 2.
      condense i_exl-value.
      case i_exl-col.
        when 1.
          i_tab-matnr = i_exl-value.
          if wa_tmcnv-lexflag = ''.   "IMG 設定有前導零
            call function 'CONVERSION_EXIT_ALPHA_INPUT'   "補前導零
              exporting
                input  = i_tab-matnr
              importing
                output = i_tab-matnr.
          endif.
        when 2.
          i_tab-umren = i_exl-value.
        when 3.
          i_tab-meinh = i_exl-value.

        when 4.
          i_tab-umrez = i_exl-value.


      endcase.

      at end of row .
        append i_tab.    clear i_tab.
        l_count = l_count + 1.
      endat.
    endloop.

  else.
    "無資料，請仔細檢查上傳的數據和文件名!
    message i000 with text-e02.
    stop.
  endif.

  if g_count > 65535.
    message i026(zapp01) with l_count.
    stop.
  endif.

  free:i_exl.

endform.                    "upload_data

excel  file

 

MATNR	UMREN	MEINH	UMREZ
料號	基本計量單位轉換的分母	庫存記錄單位的替代計量單位	基本計量單位轉換的分子