-----------------------指针------------------------

指针 FIELD-SYMBOLS

================================
将内表循环进指针:
1. FIELD-SYMBOLS:<fs_data> 
LOOP AT gt_data ASSIGNING <fs_data>.
2. LOOP AT gt_data ASSIGNING FIELD-SYMBOL(<fs_data>).
分配组件进指针:
1. ASSIGN COMPONENT 组件 OF STRUCTURE 工作区 TO <FS>.
*可以指定<comp>为文字或变量。如果<comp>属于类型C或字符串,则它为指定组件的名称。 
*如果<comp>有任何其它基本数据类型，将被转化为类型I并且指 组件号。如果分配成功SY-SUBRC为0,否则为4。================================

FIELD SYMBOL和TYPE REF TO的用法和比较

================================
TYPE REF TO只能接data(数据引用)或者是object(对象引用)
需要开辟内存CREATE DATA或CREATE OBJECT一、定义
Type Ref To 和 Field Symbol 的定义都可以指定 特定的类型或者结构，或者不指定。
01  DATA ref TYPE REF TO data.       "不指定特定类型或者结构，可以是结构也可以是类型
02   
03  DATA ref TYPE REF TO ty_ym.      "指定特定结构
04   
05  DATA ref TYPE REF TO char20.     "指定特定类型
06   
07  FIELD-SYMBOLS < FS > TYPE ANY TABLE. "任意标准表
08   
09  FIELD-SYMBOLS < FS > TYPE it_ym.   "指定特定的表
10   
11  FIELD-SYMBOLS < FS > TYPE any.     "不指定特定类型或者结构，可以是结构也可以是类型
12   
13  FIELD-SYMBOLS < FS > TYPE ty_ym.   "指定特定结构
14   
15  FIELD-SYMBOLS < FS > TYPE char20.  "指定特定类型二、初始化
Type Ref To 有两种初始化的方法:第一种是用 CREATE DATA 动态开辟内存;第二种是用 GET REFERENCE OF 指向已经存在的内存变量.Field Symbol 的初始化，则只能指向已经存在的内存变量。
01  CREATE DATA ref TYPE ty_ym.
02   
03  CREATE DATA ref LIKE LINE OF it_ym.
04   
05  CREATE DATA ref LIKE wa_ym.
06   
07  CREATE DATA ref LIKE ym.
如果定义 ref 是指定特定的类型或者结构的，那么 CREATE DATA 时 TYPE 可以省略。
无论定义时 ref 是否有特定的类型或者结构，CREATE DATA 时必须指定特定的类型或者结构，不能是data这种泛型的。
01  ASSIGN wa_ym TO < fs >. "Field Symbol的初始化，效果相当于指向wa_ym
02   
03  ASSIGN v_ym TO < fs >.  "Field Symbol的初始化，效果相当于指向v_ym
04   
05  GET REFERENCE OF wa_ym INTO ref. "Type Ref To的初始化，效果相当于指向 wa_ym
06   
07  GET REFERENCE OF v_ym INTO ref.  "Type Ref To的初始化，效果相当于指向 v_ym
在使用 Field Symbol 和 Type Ref To 前必须初始化，不然会发生 RUNTIME ERROR。三、使用
如果第一步定义时指定了特定的类型或者结构，那么 Field Symbol 和 Type Ref To 都可以直接使用；如果第一步定义时没有指定类型或者结构，那么 Type Ref To 必须 ASSIGN 到另外一个 Field Symbol 里间接使用。1） 指定特定的类型时：
01  ref->* = 'abc'.
02  < fs > = 'abc'.2） 指定特定的结构时：
01  ref->*-col1 = 'abc'.  "简写是ref->col1
02  < fs >-col1 = 'abc'.3） 不指定特定的类型或者结构时：
01  FIELD-SYMBOLS < FSX > TYPE ty_ym
02  ASSIGN ref->* TO < FSX >.  "泛用型结构
03  < FSX >-col1= 'abc'.
04   
05  FIELD-SYMBOLS < FSX > TYPE any. "
06  ASSIGN ref->* TO < FSX >.       "泛用型类型
07  < FSX > = 'abc'.
08   
09  FIELD-SYMBOLS < FSX > TYPE any. "                 
10  ASSIGN COMPONENT 'col1' OF STRUCTURE < FS > INTO < FSX >. "泛用型结构
11  < FSX > = 'abc'.注意事项：
一般来说为了使用方便，还是应该指定 Field Symbol 或者 Type Ref To 的类型或者结构，以便之后直接使用。
在使用 Type Ref To 时，如果是 TYPE REF TO DATA，那么之后想使用这个 Type Ref To 时，依然会不可避免的用到 Field Symbol;
这样代码写起来就很麻烦，还不如一开始就使用 Field Symbol 写。
但像动态内表这种事先不知道结构的场合，那么只能使用 Type Ref To，再结合 Field Symbol；
如果直接使用 Field Symbol，那么 Field Symbol 将无法参考某个已经存在的结构进行初始化。
第一步假如 TYPE REF TO DATA，后面的第二步初始化时依然要指定特定的结构，所以还不如第一步就指定结构。
建议只有在事先不知道结构时，才使用泛型定义。
所以要么定义和初始化时都指定类型或者结构，要么就是动态内表或者结构都无法在事先指定;
像第一步 TYPE REF TO DATA 第二步 CREATE DATA ref TYPE ty_ym 不是好的做法。4、区别
Type Ref To 和 Field Symbol 在用法上目前发现的主要区别：
1） Type Ref To 可以动态开辟内存，在动态内表时，可以等在程序运行时获得结构后再开辟内存，并且赋值给某个 Field Symbol。
而光用 Field Symbol 是做不到的，因为 Field Symbol 的初始化需要“挂”在已知结构上。
2）Type Ref To 不像 Field Symbol 那样有LOOP AT it_tab ASSIGNING < fs >的写法，ref->*不是指向内表数据，
而是类似工作区指向某块内存，所以更改数据后需要 modify 到内表，如果不需要数据了要clear。
而 Field Symbol 则不需要考虑 modify 和 clear。
3）IF < fs1 > = < fs2 > 是比较内存里的值，相对应的是IF ref1->* = ref2->*，而不能判断比较 IF ref1 = ref2 。
================================

