快速开发之BDC模板程序

最新推荐文章于 2023-02-08 16:14:36 发布

trassion

最新推荐文章于 2023-02-08 16:14:36 发布

阅读量1.8k

点赞数

分类专栏： SAP-ABAP 文章标签： excel structure table file report parameters

本文链接：https://blog.csdn.net/Trassion/article/details/7860073

版权

SAP-ABAP 专栏收录该内容

76 篇文章 5 订阅

订阅专栏

BDC的调试和创建参考用到的TCODE为SHDB，SM35；

以下为网上收索的一个的BDC程序事例，

*&—————————————————————————————–*

*& 程序名   REPORT ZWLP_BDC                                                          *
*&—————————————————————————————–*
*& Author              : WINSON
*& Create Date         : 2012-12-29                                                    *
*& Program Type        :   Enhancement
*& Logical DB          : 「未使用」                                                        *
*& Text Elements                                                                           *
*&   (Titles&Headers) : 「未使用」                                                        *
*&   (Selection Texts) : 「使用」                                                          *
*&   (Text symbols)    : 「使用」                                                          *
*& GUI Status          : 「标准」                                                          *
*& Variants            : 「未使用」                                                        *
*& Message Class       :                                                                   *
*& Description         : 物料主数据批导入                                                      *
*& Modifications       :                                                                   *
*&   Date        Programmer Description                                                   *
*&—————————————————————————————–*

REPORT ZWLP_BDC.
TABLES:MARA.
*&*************************类型定义**************************************************
TYPES: BEGIN OF LINE,
         MAKTX LIKE MAKT-MAKTX,”物料描述
         MEINS LIKE MARA-MEINS,”单位
         MATKL LIKE MARA-MATKL,”物料组
       END OF LINE.
*************************************************************************************
*&——————— 程序中使用的内表和工作区定义———————————-*

DATA BEGIN OF IT_BDC OCCURS 0.”IT_BDC是定义了内表，该内表就是存放BDC的操作步骤
        INCLUDE STRUCTURE BDCDATA.
DATA END OF IT_BDC.
DATA:   MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.”MESSTAB中保存的是执行完BDC系统的返回信息。
DATA:   WA_MESSTAB LIKE BDCMSGCOLL,
        LC_INFORECORD(10) TYPE C.
DATA:   LC_LINE TYPE I.
DATA: BEGIN OF WA_RE_VAL,
        ZZBID(18)   TYPE C,
        STATUS(10) TYPE C,
        TEXT(100)   TYPE C,
      END OF WA_RE_VAL.

DATA: WA_TAB TYPE LINE,
IT_TAB TYPE TABLE OF LINE.”从外部EXCEL导入的数据存放的内表,内表字段数目要和EXCEL的列数目一样
**************************************************************************************

*———————- 全局变量 ————————————————*
**************************************************************************************

*&—————– ————————————————————————-*
* 选择屏幕
*&——————————————————————————————*

SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-001.
PARAMETERS: P_FILE LIKE RLGRAP-FILENAME OBLIGATORY.

SELECTION-SCREEN END OF BLOCK BLK1.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
CALL FUNCTION ‘WS_FILENAME_GET’                           “#EC *
    EXPORTING
      DEF_PATH         = P_FILE
      MASK             = ‘,*.xls,*.XLS.’
      MODE             = ‘0′
      TITLE            = TEXT-H01
    IMPORTING
      FILENAME         = P_FILE
    EXCEPTIONS
      INV_WINSYS       = 1
      NO_BATCH         = 2
      SELECTION_CANCEL = 3
      SELECTION_ERROR = 4
      OTHERS           = 5.
CHECK SY-SUBRC = 0 AND NOT P_FILE IS INITIAL.

*———————————————————————-*
* AT SELECTION-SCREEN
*———————————————————————-*
START-OF-SELECTION.
PERFORM FRM_GETDAT_EXCEL .”把EXCEL里面的数据取出来放到内表IT_TAB里面
PERFORM FRM_BDC_CALL. “调用BDC子程序

END-OF-SELECTION.
*&———————————————————————*
*& Form FRM_BDC_CALL
*&———————————————————————*
* 循环的把EXCEL里面的数据放到系统里面
*———————————————————————-*
FORM FRM_BDC_CALL.

LOOP AT IT_TAB INTO WA_TAB.

PERFORM FRM_BDC_MM01.”MM01的具体BDC执行过程

ENDLOOP.
ENDFORM. “FRM_BDC_CALL

*&———————————————————————*
*&      Form FRM_GETDAT_EXCEL
*&———————————————————————*
*       把EXCEL里面的数据取出来放到内表IT_TAB里面
*———————————————————————-*
FORM FRM_GETDAT_EXCEL .
FIELD-SYMBOLS: <F1>.
DATA: L_I_XLSTMP TYPE ALSMEX_TABLINE OCCURS 0 WITH HEADER LINE.
DATA: L_COL TYPE I.
CLEAR L_I_XLSTMP.
REFRESH L_I_XLSTMP.
CALL FUNCTION ‘ALSM_EXCEL_TO_INTERNAL_TABLE’
    EXPORTING
      FILENAME                = P_FILE
      I_BEGIN_COL             = 1     “从哪一列开始
      I_BEGIN_ROW             = 2     “从哪一行开始
      I_END_COL               = 4    “从哪一列结束
      I_END_ROW               = 1000 “从哪一行结束
    TABLES
      INTERN                  = L_I_XLSTMP
    EXCEPTIONS
      INCONSISTENT_PARAMETERS = 1
      UPLOAD_OLE              = 2
      OTHERS                  = 3.
