BDC MMSC
data begin of bdctab occurs 100 .
include structure bdcdata ."Batch input: New table field
include structure bdcdata ."Batch input: New table field
data end of bdctab.
data: begin of messtab occurs 0.
include structure bdcmsgcoll.
data end of messtab.
data: begin of messtab occurs 0.
include structure bdcmsgcoll.
data end of messtab.
perform. bdc_dynpro using 'SAPMM03M' '0105'.
perform. bdc_field using 'BDC_CURSOR'
'RM03M-NFLAG'.
perform. bdc_field using 'BDC_OKCODE'
'/00'.
perform. bdc_field using 'RM03M-MATNR'
matnr_bdc.
perform. bdc_field using 'RM03M-WERKS'
plant_bdc.
perform. bdc_field using 'RM03M-LFLAG'
''.
perform. bdc_field using 'RM03M-NFLAG'
'X'.
perform. bdc_dynpro using 'SAPMM03M' '0195'.
perform. bdc_field using 'RM03M-LGORT(02)'
stoloc_bdc.
perform. bdc_field using 'BDC_OKCODE'
'=BU'.
perform. bdc_field using 'BDC_CURSOR'
'RM03M-NFLAG'.
perform. bdc_field using 'BDC_OKCODE'
'/00'.
perform. bdc_field using 'RM03M-MATNR'
matnr_bdc.
perform. bdc_field using 'RM03M-WERKS'
plant_bdc.
perform. bdc_field using 'RM03M-LFLAG'
''.
perform. bdc_field using 'RM03M-NFLAG'
'X'.
perform. bdc_dynpro using 'SAPMM03M' '0195'.
perform. bdc_field using 'RM03M-LGORT(02)'
stoloc_bdc.
perform. bdc_field using 'BDC_OKCODE'
'=BU'.
call transaction 'MMSC' using bdctab
mode 'N'. "UPDATE 'S'
clear bdctab.refresh bdctab.
mode 'N'. "UPDATE 'S'
clear bdctab.refresh bdctab.
*---------------------------------------------------------------------*
* FORM. BDC_DYNPRO *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
* --> PROGRAM *
* --> DYNPRO *
*---------------------------------------------------------------------*
form. bdc_dynpro using program dynpro.
clear bdctab.
bdctab-program = program.
bdctab-dynpro = dynpro.
bdctab-dynbegin = 'X'.
append bdctab.
endform.
***********************************
*form. bdc_field
************************************
form. bdc_field using fnam fval.
clear bdctab.
bdctab-fnam = fnam.
bdctab-fval = fval.
shift bdctab-fval left deleting leading ' ' .
append bdctab.
endform.
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/15117617/viewspace-631396/ ，如需转载，请注明出处，否则将追究法律责任。
请登录后发表评论
登录
全部评论