-----------------------内表------------------------

内表删除重复项 DELETE ADJACENT DUPLICATES FROM COMPARING .

DELETE ADJACENT DUPLICATES FROM 内表 COMPARING 字段1 字段2.
# 根据COMPARING后字段去重,先根据这些字段排序后使用,保留第一个

内表从小到大排序 SORT

SORT 内表 [BY 键1 键2 …] [STABLE] [DESCENDING]
# 对关键字相同的行,STABLE关键字可使排序后仍能保持原顺序
# DESCENDING倒序(从大到小)

判断内表中是否有某数据 READ TABLE 内表 [INDEX|WITH KEY] TRANSPORTING NO FIELDS.

================================
READ TABLE 内表 [INDEX|WITH KEY] TRANSPORTING NO FIELDS
只是判断该内表中是否有次数据,不需要读取到工作区中。
若内表可以读取到该数据,则sy-subrc = 0
================================

统计内表行数 DESCRIBE

访问内标属性并将行数赋值给变量: DESCRIBE TABLE 内表 LINES 变量(整形或N).

循环内表中sum数字字段 COLLECT

循环中调用COLLECT语句,字符串相同的行会汇总其数值字段
================================
LOOP AT gt_data INTO gs_data.COLLECT gs_data INTO gt_sum.
ENDLOOP.例如:gt_data数据:
A 山东 1
A 山东 3
B 北京 4
B 北京 2
B 北京 6
A 山东 2
B 北京 1
B 北京 3处理后gt_sum数据:
A 山东 6
B 北京 16
================================

字符串类型 `…` ‘…’

================================
`...`是原始字符串(类似python中的r'')
'...'是普通字符串
================================

-----------------------字符串------------------------

组合字符串 CONCATENATE && &

================================
1. CONCATENATE str1 str2 ...|LINES OF itabINTO result[SEPARATED BY sep][RESPECTING BLANKS].
CDNT类型的前导空格会保留，尾部空格都会被去掉，但对String类型所有空格都会保留；
对于c, d, n, t类型的字符串有一个RESPECTING BLANKS选项可使用，表示尾部空格也会保留。
注：使用 `` 对String类型进行赋值时才会保留尾部空格2. str = str1 && str2
&&运算符(可突破255字符限制)3. str = str1 && str2
&运算符(不可突破255字符限制)
================================