IF SY-SUBRC <> 0 .
    MESSAGE ‘导入文件失败。’ TYPE ‘E’.
ENDIF.
*-转换内表
REFRESH: IT_TAB.
CLEAR: IT_TAB.
SORT L_I_XLSTMP BY ROW COL.
LOOP AT L_I_XLSTMP.
    L_COL = L_I_XLSTMP-COL.
    ASSIGN COMPONENT L_COL OF STRUCTURE WA_TAB TO <F1>.
    <F1> = L_I_XLSTMP-VALUE.
    AT END OF ROW.
      APPEND WA_TAB TO IT_TAB.
      CLEAR WA_TAB.
    ENDAT.
ENDLOOP.
ENDFORM.                    ” FRM_GETDAT_EXCEL

*&———————————————————————*
*& Form FRM_BDC_MM01
*&———————————————————————*
* MM01的BDC
*———————————————————————-*
FORM FRM_BDC_MM01.
DATA: L_MODE TYPE C VALUE ‘N’.”BDC执行的模式

PERFORM BDC_DYNPRO      USING ‘SAPLMGMM’ ‘0060′.
PERFORM BDC_FIELD       USING ‘BDC_CURSOR’
                                ‘RMMG1-MATNR’.
PERFORM BDC_FIELD       USING ‘BDC_OKCODE’
                                ‘/00′.
PERFORM BDC_FIELD       USING ‘RMMG1-MBRSH’
                                ‘M’.
PERFORM BDC_FIELD       USING ‘RMMG1-MTART’
                                ‘ROH’.
PERFORM BDC_DYNPRO      USING ‘SAPLMGMM’ ‘0070′.
PERFORM BDC_FIELD       USING ‘BDC_CURSOR’
                                ‘MSICHTAUSW-DYTXT(01)’.
PERFORM BDC_FIELD       USING ‘BDC_OKCODE’
                                ‘=ENTR’.
PERFORM BDC_FIELD       USING ‘MSICHTAUSW-KZSEL(01)’
                                ‘X’.
PERFORM BDC_DYNPRO      USING ‘SAPLMGMM’ ‘4004′.
PERFORM BDC_FIELD       USING ‘BDC_OKCODE’
                                ‘=BU’.
PERFORM BDC_FIELD       USING ‘MAKT-MAKTX’
                                WA_TAB-MAKTX.
PERFORM BDC_FIELD       USING ‘BDC_CURSOR’
                                ‘MARA-MATKL’.
PERFORM BDC_FIELD       USING ‘MARA-MEINS’
                                WA_TAB-MEINS.
PERFORM BDC_FIELD       USING ‘MARA-MATKL’
                                WA_TAB-MATKL.
CALL TRANSACTION ‘MM01′ USING IT_BDC MODE L_MODE UPDATE ‘S’ MESSAGES INTO MESSTAB.
IF SY-SUBRC = 0.
    COMMIT WORK.
*读信息记录编号
    READ TABLE MESSTAB INTO WA_MESSTAB WITH KEY MSGTYP = ‘S’.
    MESSAGE ID     WA_MESSTAB-MSGID
           TYPE   ‘S’
           NUMBER WA_MESSTAB-MSGNR
          INTO   WA_RE_VAL-TEXT
           WITH   WA_MESSTAB-MSGV1
                  WA_MESSTAB-MSGV2
                  WA_MESSTAB-MSGV3
                  WA_MESSTAB-MSGV4.
    WRITE:/ WA_RE_VAL-TEXT.
ELSE.
*执行失败，写失败原因
    ROLLBACK WORK.
    READ TABLE MESSTAB INTO WA_MESSTAB WITH KEY MSGTYP = ‘E’.
    MESSAGE ID     WA_MESSTAB-MSGID
            TYPE   ‘E’
            NUMBER WA_MESSTAB-MSGNR
          INTO   WA_RE_VAL-TEXT
            WITH   WA_MESSTAB-MSGV1
                   WA_MESSTAB-MSGV2
                   WA_MESSTAB-MSGV3
                   WA_MESSTAB-MSGV4.
    WRITE:/ WA_RE_VAL-TEXT.
ENDIF.

REFRESH MESSTAB.
CLEAR: WA_MESSTAB,WA_RE_VAL,IT_BDC,IT_BDC[].
ENDFORM.                    “FRM_BDC_ME11
*&———————————————————————*
*&      Form BDC_DYNPRO
*&———————————————————————*
*       填写程序与屏幕
*———————————————————————-*
*     –> PR_PROGRAM     程序
*     –> PR_DYNPRO      屏幕
*———————————————————————-*
FORM BDC_DYNPRO USING PR_PROGRAM PR_DYNPRO.
CLEAR IT_BDC.
IT_BDC-PROGRAM = PR_PROGRAM.
IT_BDC-DYNPRO   = PR_DYNPRO.
IT_BDC-DYNBEGIN = ‘X’.
APPEND IT_BDC.
ENDFORM.                               ” BDC_DYNPRO
*&———————————————————————*
*&      Form BDC_FIELD
*&———————————————————————*
*       填写字段与值
*———————————————————————-*
*     –> PR_FNAM     字段
*     –> PR_FVAL     值
*———————————————————————-*
FORM BDC_FIELD USING PR_FNAM PR_FVAL.
CLEAR IT_BDC.
IT_BDC-FNAM = PR_FNAM.
IT_BDC-FVAL = PR_FVAL.
APPEND IT_BDC.
ENDFORM.                    “FRM_BDC_FIELD