-
编辑 删除
调用SO10填充选择屏
* 本段代码调用SO10, 使用户可以在选择屏中选择文本, 并同时填充TEXT ID.TABLES: pstxt.** call trx so10 (rstxtcat is the program of so10)PARAMETERS: p_head TYPE tdobname.PARAMETERS: p_txtid TYPE tdid.DATA: it_value TYPE TABLE OF dynpread WITH HEADER LINE.AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_head. SET PARAMETER ID 'TXT' FIELD p_head. SUBMIT rstxtcat AND RETURN. GET PARAMETER ID 'TXT' FIELD pstxt. p_head = pstxt-tdname. CLEAR it_value. it_value-fieldname = 'P_TXTID'. it_value-fieldvalue =
-
编辑 删除
上传本地.CSV文件到内表中
TYPE-POOLS: truxs.DATA: filename TYPE string VALUE '',path TYPE string VALUE '',fullpath TYPE string VALUE ''.DATA: l_rc TYPE i,l_filetable TYPE filetable.DATA w_ans .DATA gt_line TYPE truxs_t_text_data.DATA: gt_data LIKE STANDARD TABLE OF zobj_personeel WITH HEADER LINE.PARAMETERS p_file TYPE string.AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.* Open The txt FileCALL METHOD cl_gui_frontend_services=>file_open_dialogEXPORTINGwindow_title = 'please choose import file'file_filter = 'Notpad(*
-
编辑 删除
List box at selection screen
type-pools: vrm.data: it_list type vrm_values,list_value type vrm_value.* --- selection screenparameters: p_period(2) type c as listbox visible length 15 obligatory. " Perioddata: p_num type i value '1',p_len type i,p_temp(2) type c.at selection-screen output.clear it_list.refresh it_list.data p_num type i value '1'.do 16 times.clear: p_len,p_temp.clear list_value.p_temp = p_num.p_len = strlen( p_temp ).if p_len = '1'.concatenate '0' p_temp into p_temp.endif.condense p_temp.list_value-key =
-
编辑 删除
函数: CONVERT_TO_LOCAL_CURRENCY
CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY' EXPORTING* CLIENT = SY-MANDT date = gt_order-erdat foreign_amount = gt_order-netwr foreign_currency = gt_order-waerk local_currency = 'EUR'* RATE = 0* TYPE_OF_RATE = 'M'* READ_TCURR = 'X' IMPORTING* EXCHANGE_RATE =* FOREIGN_FACTOR = local_amount = gt_order-netw
-
编辑 删除
单位转换函数: MATERIAL_UNIT_CONVERSION
DATA: BEGIN OF gt_billing OCCURS 0, fkdat TYPE fkdat, " vbrk kunag TYPE kunag, " vbrk / kna1 land1 TYPE land1, " kna1 kurrf TYPE kurrf, " vbrk werks TYPE werks_d, " vbrp fklmg TYPE fklmg, " vbrp meins TYPE meins, " vbrp netwr TYPE netwr_fp, " vbrp waerk TYPE waerk, " vbrp vkorg_auft TYPE vkorg_auft, " vbrp / mvke vtweg_auft TYPE vtweg_a
-
编辑 删除
函数: 获得每月的最后一天
CALL FUNCTION 'SLS_MISC_GET_LAST_DAY_OF_MONTH' EXPORTING day_in = p_first_date IMPORTING last_day_of_month = p_last_date.[@more@]
-
编辑 删除
在ALV中添加Footer
* --CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' 之前PERFORM f_build_eventcat. FORM list_text.DATA: w_end TYPE slis_listheader.DATA: i_end TYPE slis_t_listheader.DATA: p_netwr_c(20) TYPE c.DATA: p_fklmg_td_c(20) , p_netwr_td_c(20) ,p_sale_netwr_c(20) , p_sale_netwr_be_c(20).* --- footer p_netpr_beWRITE p_sale_netwr_be TO p_sale_netwr_be_c CURRENCY 'EUR'.CONDENSE p_sale_netwr_be_c.w_end-typ = 'S'.w_end-info = 'Tijdens de maand ontvangen bestellingen voor de Belgische markt:'.APPEND w_end TO i_end.CONCA
