RMA4

最新推荐文章于 2024-11-08 22:03:17 发布

转载最新推荐文章于 2024-11-08 22:03:17 发布 · 131 阅读

*----------------------------------------------------------------------*
*   INCLUDE ZRFC_SD_PCE_0096_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_PROCESS TABLES IT_BDC1. " FOR DN AND PGi

PERFORM. BDC_DYNPRO   TABLES IT_BDC1:    USING 'SAPMV50A' '4001'.
PERFORM. BDC_FIELD    TABLES IT_BDC1:    USING 'BDC_CURSOR'
                                             'LIKP-VSTEL'.
PERFORM. BDC_FIELD    TABLES IT_BDC1:    USING 'BDC_OKCODE'
                                             '/00'.
PERFORM. BDC_FIELD    TABLES IT_BDC1:    USING 'LIKP-VSTEL'
                                              ZRMASHIPPING-PLANT.
PERFORM. BDC_FIELD    TABLES IT_BDC1:    USING 'LV50C-DATBI'
                                              '12/31/9999'.
PERFORM. BDC_FIELD    TABLES IT_BDC1:    USING 'LV50C-VBELN'
                                              ZSONO.
PERFORM. BDC_FIELD    TABLES IT_BDC1:    USING 'LIKP-LFART'
                                              ''.

PERFORM. BDC_DYNPRO   TABLES IT_BDC1:    USING 'SAPMV50A' '1000'.
PERFORM. BDC_FIELD    TABLES IT_BDC1:    USING 'BDC_OKCODE'
                                             '=MKAL_T'.

PERFORM. BDC_DYNPRO   TABLES IT_BDC1:    USING 'SAPMV50A' '1000'.
PERFORM. BDC_FIELD    TABLES IT_BDC1:    USING 'BDC_OKCODE'
                                                '=POLO_T'.
PERFORM. BDC_FIELD    TABLES IT_BDC1:    USING 'BDC_CURSOR'
                                             'LIPS-POSNR(01)'.
PERFORM. BDC_FIELD    TABLES IT_BDC1:    USING 'RV50A-LIPS_SELKZ(01)'
                                             ''.

PERFORM. BDC_DYNPRO   TABLES IT_BDC1:    USING 'SAPMV50A' '1000'.
PERFORM. BDC_FIELD    TABLES IT_BDC1:    USING 'BDC_OKCODE'
                                                '=WABU_T'.
PERFORM. BDC_FIELD    TABLES IT_BDC1:    USING 'LIPS-LGORT(01)'
                                             ZPCECONTROLVALUE-CVALUE2.
* perform. bdc_field    tables it_bdc1:    using 'LIPSD-PIKMG(01)'
*                                             zqty.

ENDFORM.

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

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