ALV Call Transaction VK13 Using BDC

最新推荐文章于 2024-12-17 02:19:49 发布

Vince Chang

最新推荐文章于 2024-12-17 02:19:49 发布

阅读量2.2k

点赞数

CC 4.0 BY-SA版权

分类专栏：日志 ABAP开发文章标签： command date

本文链接：https://blog.youkuaiyun.com/zeewjj/article/details/7965999

ABAP开发同时被 2 个专栏收录

94 篇文章

订阅专栏

日志

70 篇文章

订阅专栏

本文详细介绍了如何使用BDC_DYNPRO和BDC_FIELD进行动态程序处理，包括读取表格数据、执行事务操作及字段填充等关键步骤。适合初学者快速上手。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

DATA: BDCDATA TYPE TABLE OF BDCDATA WITH HEADER LINE.

FORM F_COMMAND USING I_UCOMM TYPE SY-UCOMM

               I_SELFIELD TYPE SLIS_SELFIELD.
  DATA: BEGIN OF MESSTAB OCCURS 10.
          INCLUDE STRUCTURE BDCMSGCOLL.
  DATA: END OF MESSTAB.
  CASE I_UCOMM.
    WHEN '&IC1'.
      READ TABLE TD_OUT INTO TH_OUT INDEX I_SELFIELD-TABINDEX.
      IF TH_OUT IS NOT INITIAL.
        PERFORM BDC_DYNPRO      USING 'SAPMV13A' '0100'.
        PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                      'RV13A-KSCHL'.
        PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                      '/00'.
        PERFORM BDC_FIELD       USING 'RV13A-KSCHL'
                                      'ZPR0'.
        PERFORM BDC_DYNPRO      USING 'SAPLV14A' '0100'.
        PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                      'RV130-SELKZ(01)'.
        PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                      '=WEIT'.
        PERFORM BDC_DYNPRO      USING 'RV13A902' '1000'.
        PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                      'F001'.
        PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                      '=ONLI'.
        PERFORM BDC_FIELD       USING 'F001'
                                      TH_OUT-VKORG.
        PERFORM BDC_FIELD       USING 'F002'
                                      TH_OUT-VTWEG.
        PERFORM BDC_FIELD       USING 'F003'
                                      TH_OUT-KUNNR.
        PERFORM BDC_FIELD       USING 'F004-LOW'
                                      TH_OUT-MATNR.
        PERFORM BDC_FIELD       USING 'SEL_DATE'
                                      TH_OUT-EDDAT.

        CALL TRANSACTION 'VK13' USING BDCDATA
                            MODE 'E'
                            UPDATE 'A'
                            MESSAGES INTO MESSTAB.

      ENDIF.
  ENDCASE.

ENDFORM.                    "F_COMMAND

*&---------------------------------------------------------------------*
*&      Form  BDC_DYNPRO
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->PROGRAM    text
*      -->DYNPRO     text
*----------------------------------------------------------------------*
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
  CLEAR BDCDATA.
  BDCDATA-PROGRAM  = PROGRAM.
  BDCDATA-DYNPRO   = DYNPRO.
  BDCDATA-DYNBEGIN = 'X'.
  APPEND BDCDATA.
  CLEAR BDCDATA.
ENDFORM.                    "BDC_DYNPRO

*----------------------------------------------------------------------*
*        Insert field                                                  *
*----------------------------------------------------------------------*
FORM BDC_FIELD USING FNAM FVAL.
  CLEAR BDCDATA.
  BDCDATA-FNAM = FNAM.
  BDCDATA-FVAL = FVAL.
  APPEND BDCDATA.
  CLEAR BDCDATA.
ENDFORM.                    "BDC_FIELD