分割字符串 SPLIT

================================
以'.'为分隔符,将分割后的字符串放进只有一列的内表例:
SPLIT str AT '.' INTO TABLE 内表.
================================

字符串去空格 CONDENSE

================================
CONDENSE <c> [NO-GAPS].
1. 如果是C类型只去掉前面的空格（因为是定长，即使后面空格去掉了，左对齐时后面会补上空格）；
2. 如果是String类型，则后面空格也会被去掉；
3. 字符串中间的多个连续的空格使用一个空格替换(String类型也是这样)；
4. NO-GAPS：字符串中间的所有空格都也都会去除(String类型也是这样)；
5. 空格去掉后会左对齐
================================

搜索字符串 SEARCH

================================
在<str>中搜索<c>
SEARCH <c> FOR <str> <options>.
如果成功则将SY-SUBRC置0并将SY-FDPOS置为字段<c>中该字符串的偏移量,否则将SY-SUBRC置为4。
================================

替换字符串 REPLACE [ALL OCCURRENCES OF REGEX] regex IN dobj WITH new

================================
REPLACE [ALL OCCURRENCES OF REGEX] regex IN dobj WITH new
将dobj中的第一个[全部]regex替换成new
================================

字符串匹配 CO/CN CA/NA CS/NS CP/NP

================================
CO contain only
str1 CO str2
遍历str1，其中的每个字符均存在于str2中，则返回true.
如：str1 = '我a'  str2='hubab'  -----false
str1 = 'ba'  str2='hubab'   -----trueCA contain any
str1 CA str2  
遍历str1，如果str1中有一个字符在str2中,则返回true.
如：str1 = '我a'  str2='hubab'   -----trueCS contain string
str1 CS str2
判断str1是否包含str2。CP contains pattern 
str1 CP str2  
比较结束后，如果结果为真，sy-fdpos将给出s2在s1中的偏移量信息
str1 = 'aac'   str2 = '#aA#c'    true
str1 = 'aAc'   str2 = '#aA#c'    true
str1 = '123abc123' str2 = '*abc*'    sy-fdpos = 3.模式匹配
CO / CN contains only or not
CA / NA contains any or not any
CS / NS contain string or not
CP / NP contains pattern or not
================================

结构体间的CORRESPONDING操作

移动: MOVE-CORRESPONDING
加减乘除:ADD- SUBTRACT- MULTIPLY- DIVIDE-

-----------------------DATA&TYPE------------------------

定义TYPES包含INCLUDE

================================
TYPES: BEGIN OF ty_data,fldate TYPE sflight-fldate.INCLUDE TYPE spfli.TYPES: END OF ty_data.
================================

定义常量/RANGE变量/工作区

================================
定义常量
CONSTANTS:c_cm TYPE slis_formname VALUE 'FRM_USER_COMMAND',c_pf TYPE slis_formname VALUE 'FRM_ALV_STATUS'.定义range:DATA r_ebeln TYPE RANGE OF 字段名 WITH HEADER LINE.
*		r_ebeln-sign = 'I'.
*		r_ebeln-option = 'EQ'.
*		r_ebeln-low = ''.
*		r_ebeln-high = ''.
*       APPEND r_ebeln.定义工作区:DATA ... LIKE LINE OF 内表.
================================

-----------------------循环控制和标准语句------------------------

全局断点 BREAK username

BREAK 用户名: 该用户名每次运行程序会在这里打断点.

循环/子程序控制 CHECK|EXIT|CONTINUE

1. CHECK 条件: 如果条件成立则执行下面的代码,否则跳出循环(子程序中结束子程序) 
2. EXIT: 跳出循环(子程序中结束子程序) 
3. CONTINUE: 跳出本次循环 

异常捕获 TRY

