MMSC物料庫位擴充

1. 輸入事務碼MMSC：

   

2. 回車后添加新的庫位即可：

   

3. 代碼實現，使用BDC

   *&------------------------------------------------*
   *&BDC的定義
   *&------------------------------------------------*
   DATA gt_bdcdata TYPE TABLE OF bdcdata WITH HEADER LINE.   "bdc執行內表
   DATA gt_msgtab TYPE TABLE OF bdcmsgcoll WITH HEADER LINE. "bdc返回信息表
   DATA p_mode TYPE c VALUE 'N'."bdc運行模式*調用FROM例程
   PERFORM locat_dbc USING gw_mseg-matnr gw_mseg-werks gw_mseg-lgort."庫位擴充*FROM
   FORM bdc_field1 USING fnam fval.CLEAR gt_bdcdata.gt_bdcdata-fnam = fnam.gt_bdcdata-fval = fval.APPEND gt_bdcdata.
   ENDFORM.                    "BDC_FIELDFORM bdc_dynpro1 USING program dynpro.CLEAR gt_bdcdata.gt_bdcdata-program  = program.gt_bdcdata-dynpro   = dynpro.gt_bdcdata-dynbegin = 'X'.APPEND gt_bdcdata.
   ENDFORM.                    "BDC_FORM locat_dbc  USING    p_materialp_plantp_stloc."CHANGING p_retu STRUCTURE bapireturn.REFRESH:gt_bdcdata,gt_msgtab.PERFORM bdc_dynpro1      USING 'SAPMM03M' '0105'.PERFORM bdc_field1       USING 'BDC_CURSOR''RM03M-WERKS'.PERFORM bdc_field1       USING 'BDC_OKCODE''/00'.PERFORM bdc_field1       USING 'RM03M-MATNR'p_material.PERFORM bdc_field1       USING 'RM03M-WERKS'p_plant.PERFORM bdc_field1       USING 'RM03M-LFLAG''X'.PERFORM bdc_dynpro1      USING 'SAPMM03M' '0195'.PERFORM bdc_field1       USING 'BDC_CURSOR''RM03M-LGORT(10)'.PERFORM bdc_field1       USING 'BDC_OKCODE''/00'.PERFORM bdc_field1       USING 'RM03M-LGORT(10)'p_stloc.PERFORM bdc_dynpro1      USING 'SAPMM03M' '0195'.PERFORM bdc_field1       USING 'BDC_CURSOR''RM03M-LGORT(05)'.PERFORM bdc_field1       USING 'BDC_OKCODE''=BU'.CALL TRANSACTION 'MMSC' USING gt_bdcdataMODE p_modeMESSAGES INTO gt_msgtabUPDATE 'S'.      "批導更新模式（A = '異步',S = '同步'）READ TABLE gt_msgtab INTO DATA(gs_msgtab) WITH KEY msgtyp = 'E'.IF sy-subrc = 0.p_flag = 'X'.ENDIF.ENDFORM.                    " LOCAT_DBC