SAP MM 库存初始化和批量扩充物料仓位

库存初始化和批量扩充物料仓位 这两个功能合在一个程序里。

SAP刚上线时这两功能很管用。

 

*&---------------------------------------------------------------------*
*& Report  ZR_KTK_MM_0017
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZR_KTK_MM_0017.

TABLES: MKPF,RM07M,MSEG,T100,RM03M.

DATA:   BDCDATA LIKE BDCDATA    OCCURS 0 WITH HEADER LINE.
*       messages of call transaction
DATA:   MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
DATA:   E_GROUP_OPENED,
        E_KEEP(1) TYPE C,
        SMALLLOG(1) TYPE C.

DATA: BEGIN OF RECORD OCCURS 0,
        BLDAT LIKE MKPF-BLDAT,            "创建日期
        BUDAT LIKE MKPF-BUDAT,            "过账日期
        SOBKZ LIKE RM07M-SOBKZ,           "特殊库存
        WERKS LIKE RM07M-WERKS,           "工厂
        LGORT LIKE MSEG-LGORT,            "仓码
        MATNR LIKE MSEG-MATNR,            "料号
*        ERFMG LIKE MSEG-ERFMG,            "数量
        ERFMG(13) type c,                  "数量
        ERFME LIKE MSEG-ERFME,            "单位
      END OF RECORD.

DATA: BEGIN OF RECORD1 OCCURS 0,
        MATNR LIKE RM03M-MATNR,          "料号
        WERKS LIKE RM03M-WERKS,          "工厂
        LGORT LIKE RM03M-LGORT,          "仓码
      END OF RECORD1.

SELECTION-SCREEN BEGIN OF BLOCK BLOCK1 WITH FRAME.
****** N > A
  PARAMETERS CTUMODE LIKE CTU_PARAMS-DISMODE DEFAULT 'N' NO-DISPLAY.
*  PARAMETERS CTUMODE LIKE CTU_PARAMS-DISMODE DEFAULT 'P'.
  PARAMETERS CUPDATE LIKE CTU_PARAMS-UPDMODE DEFAULT 'L' NO-DISPLAY.
  PARAMETERS E_GROUP(12) NO-DISPLAY.             "group name of error-session
  PARAMETERS: E_USER(12) DEFAULT SY-UNAME NO-DISPLAY.    "user for error-session
*  PARAMETERS: E_KEEP AS CHECKBOX.     "' ' = delete session if finished
                                      "'X' = keep   session if finished
  PARAMETERS: E_HDATE LIKE SY-DATUM NO-DISPLAY.
*SELECTION-SCREEN SKIP.
  PARAMETERS: NODATA DEFAULT ' ' LOWER CASE NO-DISPLAY.          "nodata
*  PARAMETERS: SMALLLOG AS CHECKBOX.  "' ' = log all transactions
                                     "'X' = no transaction logging
PARAMETERS: p_qty RADIOBUTTON GROUP g1.
PARAMETERS: p_mat RADIOBUTTON GROUP g1.
PARAMETERS: FILENAME(132) LOWER CASE DEFAULT
                              'C:\data.xls'.
SELECTION-SCREEN END OF BLOCK BLOCK1.

*&------------------------------------------------------------------*
*& AT SELECTION-SCREEN ON VALUE-REQUEST FOR
*&------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR FILENAME .
  CALL FUNCTION 'WS_FILENAME_GET'
      EXPORTING
*          DEF_FILENAME     = 'c:\test.xls'       "default selected file
           DEF_PATH         = 'c:'                "Default path
*           MASK             = ',*.txt,*.txt.'
           MASK             = ',*.xls,*.xls.'
           MODE             = '0'
           TITLE            = 'Select a file to open'
     IMPORTING
           FILENAME         = FILENAME
*         RC               =
       EXCEPTIONS
            INV_WINSYS       = 1
            NO_BATCH         = 2
            SELECTION_CANCEL = 3
            SELECTION_ERROR  = 4
            OTHERS           = 5.

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

START-OF-SELECTION.

  IF P_QTY = 'X'.
    PERFORM INITIALIZE_QTY.
  ELSE.
    PERFORM INITIALIZE_MAT.
  ENDIF.

  PERFORM CLOSE_GROUP.

END-OF-SELECTION.