================================
1. 语法:
DATA: exref  TYPE REF TO CX_ROOT.TRY.      
语句块CATCH 通用异常(CX_SY_ARITHMETIC_ERROR) INTO exref.
捕获后异常处理语句块CATCH 异常名(例CX_CX_SY_CONVERSION_NO_NUMBER) INTO exref.
捕获后异常处理语句块CLEANUP. 
如果捕获到任何异常后的清理语句块ENDTRY.2. exref的属性和方法:
Textid
属性,用于定义异常的不同文本，并且也影响方法get_text的结果。
Previous
属性,可以存储原始异常，允许您构建异常链
get_text
方法,这将根据异常的系统语言将文本表示作为字符串返回。
get_longtext
方法,这会将异常的文本表示的长变体作为字符串返回。
get_source_position
方法,将引发异常的程序名和行号返回。
================================

清除数据 CLEAR REFRESH FREE

================================
CLEAR
仅清除表格工作区域。要重置整个内表而不清除表格工作区域，使用CLEAR <itab>[]，不释放空间REFRESH
加不加中括号都是只清内表，REFRESH专为清内表的，不能清基本类型变量，不释放空间FREE
初始化的同时还要释放所占用的空间,用法同CLEAR
================================

内存变量 EXPORT|IMPORT 内变 = 变 TO MEMORY ID ‘内存名’.

================================
1. ABAP内存变量类似局部变量,可以用来在主进程和子进程之间通信,不同的externalsession有不同的内存空间
将数据存入内存:EXPORT 内变1 = 变1 内变2 = 变2 TO MEMORY ID '内存名'.
将数据从内存读出:IMPORT 内变1 = 变3 内变2 = 变4 FROM MEMORY ID '内存名'.
清空所有ABAP内存变量:FREE MEMORY.
清空指定ABAP内存变量:FREE MEMORY ID '内存名'.2. SAP内存变量类似全局变量,用于externalsession间通讯,不同用户不同空间,用户退出登录时清空
将数据存入内存:SET PARAMETER ID '内存名' FIELD 变量.
将数据从内存读出:GET PARAMETER ID '内存名' FIELD 变量.================================

-----------------------业务模块函数------------------------

查询库存/需求清单(MD04) ‘MD_STOCK_REQUIREMENTS_LIST_API’

================================
DATA: lt_mdpsx TYPE STANDARD TABLE OF mdps WITH HEADER LINE,lt_mdezx TYPE STANDARD TABLE OF mdez WITH HEADER LINE,lt_mdsux TYPE STANDARD TABLE OF mdsu WITH HEADER LINE.DATA: lw_mt61d TYPE mt61d,lw_mdkp  TYPE mdkp.CLEAR: lt_mdpsx[],lt_mdezx[],lt_mdsux[].CALL FUNCTION 'MD_STOCK_REQUIREMENTS_LIST_API'EXPORTINGmatnr                    = '704001800243'werks                    = '3012'IMPORTINGe_mt61d                  = lw_mt61d   "物料主记录: MRPe_mdkp                   = lw_mdkp    "MRP凭证的抬头数据TABLESmdpsx                    = lt_mdpsx   "MRP凭证中的项目mdezx                    = lt_mdezx   "MRP要素的个别行mdsux                    = lt_mdsux   "MRP元素全部的行EXCEPTIONSmaterial_plant_not_found = 1plant_not_found          = 2.
================================

查询MRP清单(MD06) ‘MD_MRP_LIST_API’

================================
DATA: lt_mdezx TYPE STANDARD TABLE OF mdez WITH HEADER LINE.
CALL FUNCTION 'MD_MRP_LIST_API'EXPORTINGmatnr                    = '704001800243'werks                    = '3012'TABLESmdezx                    = lt_mdezx[]EXCEPTIONSmrp_list_not_found       = 1material_plant_not_found = 2error                    = 3OTHERS                   = 4.
================================

需求溯源 ‘MD_PEGGING_NODIALOG’

获取计划订单 ‘BAPI_PLANNEDORDER_GET_DETAIL’

获取生产订单 ‘BAPI_PRODORD_GET_DETAIL’

获取订单流程信息 ‘BAPI_PROCORD_GET_DETAIL’

-----------------------通用函数------------------------

两个ALV函数 ‘REUSE_ALV_GRID_DISPLAY’ ‘REUSE_ALV_GRID_DISPLAY_LVC’

