[隐藏]
1, 设置RF警告消息
|
1 2 3 4 5 6 |
/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, 查询商品
|
1 2 3 4 5 6 7 8 9 10 |
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. |
屏幕输入商品代码
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
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
|
1 2 3 4 5 |
CALL FUNCTION 'CONVERSION_EXIT_MDLPD_INPUT' EXPORTING INPUT = ZEWM_HUHDR_HP-HUMATID IMPORTING OUTPUT = lv_matid |
3, RF屏幕参数相关代码
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
* 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, 设置代码调试
|
1 |
BREAK-POINT ID /scwm/rf_inquiry. |
5, 获得用户资源
|
1 2 3 4 5 |
CALL FUNCTION '/SCWM/RSRC_RESOURCE_MEMORY' EXPORTING iv_uname = sy-uname CHANGING cs_rsrc = ls_rsrc. |
6, 转换日期和时间字段
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
*********** 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, 获得功能代码
|
1 2 3 |
DATA:lv_fcode TYPE /scwm/de_fcode, lv_fcode = /scwm/cl_rf_bll_srvc=>get_fcode( ). |
8, 设置仓库号
|
1 |
CALL METHOD /scwm/cl_tm=>set_lgnum( ls_rsrc-lgnum ). |
9, 查询源HU信息
|
1 2 3 4 5 6 7 |
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信息
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
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确认对话框
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
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 |
以上。
发表评论