BDC CO40
data: bdcdata like bdcdata occurs 100 with header line.
data: begin of it_msg occurs 1000.
include structure bdcmsgcoll.
data: end of it_msg.
perform. bdc_dynpro using 'SAPLCOKO1' '0150'.
perform. bdc_field using 'BDC_CURSOR'
'AFPOD-PLNUM'.
perform. bdc_field using 'BDC_OKCODE' '/00'.
perform. bdc_field using 'AFPOD-PLNUM' tab2-plnum.
perform. bdc_field using 'AUFPAR-PP_AUFART'
tab2-paart.
perform. bdc_dynpro using 'SAPLCOKO1' '0115'.
perform. bdc_field using 'BDC_OKCODE' '=STAK'.
perform. bdc_field using 'BDC_CURSOR' 'CAUFVD-GAMNG'.
perform. bdc_field using 'CAUFVD-GSTRP' tab2-text02.
perform. bdc_field using 'CAUFVD-GLTRP' tab2-text04.
perform. bdc_field using 'CAUFVD-TERKZ' '5'.
perform. bdc_dynpro using 'SAPLCOKO1' '0131'.
perform. bdc_field using 'BDC_OKCODE' '=ENT1'.
perform. bdc_field using 'BDC_CURSOR' 'RC62F-PLAUF'.
perform. bdc_field using 'RC62F-NEW_ROUT' 'X'.
perform. bdc_field using 'RC62F-PLAUF' tab2-text02.
perform. bdc_field using 'BDC_CURSOR' 'RC62F-AUFLD'.
perform. bdc_field using 'RC62F-NEW_BOM' 'X'.
perform. bdc_field using 'RC62F-AUFLD' tab2-text02.
perform. bdc_field using 'RC62F-NEW_BOM' 'X'.
perform. bdc_field using 'RC62F-AUFLD' tab2-text02.
perform. bdc_dynpro using 'SAPLCOKO1' '0115'.
perform. bdc_field using 'BDC_OKCODE' '=BU'.
perform. bdc_field using 'BDC_CURSOR' 'CAUFVD-GAMNG'.
perform. bdc_field using 'CAUFVD-GSTRP' tab2-text02.
perform. bdc_field using 'CAUFVD-GLTRP' tab2-text04.
perform. bdc_field using 'CAUFVD-TERKZ' '5'.
perform. bdc_field using 'CAUFVD-GLTRP' tab2-text04.
perform. bdc_field using 'CAUFVD-TERKZ' '5'.
call transaction 'CO40' using bdcdata
mode p_mode
update 'E'
messages into it_msg.
*---------------------------------------------------------------------*
* FORM. BDC_DYNPRO *
*---------------------------------------------------------------------*
form. bdc_dynpro using program dynpr01.
clear bdcdata.
bdcdata-program = program.
bdcdata-dynpro = dynpr01.
bdcdata-dynbegin = 'X'.
append bdcdata.
endform.
* FORM. BDC_DYNPRO *
*---------------------------------------------------------------------*
form. bdc_dynpro using program dynpr01.
clear bdcdata.
bdcdata-program = program.
bdcdata-dynpro = dynpr01.
bdcdata-dynbegin = 'X'.
append bdcdata.
endform.
*---------------------------------------------------------------------*
* FORM. BDC_FIELD *
*---------------------------------------------------------------------*
form. bdc_field using fnam fval.
if fval <> ''.
clear bdcdata.
bdcdata-fnam = fnam.
bdcdata-fval = fval.
append bdcdata.
endif.
endform.
* FORM. BDC_FIELD *
*---------------------------------------------------------------------*
form. bdc_field using fnam fval.
if fval <> ''.
clear bdcdata.
bdcdata-fnam = fnam.
bdcdata-fval = fval.
append bdcdata.
endif.
endform.
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/15117617/viewspace-662036/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
BAPI_PO_CREATE
下一篇：
DELETE PIR的BDC
请登录后发表评论
登录
全部评论