FORM INITIALIZE_QTY.

  DATA: FILENAME1 LIKE RLGRAP-FILENAME.
  FILENAME1 = FILENAME.

  TYPE-POOLS:truxs.
  DATA:l_raw_data TYPE truxs_t_text_data.


  CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
    EXPORTING
*   I_FIELD_SEPERATOR          =
*   I_LINE_HEADER              =
      i_tab_raw_data             = l_raw_data
      i_filename                 = filename1
    TABLES
      i_tab_converted_data       = record
* EXCEPTIONS
*   CONVERSION_FAILED          = 1
*   OTHERS                     = 2
            .
  IF sy-subrc <> 0.
      MESSAGE E398(00) WITH '数据在导入内表时出错!'.
  ENDIF.

  LOOP AT RECORD.

  perform bdc_dynpro      using 'SAPMM07M' '0400'.
  perform bdc_field       using 'BDC_CURSOR'
                                'RM07M-WERKS'.
  perform bdc_field       using 'BDC_OKCODE'
                                '/00'.
  perform bdc_field       using 'MKPF-BLDAT'
                                RECORD-BLDAT.
  perform bdc_field       using 'MKPF-BUDAT'
                                RECORD-BUDAT.
  perform bdc_field       using 'RM07M-BWARTWA'
                                '561'.
  perform bdc_field       using 'RM07M-WERKS'
                                RECORD-WERKS.
  perform bdc_field       using 'XFULL'
                                'X'.
  perform bdc_field       using 'RM07M-WVERS2'
                                'X'.
  perform bdc_dynpro      using 'SAPMM07M' '0421'.
  perform bdc_field       using 'BDC_CURSOR'
                                'MSEG-LGORT(01)'.
  perform bdc_field       using 'BDC_OKCODE'
                                '=BU'.
  perform bdc_field       using 'MSEG-MATNR(01)'
                                RECORD-MATNR.
  perform bdc_field       using 'MSEG-ERFMG(01)'
                                RECORD-ERFMG.
  perform bdc_field       using 'MSEG-ERFME(01)'
                                RECORD-ERFME.
  perform bdc_field       using 'MSEG-LGORT(01)'
                                RECORD-LGORT.
  perform bdc_field       using 'MSEG-WERKS(01)'
                                RECORD-WERKS.
  perform bdc_field       using 'DKACB-FMORE'
                                'X'.
  perform bdc_dynpro      using 'SAPLKACB' '0002'.
  perform bdc_field       using 'BDC_OKCODE'
                                '=ENTE'.
  perform bdc_dynpro      using 'SAPLKACB' '0002'.
  perform bdc_field       using 'BDC_OKCODE'
                                '=ENTE'.
  perform bdc_transaction using 'MB1C'.

  ENDLOOP.
ENDFORM.

FORM INITIALIZE_MAT.

  DATA: FILENAME1 LIKE RLGRAP-FILENAME.
  FILENAME1 = FILENAME.

  TYPE-POOLS:truxs.
  DATA:l_raw_data TYPE truxs_t_text_data.


  CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
    EXPORTING
*   I_FIELD_SEPERATOR          =
*   I_LINE_HEADER              =
      i_tab_raw_data             = l_raw_data
      i_filename                 = filename1
    TABLES
      i_tab_converted_data       = record1
* EXCEPTIONS
*   CONVERSION_FAILED          = 1
*   OTHERS                     = 2
            .
  IF sy-subrc <> 0.
      MESSAGE E398(00) WITH '数据在导入内表时出错!'.
  ENDIF.

  LOOP AT RECORD1.

  perform bdc_dynpro      using 'SAPMM03M' '0105'.
  perform bdc_field       using 'BDC_CURSOR'
                                'RM03M-WERKS'.
  perform bdc_field       using 'BDC_OKCODE'
                                '/00'.
  perform bdc_field       using 'RM03M-MATNR'
                                RECORD1-MATNR.
  perform bdc_field       using 'RM03M-WERKS'
                                RECORD1-WERKS.
  perform bdc_field       using 'RM03M-LFLAG'
                                'X'.
  perform bdc_dynpro      using 'SAPMM03M' '0195'.
  perform bdc_field       using 'BDC_CURSOR'
                                'RM03M-LGORT(09)'.
  perform bdc_field       using 'BDC_OKCODE'
                                '=BU'.
  perform bdc_field       using 'RM03M-LGORT(09)'
                                RECORD1-LGORT.
  perform bdc_transaction using 'MMSC'.

  ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  BDC_TRANSACTION
