SAP中利用BDC计划订单批量转PR 例程

       在某项目中,根据客户需求,需要把计划订单批量转化为PR,本程序是利用BDC方式实现的.

*&---------------------------------------------------------------------*
*& Report  ZMM_PLO_TO_PR
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

 

REPORT  ZMM_PLO_TO_PR.

TYPES:BEGIN OF TY_ITAB,
      PLNUM type plaf-PLNUM,
      GSMNG(13),
      END OF TY_ITAB.
DATA:ITAB TYPE TABLE OF TY_ITAB WITH HEADER LINE.

TYPES:BEGIN OF TY_RESULT,
      PLNUM type plaf-PLNUM,
      GSMNG(13),
      MESSAGE(100),
      END OF TY_RESULT.
DATA:IT_RESULT TYPE TABLE OF TY_RESULT with header line.
data: g_info type string.

* BDC 表定义.
DATA:it_bdc LIKE bdcdata OCCURS 0 WITH HEADER LINE.
DATA:it_messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE.

selection-screen begin of block shi with frame title text-001.
parameters:p_file like rlgrap-filename memory id zy1 obligatory.
selection-screen end of block shi.

at selection-screen on value-request for p_file.
  CALL FUNCTION 'F4_FILENAME'
    EXPORTING
      program_name  = syst-cprog
      dynpro_number = syst-dynnr
    IMPORTING
      file_name     = p_file.

START-OF-SELECTION.
  PERFORM FRM_GETDATA.
  PERFORM FRM_BDC.
  PERFORM FRM_DOWNLOAD.
*&---------------------------------------------------------------------*
*&      Form  FRM_GETDATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_GETDATA .
 CALL FUNCTION 'WS_UPLOAD'
   EXPORTING
*   CODEPAGE                      = ' '
     FILENAME                      = P_FILE
     FILETYPE                      = 'DAT'
*   HEADLEN                       = ' '
*   LINE_EXIT                     = ' '
*   TRUNCLEN                      = ' '
*   USER_FORM                     = ' '
*   USER_PROG                     = ' '
*   DAT_D_FORMAT                  = ' '
* IMPORTING
*   FILELENGTH                    =
    TABLES
      DATA_TAB                      = ITAB
* EXCEPTIONS
*   CONVERSION_ERROR              = 1
*   FILE_OPEN_ERROR               = 2
*   FILE_READ_ERROR               = 3
*   INVALID_TYPE                  = 4
*   NO_BATCH                      = 5
*   UNKNOWN_ERROR                 = 6
*   INVALID_TABLE_WIDTH           = 7
*   GUI_REFUSE_FILETRANSFER       = 8
*   CUSTOMER_ERROR                = 9
*   OTHERS                        = 10
            .
  IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

ENDFORM.                    " FRM_GETDATA
*&---------------------------------------------------------------------*
*&      Form  FRM_BDC
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_BDC .
LOOP AT ITAB.
    MOVE-corresponding itab to it_result.
    PERFORM frm_fill_bdc_tab USING :
       'X'  'SAPMM61P'  '0200',
       ' '  'BDC_OKCODE'  '/00',
       ' '  'RM61P-PLNUM' ITAB-PLNUM.
    PERFORM frm_fill_bdc_tab USING :
       'X'  'SAPLM61H'  '0210',
       ' '  'BDC_OKCODE'  '=HZBA',
       ' '  'MDBA-MENGE' ITAB-GSMNG.
    REFRESH IT_MESSTAB . CLEAR IT_MESSTAB.

    CALL TRANSACTION 'MD14'
       USING         IT_BDC
       MODE          'N'
       UPDATE        'S'
       MESSAGES      INTO IT_MESSTAB.

    IF SY-SUBRC <> 0 .
      READ TABLE IT_MESSTAB WITH KEY MSGTYP = 'E'.
      IF SY-SUBRC = 0.
      ELSE.
        READ TABLE IT_MESSTAB INDEX 1.
      ENDIF.
      call function 'MESSAGE_TEXT_BUILD'
        exporting
          msgid               = IT_MESSTAB-MSGID
          msgnr               = IT_MESSTAB-MSGNR
          msgv1               = IT_MESSTAB-msgv1
          msgv2               = IT_MESSTAB-msgv2
          msgv3               = IT_MESSTAB-msgv3
          msgv4               = IT_MESSTAB-msgv4
        importing
          message_text_output = g_info.
       IT_RESULT-MESSAGE = G_INFO.
    ELSE.
      READ TABLE IT_MESSTAB WITH KEY MSGTYP = 'S'
                                     MSGNR = '039'.
      call function 'MESSAGE_TEXT_BUILD'
        exporting
          msgid               = IT_MESSTAB-MSGID
          msgnr               = IT_MESSTAB-MSGNR
          msgv1               = IT_MESSTAB-msgv1
          msgv2               = IT_MESSTAB-msgv2
          msgv3               = IT_MESSTAB-msgv3
          msgv4               = IT_MESSTAB-msgv4
        importing
          message_text_output = g_info.
       IT_RESULT-MESSAGE = G_INFO.

    ENDIF.
    APPEND  IT_RESULT.
    CLEAR it_RESULT.
    CLEAR ITAB.
    REFRESH IT_BDC.
    CLEAR IT_BDC.
    CLEAR G_INFO.
