*----------------------------------------------------------------------*
* INCLUDE ZRFC_SD_PCE_0096_F01 *
*----------------------------------------------------------------------*
*---------------------------------------------------------------------*
* FORM. bdc_dynpro *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
* --> P_BDC *
* --> P_PROGRAM *
* --> 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
*-----------------------------------------------------------------
* ........
*-----------------------------------------------------------------
* --> P_BDC
* --> P_NAME
* --> 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博客 ” ，链接：https://blog.itpub.net/14397246/viewspace-665933/ ，如需转载，请注明出处，否则将追究法律责任。