*&---------------------------------------------------------------------*
*----------------------------------------------------------------------*
*        Start new transaction according to parameters                 *
*----------------------------------------------------------------------*
FORM BDC_TRANSACTION USING TCODE.
 DATA: L_MSTRING(480).
  DATA: L_SUBRC LIKE SY-SUBRC.

* call transaction using
    REFRESH MESSTAB.
    CALL TRANSACTION TCODE USING BDCDATA
                     MODE   CTUMODE
                     UPDATE CUPDATE
                     MESSAGES INTO MESSTAB.
    L_SUBRC = SY-SUBRC.
    IF SMALLLOG <> 'X'.
      WRITE: / 'CALL_TRANSACTION',
               TCODE,
               'returncode:'(I05),
               L_SUBRC,
               'RECORD:',
               SY-INDEX.
      LOOP AT MESSTAB.
        SELECT SINGLE * FROM T100 WHERE SPRSL = MESSTAB-MSGSPRA
                                  AND   ARBGB = MESSTAB-MSGID
                                  AND   MSGNR = MESSTAB-MSGNR.
        IF SY-SUBRC = 0.
          L_MSTRING = T100-TEXT.
          IF L_MSTRING CS '&1'.
            REPLACE '&1' WITH MESSTAB-MSGV1 INTO L_MSTRING.
            REPLACE '&2' WITH MESSTAB-MSGV2 INTO L_MSTRING.
            REPLACE '&3' WITH MESSTAB-MSGV3 INTO L_MSTRING.
            REPLACE '&4' WITH MESSTAB-MSGV4 INTO L_MSTRING.
          ELSE.
            REPLACE '&' WITH MESSTAB-MSGV1 INTO L_MSTRING.
            REPLACE '&' WITH MESSTAB-MSGV2 INTO L_MSTRING.
            REPLACE '&' WITH MESSTAB-MSGV3 INTO L_MSTRING.
            REPLACE '&' WITH MESSTAB-MSGV4 INTO L_MSTRING.
          ENDIF.
          CONDENSE L_MSTRING.
          WRITE: / MESSTAB-MSGTYP, L_MSTRING(250).
        ELSE.
          WRITE: / MESSTAB.
        ENDIF.
      ENDLOOP.
      SKIP.
    ENDIF.
** Erzeugen fehlermappe ************************************************
    IF L_SUBRC <> 0 AND E_GROUP <> SPACE.
      IF E_GROUP_OPENED = ' '.
        CALL FUNCTION 'BDC_OPEN_GROUP'
             EXPORTING  CLIENT   = SY-MANDT
                        GROUP    = E_GROUP
                        USER     = E_USER
                        KEEP     = E_KEEP
                        HOLDDATE = E_HDATE.
         E_GROUP_OPENED = 'X'.
      ENDIF.
      CALL FUNCTION 'BDC_INSERT'
           EXPORTING TCODE     = TCODE
           TABLES    DYNPROTAB = BDCDATA.
    ENDIF.

  REFRESH BDCDATA.

endform.                    " BDC_TRANSACTION

*----------------------------------------------------------------------*
*        Start new screen                                              *
*----------------------------------------------------------------------*
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
  CLEAR BDCDATA.
  BDCDATA-PROGRAM  = PROGRAM.
  BDCDATA-DYNPRO   = DYNPRO.
  BDCDATA-DYNBEGIN = 'X'.
  APPEND BDCDATA.
ENDFORM.


*----------------------------------------------------------------------*
*        Insert field                                                  *
*----------------------------------------------------------------------*
FORM BDC_FIELD USING FNAM FVAL.
  IF FVAL <> NODATA.
    CLEAR BDCDATA.
    BDCDATA-FNAM = FNAM.
    BDCDATA-FVAL = FVAL.
    APPEND BDCDATA.
  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  CLOSE_GROUP
*&---------------------------------------------------------------------*
form CLOSE_GROUP.
IF E_GROUP_OPENED = 'X'.
      CALL FUNCTION 'BDC_CLOSE_GROUP'.
      WRITE: /.
      WRITE: /(30) 'Fehlermappe wurde erzeugt'(I06).
    ENDIF.
endform.                    " CLOSE_GROUP