RMA2

最新推荐文章于 2025-07-13 15:27:00 发布

转载最新推荐文章于 2025-07-13 15:27:00 发布 · 147 阅读

本文提供了一个 SAP BDC (Business Data Cooperation) 的动态程序示例，包括了 BDC 动态程序的初始化、字段设置及处理过程等关键步骤。通过这些步骤，演示了如何使用 SAP BDC 进行数据录入。

*----------------------------------------------------------------------*
* INCLUDE ZRFC_SD_PCE_0095_F01 *
*----------------------------------------------------------------------*

*---------------------------------------------------------------------*
*       FORM. bdc_dynpro                                               *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
* --&gt P_BDC                                                         *
* --&gt P_PROGRAM                                                     *
* --&gt P_SCREEN                                                      *
*---------------------------------------------------------------------*
FORM. BDC_DYNPRO TABLES P_BDC STRUCTURE BDCDATA USING P_PROGRAM
P_SCREEN.
CLEAR P_BDC.
P_BDC-PROGRAM = P_PROGRAM.
P_BDC-DYNPRO = P_SCREEN.
P_BDC-DYNBEGIN = 'X'.
APPEND P_BDC.
ENDFORM.
*-----------------------------------------------------------------
*       FORM. BDC_FIELD
*-----------------------------------------------------------------
*       ........
*-----------------------------------------------------------------
* --&gt P_BDC
* --&gt P_NAME
* --&gt P_VALUE
*-----------------------------------------------------------------
FORM. BDC_FIELD TABLES P_BDC STRUCTURE BDCDATA USING P_NAME P_VALUE
.
CLEAR P_BDC.
P_BDC-FNAM = P_NAME.
P_BDC-FVAL = P_VALUE.
APPEND P_BDC.

ENDFORM.

*---------------------------------------------------------------------*
* FORM. bdc_process *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM. BDC_PROCESS1 TABLES IT_BDC1.

PERFORM. BDC_DYNPRO TABLES IT_BDC1: USING 'SAPLIM02' '0100'.
PERFORM. BDC_FIELD TABLES IT_BDC1: USING 'BDC_OKCODE'
'=NEWL'.

PERFORM. BDC_DYNPRO TABLES IT_BDC1: USING 'SAPLIM02' '0100'.
PERFORM. BDC_FIELD TABLES IT_BDC1: USING 'BDC_CURSOR'
'V_T399A_SD-VAWRK(01)'.
PERFORM. BDC_FIELD TABLES IT_BDC1: USING 'BDC_OKCODE'
'/00'.

PERFORM. BDC_FIELD TABLES IT_BDC1: USING 'V_T399A_SD-IWERK(01)'
                                    ZPCECONTROLVALUE-WERKS.
PERFORM. BDC_FIELD TABLES IT_BDC1: USING 'V_T399A_SD-VAPLZ(01)'
                                    ZPCECONTROLVALUE-CVALUE.
PERFORM. BDC_FIELD TABLES IT_BDC1: USING 'V_T399A_SD-VAWRK(01)'
                                    ZPCECONTROLVALUE-WERKS.
PERFORM. BDC_FIELD TABLES IT_BDC1: USING 'SERVPROD(01)'
                                    ZMATNR.
PERFORM. BDC_FIELD TABLES IT_BDC1: USING 'V_T399A_SD-STDNR(01)'
                                    ZPCECONTROLVALUE-CVALUE1.
PERFORM. BDC_FIELD TABLES IT_BDC1: USING 'V_T399A_SD-STDAL(01)'
                                    ZPCECONTROLVALUE-CVALUE2.
PERFORM. BDC_FIELD TABLES IT_BDC1: USING 'V_T399A_SD-GSBER(01)'
                              ZPCECONTROLVALUE-INDICATOR1_MEMO.

PERFORM. BDC_DYNPRO TABLES IT_BDC1: USING 'SAPLIM02' '0100'.
PERFORM. BDC_FIELD TABLES IT_BDC1: USING 'BDC_CURSOR'
'V_T399A_SD-IWERK(02)'.
PERFORM. BDC_FIELD TABLES IT_BDC1: USING 'BDC_OKCODE'
'=SAVE'.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/14397246/viewspace-665926/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/14397246/viewspace-665926/