PARAMETERS: p_typ TYPE ctu_mode AS LISTBOX OBLIGATORY DEFAULT 'N' VISIBLE LENGTH 20,
p_upd TYPE ctu_update AS LISTBOX OBLIGATORY DEFAULT 'S' VISIBLE LENGTH 20,
* p_racom TYPE c AS CHECKBOX,
p_werks TYPE mard-werks.
DATA: lt_bdcdata TYPE TABLE OF bdcdata, "全局变量
lt_bdcmsg TYPE TABLE OF bdcmsgcoll WITH HEADER LINE,
l_opt TYPE ctu_params.
DATA:bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE.
DATA:lt_bdcmsgcoll TYPE TABLE OF bdcmsgcoll WITH HEADER LINE.
DATA:lt_bapireturn TYPE TABLE OF bapiret2 WITH HEADER LINE.
REFRESH: bdcdata[].
CLEAR:bdcdata.
"初始屏幕
PERFORM bdc_dynpro USING 'SAPMWBE3' '0101'.
PERFORM bdc_field USING 'BDC_OKCODE' '=ENTR'.
PERFORM bdc_field USING 'WR02D-LOCNR' p_werks.
PERFORM bdc_field USING 'WR02D-BETRP' 'Z002'.
PERFORM bdc_field USING 'WR02D-REF_WKFIL' 'DS99'.
"进入后点保存
PERFORM bdc_dynpro USING 'SAPMWBE3' '0401'.
PERFORM bdc_field USING 'BDC_OKCODE' '=UPDA'.
PERFORM bdc_field USING 'WR02D-SITE_BP' p_werks.
PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPMWBE3 5100SUB1'.
PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPMWBE3 2100ORGA'.
PERFORM bdc_field USING 'T001K-BUKRS' '2000'.
PERFORM bdc_field USING 'T001W-EKORG' '3000'.
PERFORM bdc_field USING 'T001W-VKORG' '2000'.
PERFORM bdc_field USING 'T001W-VTWEG' '20'.
PERFORM bdc_field USING 'T001W-SPART' '10'.
"弹窗点否
PERFORM bdc_dynpro USING 'SAPLSPO1' '0100'.
PERFORM bdc_field USING 'BDC_OKCODE' '=NO'.
PERFORM bdc_dynpro USING 'SAPLPLANT_DISPLAY_CUSTOMIZING' '1000'.
PERFORM bdc_field USING 'BDC_OKCODE' '=BSTV'.
PERFORM bdc_dynpro USING 'SAPLSPO2' '0301'.
PERFORM bdc_field USING 'BDC_OKCODE' '=OPT1'.
* DATA: l_opt TYPE ctu_params.
.
l_opt-racommit = 'X'.
l_opt-dismode = p_typ.
l_opt-updmode = p_upd.
CALL TRANSACTION 'WB01' USING bdcdata[] "传入的BDC数据
* MODE p_typ
* UPDATE p_upd
OPTIONS FROM l_opt
* MODE 'N'
* UPDATE 'S'
MESSAGES INTO lt_bdcmsgcoll[]. "将结果放在LT_BDCMSGCOLL[]输出
CALL FUNCTION 'CONVERT_BDCMSGCOLL_TO_BAPIRET2'
TABLES
imt_bdcmsgcoll = lt_bdcmsgcoll
ext_return = lt_bapireturn.
READ TABLE lt_bapireturn WITH KEY type = 'E'.
IF sy-subrc NE 0.
* gs_data-msgtp = 'S'.
* IF gs_data-msg IS INITIAL.
* gs_data-msg = '工厂创建成功'.
* ELSE .
* CONCATENATE gs_data-msg '工厂创建成功' INTO gs_data-msg.
* ENDIF.
ELSE.
LOOP AT lt_bapireturn WHERE type = 'E'.
* gs_data-msgtp = 'E'.
* CONCATENATE gs_data-msg lt_bapireturn-message INTO gs_data-msg SEPARATED BY '/'.
ENDLOOP.
ENDIF.
*----------------------------------------------------------------------*
* Start new screen *
*----------------------------------------------------------------------*
FORM bdc_dynpro USING program dynpro.
DATA: ls_bdc TYPE bdcdata.
ls_bdc-program = program.
ls_bdc-dynpro = dynpro.
ls_bdc-dynbegin = 'X'.
APPEND ls_bdc TO bdcdata.
ENDFORM.
*----------------------------------------------------------------------*
* Insert field *
*----------------------------------------------------------------------*
FORM bdc_field USING fnam fval.
DATA: ls_bdc TYPE bdcdata.
ls_bdc-fnam = fnam.
ls_bdc-fval = fval.
CONDENSE ls_bdc-fval .
APPEND ls_bdc TO bdcdata.
ENDFORM.