================================
1. 'REUSE_ALV_GRID_DISPLAY'
-------------------------DATA------------------------------------
DATA:gt_fieldcat TYPE slis_t_fieldcat_alv,gs_fieldcat TYPE slis_fieldcat_alv,gt_events   TYPE slis_t_event WITH HEADER LINE,gs_layout   TYPE slis_layout_alv,gt_sort     TYPE slis_t_sortinfo_alv,go_grid     TYPE REF TO cl_gui_alv_grid.DEFINE add_field.CLEAR gs_fieldcat.gs_fieldcat-no_zero = 'X'.gs_fieldcat-fieldname    = &1. "字段名gs_fieldcat-reptext_ddic = &2. "字段文本gs_fieldcat-key          = &3. "冻结列gs_fieldcat-edit         = &4. "可编辑gs_fieldcat-checkbox     = &5. "选择框gs_fieldcat-do_sum       = &6. "可求和gs_fieldcat-outputlen    = &7.  "字段长度gs_fieldcat-ref_tabname    = &8. "参考表名gs_fieldcat-ref_fieldname  = &9. "参考字段APPEND gs_fieldcat TO gt_fieldcat.
END-OF-DEFINITION.-------------------------FORM------------------------------------
FORM frm_display_data.PERFORM frm_set_fieldcat.PERFORM frm_set_layout.PERFORM frm_set_events.PERFORM frm_call_alv_list.
ENDFORM.FORM frm_set_fieldcat.
*              字段        字段名                   冻结  可输 选择 求和 长  参表 参字add_field     'EBELN'   '采购凭证编号'             ' '  ' '  ' '  ''  ' '  'ZTSD005'  'EBELN'.
ENDFORM.FORM frm_set_layout.CLEAR gs_layout.gs_layout-zebra = 'X'."斑马纹
*  gs_layout-info_fieldname = 'COLOR'."颜色gs_layout-colwidth_optimize = 'X'."优化宽度
*  gs_layout-min_linesize = 40."最小行宽
ENDFORM.
FORM frm_set_events.
*  CLEAR gt_events.
*  gt_events-name = slis_ev_user_command.
*  gt_events-form = 'FRM_USER_COMMAND'.       "按钮动作
*  APPEND gt_events.
*CLEAR gt_events.gt_events-name = slis_ev_pf_status_set.gt_events-form = 'FRM_PF_STATUS_SET'.       "按钮设置APPEND gt_events.*  gt_events-name = 'CALLER_EXIT'.
*  gt_events-form = 'FRM_CALLER_EXIT'.        
*  APPEND gt_events.
ENDFORM.FORM frm_call_alv_list.CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'EXPORTINGi_callback_program = sy-repidit_fieldcat        = gt_fieldcatis_layout          = gs_layoutit_events          = gt_events[]it_sort            = gt_sort[]i_save             = 'A'TABLESt_outtab           = gt_dataEXCEPTIONSprogram_error      = 1OTHERS             = 2.IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. "标准报错格式ENDIF.
ENDFORM.FORM frm_pf_status_set USING i_extab TYPE slis_t_extab.SET PF-STATUS 'ZERP_MM105' EXCLUDING i_extab.
ENDFORM.2.'REUSE_ALV_GRID_DISPLAY_LVC'
-------------------------DATA------------------------------------
DATA:go_container TYPE REF TO cl_gui_custom_container,go_alvgrid   TYPE REF TO  cl_gui_alv_grid,gt_fieldcat  TYPE lvc_t_fcat,gs_fieldcat  TYPE lvc_s_fcat,gs_layout    TYPE lvc_s_layo,gs_excluding TYPE ui_func,gt_excluding TYPE ui_functions,gs_event     TYPE LINE OF slis_t_event,gt_events    TYPE slis_t_event.CLASS lcl_event_receiver DEFINITION.PUBLIC SECTION.METHODS handle_modify FOR EVENT data_changed_finished OF cl_gui_alv_gridIMPORTING e_modified et_good_cells.
ENDCLASS.*----------------------------------------------------------------------*
*       CLASS LCL_EVENT_RECEIVER IMPLEMENTATION
*----------------------------------------------------------------------*
CLASS lcl_event_receiver IMPLEMENTATION.METHOD handle_modify.CHECK e_modified EQ 'X'.LOOP AT et_good_cells INTO DATA(ls_good_cells).*      READ TABLE et_good_cells INTO DATA(ls_good_cells) INDEX 1.READ TABLE gt_items ASSIGNING FIELD-SYMBOL(<fs_items>) INDEX ls_good_cells-row_id.IF ls_good_cells-fieldname EQ 'WERKS1' ORls_good_cells-fieldname EQ 'LGORT1'.CLEAR gs_items.MOVE-CORRESPONDING <fs_items> TO gs_items.CONDENSE gs_items-werks1 NO-GAPS.CONDENSE gs_items-lgort1 NO-GAPS.CONDENSE gs_items-matnr NO-GAPS.
* 工厂名称PERFORM frm_get_werks_name USING 'GS_ITEMS-WERKS1'CHANGING gs_items-name1.* 取库存地点描述PERFORM frm_get_lgort_name USING 'GS_ITEMS-LGORT1'gs_items-werks1CHANGING gs_items-lgobe1.* 更新库存信息PERFORM frm_get_stock_single USING gs_items-matnrgs_items-werks1gs_items-lgort1CHANGING gs_items-labstgs_items-lgpbe.MOVE-CORRESPONDING gs_items TO <fs_items>.PERFORM frm_refresh_alv USING go_alvgrid.ENDIF.PERFORM frm_calcu_sum.ENDLOOP.LEAVE TO SCREEN 300.ENDMETHOD.ENDCLASS. "LCL_EVENT_RECEIVER IMPLEMENTATIONDATA go_event_receiver TYPE REF TO lcl_event_receiver .
-------------------------FORM------------------------------------
FORM frm_display_data .PERFORM frm_set_fieldcat."设置ALV字段PERFORM frm_set_layout."设置LayoutPERFORM frm_set_events."注册ALV事件PERFORM frm_call_alv_list."调用ALV函数
ENDFORM.FORM frm_set_fieldcat .FIELD-SYMBOLS <fs_fieldcat> TYPE lvc_s_fcat.CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'EXPORTINGi_structure_name       = 'ZSMM049'CHANGINGct_fieldcat            = gt_fieldcatEXCEPTIONSinconsistent_interface = 1program_error          = 2OTHERS                 = 3.READ TABLE gt_fieldcat ASSIGNING <fs_fieldcat> WITH KEY fieldname = 'SEL'.IF sy-subrc EQ 0 .<fs_fieldcat>-edit = 'X'.<fs_fieldcat>-checkbox = 'X'.<fs_fieldcat>-key = 'X'.ENDIF.gs_fieldcat-col_opt = 'A'.MODIFY gt_fieldcat FROM gs_fieldcatTRANSPORTING col_optWHERE fieldname NE ''.
ENDFORM.FORM frm_set_layout .CLEAR gs_layout.gs_layout-zebra = 'X'.
*  gs_layout-cwidth_opt = 'X'.gs_layout-info_fname = 'COLOR'.gs_layout-stylefname = 'STYLE'.
ENDFORM.FORM frm_set_events .CLEAR gt_events.gs_event-name = slis_ev_user_command.gs_event-form = 'FRM_USER_COMMAND'.APPEND gs_event TO gt_events.CLEAR gs_event.gs_event-name = slis_ev_pf_status_set.gs_event-form = 'FRM_PF_STATUS_SET'.APPEND gs_event TO gt_events.CLEAR gs_event.gs_event-name = slis_ev_caller_exit_at_start.gs_event-form = 'FRM_CALLER_EXIT'.APPEND gs_event TO gt_events.
ENDFORM.FORM frm_call_alv_list .CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'EXPORTINGi_callback_program = sy-repidis_layout_lvc      = gs_layoutit_fieldcat_lvc    = gt_fieldcati_save             = 'A'it_events          = gt_eventsTABLESt_outtab           = gt_dataEXCEPTIONSprogram_error      = 1OTHERS             = 2.IF sy-subrc <> 0.
* Implement suitable error handling hereENDIF.
ENDFORM.FORM frm_user_command USING VALUE(r_ucomm) LIKE sy-ucommCHANGING rs_selfield TYPE slis_selfield.DATA: lv_valid TYPE c.DATA:es_row_id TYPE  lvc_s_row,es_col_id TYPE  lvc_s_col,es_row_no TYPE  lvc_s_roid.DATA: lv_confirm TYPE boolean,lv_error   TYPE boolean.CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'IMPORTINGe_grid = go_alvgrid.CALL METHOD go_alvgrid->check_changed_dataIMPORTINGe_valid = lv_valid.rs_selfield-refresh = 'X'.*    固定光标rs_selfield-row_stable = 'X'.rs_selfield-col_stable = 'X'.CASE r_ucomm.WHEN 'SELALL'."全选PERFORM frm_sel_all.WHEN 'NOTSEL'."取消全选PERFORM frm_not_sel.WHEN OTHERS.ENDCASE.
ENDFORM.                    "FRM_USER_COMMANDFORM frm_pf_status_set USING i_extab TYPE slis_t_extab.DATA fcode TYPE TABLE OF sy-ucomm.REFRESH fcode.IF sy-tcode = 'ZEMM49'.APPEND 'DELETE' TO fcode.APPEND 'DELETE' TO i_extab.ENDIF.IF p_ygzcx = 'X'.APPEND 'GOODSMVT' TO fcode.SET PF-STATUS 'ZERP_MM039' EXCLUDING fcode.ELSE.SET PF-STATUS 'ZERP_MM039' EXCLUDING i_extab.ENDIF.
ENDFORM.                    "FRM_PF_STATUS_SETFORM frm_caller_exit USING ls_data TYPE slis_data_caller_exit.CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'IMPORTINGe_grid = go_alvgrid.CREATE OBJECT go_event_receiver.SET HANDLER go_event_receiver->handle_modify49 FOR go_alvgrid.CALL METHOD go_alvgrid->register_edit_eventEXPORTINGi_event_id = cl_gui_alv_grid=>mc_evt_modifiedEXCEPTIONSerror      = 1OTHERS     = 2.
ENDFORM.                    "CALLER_EXIT
================================

