1. 设置RF警告消息
/scwm/cl_rf_bll_srvc=>message(
iv_msg_view = '1'
iv_flg_continue_flow = 'X'
iv_msgid = '/SCWM/WHO'
iv_msgty = 'W'
iv_msgno = '539' ).
2. 查询商品
TRY.
CALL FUNCTION '/SCWM/MATERIAL_READ_SINGLE'
EXPORTING
iv_matid = ls_stock-matid
iv_langu = sy-langu
IMPORTING
es_mat_global = ls_mat_global
et_mat_uom = lt_mat_uom.
CATCH /scwm/cx_md.
ENDTRY.
屏幕输入商品代码
DATA lv_matean TYPE /scwm/de_rf_ean11.
CALL FUNCTION '/SCWM/RF_PRODUCT_INPUT'
EXPORTING
input = selection-matnr40
IMPORTING
ev_matid = iv_matid
ev_matnr = selection-matnr40
ev_matean = lv_matean.
IF iv_matid IS INITIAL.
* Product doesn't exists
MESSAGE e195(/scwm/rf_en).
ENDIF.
.
* get the product details
CALL FUNCTION '/SCWM/SELECT_STOCK'
EXPORTING
iv_lgnum = lv_lgnum
it_matid = lt_matid
it_guid_lgpla = lt_guid_loc
IMPORTING
et_huitm = lt_huitm
EXCEPTIONS
OTHERS = 2.
获得商品GUID
CALL FUNCTION 'CONVERSION_EXIT_MDLPD_INPUT'
EXPORTING
INPUT = ZEWM_HUHDR_HP-HUMATID
IMPORTING
OUTPUT = lv_matid
.
3. RF屏幕参数相关代码
* Initiate screen parameter
/scwm/cl_rf_bll_srvc=>init_screen_param( ).
* Set screen parameter
/scwm/cl_rf_bll_srvc=>set_screen_param('CT_INQ_ST_LOOP').
****************************
/scwm/cl_rf_bll_srvc=>set_screen_param('CS_INQ_ST_PRD').
* Transfer table name into RF framework
/scwm/cl_rf_bll_srvc=>set_screen_param('/SCWM/TT_RF_INQ_ST_LOOP').
CALL METHOD /scwm/cl_rf_bll_srvc=>set_line
EXPORTING
iv_line = 1.
CALL METHOD /scwm/cl_rf_bll_srvc=>set_screen_param
EXPORTING
iv_param_name = 'LS_INQ_ST_LOOP'.
4. 设置代码调试
BREAK-POINT ID /scwm/rf_inquiry.
5. 获得用户资源
CALL FUNCTION '/SCWM/RSRC_RESOURCE_MEMORY'
EXPORTING
iv_uname = sy-uname
CHANGING
cs_rsrc = ls_rsrc.
6. 转换日期和时间字段
*********** Conversion of Timestamp into date and time field
APPEND :lt_lagp-idatu TO lt_timestamp,
lt_lagp-cleared_at TO lt_timestamp,
lt_lagp-moved_at TO lt_timestamp.
CALL FUNCTION '/SCWM/CONVERT_TIMESTAMP'
EXPORTING
iv_lgnum = lv_lgnum
it_timestamp = lt_timestamp
IMPORTING
et_date_time = lt_timedate
EXCEPTIONS
input_error = 1
data_not_found = 2
OTHERS = 3.
LOOP AT lt_timedate INTO ls_timedate.
CASE sy-tabix.
WHEN 1.
WRITE ls_timedate-date DD/MM/YY TO cs_inq_st-idatu_d.
MOVE ls_timedate-time TO cs_inq_st-idatu_t.
WHEN 2.
WRITE ls_timedate-date DD/MM/YY TO cs_inq_st-cleared_d.
MOVE ls_timedate-time TO cs_inq_st-cleared_t.
WHEN 3.
WRITE ls_timedate-date DD/MM/YY TO cs_inq_st-moved_d.
MOVE ls_timedate-time TO cs_inq_st-moved_t.
ENDCASE.
ENDLOOP.
7. 获得功能代码
lv_fcode TYPE /scwm/de_fcode,
lv_fcode = /scwm/cl_rf_bll_srvc=>get_fcode( ).
8. 设置仓库号
CALL METHOD /scwm/cl_tm=>set_lgnum( ls_rsrc-lgnum ).
9. 查询源HU信息
CALL FUNCTION '/SCWM/TO_READ_SRC'
EXPORTING
iv_lgnum = ls_rsrc-lgnum
iv_huident = selection-huident
IMPORTING
et_ordim_o = lt_ordim_o
et_ordim_c = lt_ordim_c.
10. 查询目前的HU信息
CALL FUNCTION '/SCWM/TO_READ_DES'
EXPORTING
iv_lgnum = ls_rsrc-lgnum
iv_huident = selection-huident
IMPORTING
et_ordim_o = lt_ordim_o
et_ordim_c = lt_ordim_c.
CALL FUNCTION '/SCWM/TO_READ_HU'
EXPORTING
iv_lgnum = ls_rsrc-lgnum
iv_huident = selection-huident
IMPORTING
et_ordim_o_src = lt_ordim_o
et_ordim_o_des = lt_ordim_o_des
et_ordim_c_src = lt_ordim_c
et_ordim_c_des = lt_ordim_c_des.
11. RF确认对话框
CALL METHOD /SCWM/CL_RF_BLL_SRVC=>POPUP_TO_CONFIRM(
IV_TITLE = ‘’,
IV_TEXT=’’
IV_FLG_CANCEL=’X’,
RV_ANSWER = RV_ANSWER)
/scwm/cl_rf_dynpro_srvc=>display_message(
iv_msgid = sy-msgid
iv_msgno = sy-msgno
iv_msgty = 'Q'
iv_msgv1 = sy-msgv1
iv_msgv2 = sy-msgv2
iv_msgv3 = sy-msgv3
iv_msgv4 = sy-msgv4 ) = /scwm/cl_rf_bll_srvc=>c_answer_yes
