F110 参数保存和重新运行录屏

Posted 2020-09-20 Rainystuday

**初始界面回车
PERFORM frm_dynpro USING ‘SAPF110V‘ ‘0200‘ ‘X‘.
PERFORM frm_dynpro USING ‘‘ ‘BDC_CURSOR‘ ‘F110V-LAUFD‘.
PERFORM frm_dynpro USING ‘‘ ‘BDC_OKCODE‘ ‘/00‘.
PERFORM frm_dynpro USING ‘‘ ‘F110V-LAUFD‘ gw_f110-laufd."record-LAUFD_001.
PERFORM frm_dynpro USING ‘‘ ‘F110V-LAUFI‘ gw_f110-laufi."record-LAUFI_002.
**点击参数视图
PERFORM frm_dynpro USING ‘SAPF110V‘ ‘0200‘ ‘X‘.
PERFORM frm_dynpro USING ‘‘ ‘BDC_CURSOR‘ ‘F110V-LAUFD‘.
PERFORM frm_dynpro USING ‘‘ ‘BDC_OKCODE‘ ‘=PAR‘.
**填写运行截至日期
PERFORM frm_dynpro USING ‘SAPF110V‘ ‘0200‘ ‘X‘.
PERFORM frm_dynpro USING ‘‘ ‘BDC_CURSOR‘ ‘F110C-GRDAT‘.
PERFORM frm_dynpro USING ‘‘ ‘BDC_OKCODE‘ ‘/00‘.
PERFORM frm_dynpro USING ‘‘ ‘F110C-GRDAT‘ sy-datum."record-GRDAT_004.
**返回
PERFORM frm_dynpro USING ‘SAPF110V‘ ‘0200‘ ‘X‘.
PERFORM frm_dynpro USING ‘‘ ‘BDC_OKCODE‘ ‘/EBCK‘.
IF gt_bdcdata[] IS NOT INITIAL.
CALL TRANSACTION ‘F110‘ USING gt_bdcdata
MODE p_mode
UPDATE ‘S‘
MESSAGES INTO gt_messtab.

READ TABLE gt_messtab WITH KEY msgid = ‘F0‘ msgnr = ‘084‘.
IF sy-subrc EQ 0.
CLEAR:gt_bdcdata,gt_bdcdata[],gt_messtab,gt_messtab[],
lv_msg.
PERFORM frm_dynpro USING ‘SAPF110V‘ ‘0200‘ ‘X‘.
PERFORM frm_dynpro USING ‘‘ ‘BDC_CURSOR‘ ‘F110V-LAUFD‘.
PERFORM frm_dynpro USING ‘‘ ‘BDC_OKCODE‘ ‘=VOEX‘.
PERFORM frm_dynpro USING ‘‘ ‘F110V-LAUFD‘ gw_f110-laufd.
PERFORM frm_dynpro USING ‘‘ ‘F110V-LAUFI‘ gw_f110-laufi.

PERFORM frm_dynpro USING ‘SAPF110V‘ ‘1106‘ ‘X‘.
PERFORM frm_dynpro USING ‘‘ ‘BDC_CURSOR‘ ‘F110V-XSTRF‘.
PERFORM frm_dynpro USING ‘‘ ‘BDC_OKCODE‘ ‘=EP‘.
PERFORM frm_dynpro USING ‘‘ ‘F110V-XSTRF‘ ‘X‘.
IF gt_bdcdata[] IS NOT INITIAL.
CALL TRANSACTION ‘F110‘ USING gt_bdcdata
MODE p_mode
UPDATE ‘S‘
MESSAGES INTO gt_messtab.

READ TABLE gt_messtab WITH KEY msgid = ‘F0‘ msgnr = ‘084‘.
IF sy-subrc EQ 0.
CONCATENATE gw_f110-zmsg ‘S4成功！截止在‘(163) sy-datum
INTO gw_f110-zmsg SEPARATED BY space.
gw_f110-zstep = lv_i.
gw_f110-zicon = ‘@[email protected]‘.
gw_f110-msgty = ‘S‘.
lv_flag = lv_i.
EXIT.
ELSE.
READ TABLE gt_messtab INDEX 1.
LOOP AT gt_messtab.
CALL FUNCTION ‘MESSAGE_TEXT_BUILD‘
EXPORTING
msgid = gt_messtab-msgid
msgnr = gt_messtab-msgnr
msgv1 = gt_messtab-msgv1
msgv2 = gt_messtab-msgv2
msgv3 = gt_messtab-msgv3
msgv4 = gt_messtab-msgv4
IMPORTING
message_text_output = lv_msg.
ENDLOOP.
CONCATENATE gw_f110-zmsg ‘S4重新建议失败：‘(162) lv_msg INTO gw_f110-zmsg.
gw_f110-msgty = ‘E‘.
gw_f110-zicon = ‘@[email protected]‘.
gw_f110-zstep = 3.
lv_flag = ‘X‘.
ENDIF.
ENDIF.

ELSE.
CONCATENATE gw_f110-zmsg ‘S4修改参数失败：‘(162) lv_msg INTO gw_f110-zmsg.
gw_f110-msgty = ‘E‘.
gw_f110-zicon = ‘@[email protected]‘.
gw_f110-zstep = 3.
lv_flag = ‘X‘.
ENDIF.


ENDIF.