ENDLOOP.

ENDFORM.                    " FRM_BDC

*&---------------------------------------------------------------------*
*&      Form  FRM_FILL_BDC_TAB

*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->PV_FLAG    text
*      -->PV_VAR1    text
*      -->PV_VAR2    text
*----------------------------------------------------------------------*
FORM frm_fill_bdc_tab USING pv_flag
                            pv_var1
                            pv_var2.
  CLEAR it_bdc.

  IF pv_flag = 'X'.
    it_bdc-dynbegin = 'X'.
    it_bdc-program  = pv_var1.
    it_bdc-dynpro   = pv_var2.
  ELSE.
    it_bdc-fnam     = pv_var1.
    it_bdc-fval     = pv_var2.
  ENDIF.

  APPEND it_bdc.

ENDFORM.           "FRM_FILL_BDC_TAB
*&---------------------------------------------------------------------*
*&      Form  FRM_DOWNLOAD
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_DOWNLOAD .
CALL FUNCTION 'GUI_DOWNLOAD'
   EXPORTING
*    BIN_FILESIZE                    =
     FILENAME                        = 'C:/结果表.TXT'
     FILETYPE                        = 'ASC'
     APPEND                          = ' '
*    WRITE_FIELD_SEPARATOR           = ' '
*    HEADER                          = '00'
*    TRUNC_TRAILING_BLANKS           = ' '
*    WRITE_LF                        = 'X'
*    COL_SELECT                      = ' '
*    COL_SELECT_MASK                 = ' '
*    DAT_MODE                        = ' '
*    CONFIRM_OVERWRITE               = ' '
*    NO_AUTH_CHECK                   = ' '
*    CODEPAGE                        = ' '
*    IGNORE_CERR                     = ABAP_TRUE
*    REPLACEMENT                     = '#'
*    WRITE_BOM                       = ' '
*    TRUNC_TRAILING_BLANKS_EOL       = 'X'
*    WK1_N_FORMAT                    = ' '
*    WK1_N_SIZE                      = ' '
*    WK1_T_FORMAT                    = ' '
*    WK1_T_SIZE                      = ' '
*  IMPORTING
*    FILELENGTH                      =
   TABLES
     DATA_TAB                        = IT_result
*    FIELDNAMES                      =
*  EXCEPTIONS
*    FILE_WRITE_ERROR                = 1
*    NO_BATCH                        = 2
*    GUI_REFUSE_FILETRANSFER         = 3
*    INVALID_TYPE                    = 4
*    NO_AUTHORITY                    = 5
*    UNKNOWN_ERROR                   = 6
*    HEADER_NOT_ALLOWED              = 7
*    SEPARATOR_NOT_ALLOWED           = 8
*    FILESIZE_NOT_ALLOWED            = 9
*    HEADER_TOO_LONG                 = 10
*    DP_ERROR_CREATE                 = 11
*    DP_ERROR_SEND                   = 12
*    DP_ERROR_WRITE                  = 13
*    UNKNOWN_DP_ERROR                = 14
*    ACCESS_DENIED                   = 15
*    DP_OUT_OF_MEMORY                = 16
*    DISK_FULL                       = 17
*    DP_TIMEOUT                      = 18
*    FILE_NOT_FOUND                  = 19
*    DATAPROVIDER_EXCEPTION          = 20
*    CONTROL_FLUSH_ERROR             = 21
*    OTHERS                          = 22
           .
 IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
WRITE:'数据成功保存到C盘根目录下，请查看！'.

ENDFORM.                    " FRM_DOWNLOAD