下载模板文件 zcl_salv=>down_temp

================================
zcl_salv=>down_temp( EXPORTING i_fname = 文件名i_objid = 文件id ).
================================

按钮弹窗 ‘POPUP_TO_CONFIRM’

================================
CALL FUNCTION 'POPUP_TO_CONFIRM'EXPORTINGtext_question  = '已经有过账记录，是否继续？'text_button_1  = '是'(003)text_button_2  = '否'(004)IMPORTINGanswer         = l_answerEXCEPTIONStext_not_found = 1OTHERS         = 2.
IF sy-subrc <> 0.
ENDIF.IF l_answer EQ 'A'. "取消EXIT.
ELSEIF l_answer <> '1'. "是EXIT.
ENDIF.
================================

格式/内外码转换 ‘CONVERSION_EXIT_ABPSP_OUTPUT’ ‘CONVERSION_EXIT_CUNIT_OUTPUT’ ‘CONVERSION_EXIT_ALPHA_OUTPUT’

================================
# 进入字段的域,双击"定义"页签中的"例程"字段可以看到转换函数
IF gt_data-pspel IS NOT INITIAL.
CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT'    "函数1.    WBS内码转为外码EXPORTINGinput = gt_data-pspel  "或者projnIMPORTINGoutput = gt_data-posid.  "(40) TYPE C
ENDIF.IF gt_data-posid IS NOT INITIAL.
CALL FUNCTION 'CONVERSION_EXIT_ABPSP_INPUT'    "函数2.    WBS外码转为内码EXPORTINGinput = gt_data-posidIMPORTINGoutput = gt_data-pspel.  "或者projn
ENDIF.IF gwa_dis-meinh IS NOT INITIAL.CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'    "函数3.    计量单位外码转为内码EXPORTINGinput  = gwa_dis-meinh  IMPORTINGoutput = gwa_dis-meinh.
ENDIF.IF gwa_dis-meinh IS NOT INITIAL.CALL FUNCTION 'CONVERSION_EXIT_CUNIT_INPUT'    "函数4.    计量单位内码转为外码EXPORTINGinput  = gwa_dis-meinhIMPORTINGoutput = gwa_dis-meinh.
ENDIF.CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'     "函数5.    删除前导零EXPORTINGinput  = ls_sd002-kunnrIMPORTINGoutput = lv_kunnr.CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL'        "函数6.    日期转数字   该函数入参日期格式和当前登录用户设置有关EXPORTINGdate_external            = 'YYYY-MM-DD'IMPORTINGdate_internal            = 00000000CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'        "函数7.    数字转日期  该函数出参日期格式和当前登录用户设置有关EXPORTINGdate_internal            = 00000000IMPORTINGdate_external            = 'YYYY-MM-DD'
================================

