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

總結

以上是生活随笔為你收集整理的EWM RF 开发常用代码的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。