写入长文本 ‘SAVE_TEXT’

================================               
DATA:lt_text LIKE STANDARD TABLE OF tline WITH HEADER LINE. "本
DATA:ls_header LIKE thead.
DATA:lt_editor TYPE STANDARD TABLE OF ty_editor.CALL FUNCTION 'RH_EDITOR_GET'EXPORTINGcontrolname    = 'NOTE'     "定制控制名称TABLESlines          = lt_editorEXCEPTIONSinternal_error = 1OTHERS         = 2.ls_header-tdobject   = 'ZERP_SD002'. "文本对象
ls_header-tdname     = ztsd006_header-znumber.  "文本对象名
ls_header-tdspras    = sy-langu.      "语言
ls_header-tdid       = 'Z001'.   "文本ID
ls_header-tdlinesize = '72 '.   "行宽MOVE-CORRESPONDING lt_editor TO lt_text[].CALL FUNCTION 'SAVE_TEXT'EXPORTINGclient          = sy-mandtheader          = ls_headersavemode_direct = 'X'
*    INSERT          = 'X'TABLESlines           = lt_text.
================================

获取长文本 ‘READ_TEXT’

================================
DATA:l_name LIKE thead-tdname,lt_lines LIKE STANDARD TABLE OF tline,lwa_lines TYPE tline,lv_maktx(200) TYPE C.IF gs_data-matnr IS NOT INITIAL.CLEAR: l_name,lt_lines,lwa_lines.l_name = gt_data-matnr.CALL FUNCTION 'READ_TEXT'EXPORTING
*       CLIENT                    = SY-MANDTid                        = 'GRUN'    "STXL-TDID 读取文本的idlanguage                  = sy-languname                      = l_name  "STXL-TDNAME 读取文本对象的值object                    = 'MATERIAL'  "STXL-TDOBJECT 文本对象TABLESlines                     = lt_linesEXCEPTIONS                  id                        = 1language                  = 2name                      = 3not_found                 = 4object                    = 5reference_check           = 6wrong_access_to_archive   = 7OTHERS                    = 8.IF sy-subrc = 0.CLEAR gs_Data-maktx.LOOP AT lt_lines INTO lwa_lines.CONCATENATE lv_maktx lwa_lines-tdline INTO lv_maktx.ENDLOOP.gs_data-maktx = lv_maktx.CLEAR:lwa_lines,lv_maktx.ENDIF.
ENDIF.
# 获取参数方法:
1.编辑模式双击长文本或者点击进入WORD模式
2.菜单栏"转到"菜单,点击"表头"选项
3.弹出的"标识"字段是ID,"文本对象"即文本对象
================================

字段参考 ‘F4IF_INT_TABLE_VALUE_REQUEST’

================================CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'EXPORTINGretfield        = 'GRUND'value_org       = 'S'TABLESvalue_tab       = lt_t157ereturn_tab      = pt_f4EXCEPTIONSparameter_error = 1no_values_found = 2OTHERS          = 3.
"详情见代码模板 # ALV输入参考
================================

获取GUID ‘GUID_CREATE’

================================
DATA: l_id32 TYPE guid_32.
*DATA: l_id16 TYPE guid.CALL FUNCTION 'GUID_CREATE'IMPORTINGev_guid_32 = l_id32.
*    ev_guid_16 = l_id16.
================================

获取UUID 方法 cl_system_uuid=>if_system_uuid_static~create_uuid_c32

================================
DATA: l_id32 TYPE guid_32.TRY.CALL METHOD cl_system_uuid=>if_system_uuid_static~create_uuid_c32RECEIVINGuuid   = l_id32.
CATCH cx_uuid_error .MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDTRY.
================================