拆分字符串
DATA text TYPE string.
text = `What a drag it is getting old`.
SPLIT text AT space INTO: DATA(str1) DATA(str2) DATA(str3),
TABLE DATA(itab).
拆分带汉字的
DATA: STR1 TYPE STRING,
STR2 TYPE STRING,
STR3 TYPE STRING,
STR4 TYPE KNA1-KUNNR,
ITAB TYPE TABLE OF STRING,
TEXT TYPE STRING,
LV_STR TYPE STRING.
LV_STR = '返利-'.
TEXT = `补提 1701-1703 返利-100026`.
SPLIT TEXT AT LV_STR INTO STR1 STR2 .
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = STR2
IMPORTING
OUTPUT = STR4.
通过一个内表的字段 等于系统的表的字段 为条件 去取出系统表的某几个字段
IF GT_ALV IS NOT INITIAL.
SELECT
KUNNR NAME1 SORTL
INTO TABLE LT_CUSTOM
FROM KNA1
FOR ALL ENTRIES IN GT_ALV
WHERE KUNNR = GT_ALV-KUNNR.
ENDIF.
CLEAR GW_ALV.
SORT LT_CUSTOM BY KUNNR.
LOOP AT GT_ALV INTO GW_ALV.
CLEAR:LW_CUSTOM.
READ TABLE LT_CUSTOM INTO LW_CUSTOM WITH KEY KUNNR = GW_ALV-KUNNR BINARY SEARCH. " 使用BINARY SEARCH之前 需要对查找字段进行排序
IF SY-SUBRC = 0.
GW_ALV-NAME1 = LW_CUSTOM-NAME1.
GW_ALV-SORTL = LW_CUSTOM-SORTL.
MODIFY GT_ALV FROM GW_ALV.
ENDIF.
ENDLOOP.
function alv REUSE_ALV_GRID_DISPLAY中 IT_SORT 用法
CLEAR gw_sort.
gw_sort-fieldname = 'VKORG'. "排序字段
gw_sort-spos = 1.
gw_sort-up = 'X'. "升序
APPEND gw_sort TO gt_sort.
is_layout 用法
GW_LAYOUT-ZEBRA = 'X'. “斑马线显示格式 striped pattern
GW_LAYOUT-BOX_FIELDNAME = 'BOX'. "增加选择字段 即ALV前面多一列选择块 可以选择多行
gw_layout-COLWIDTH_OPTIMIZE = 'X'.
gw_layout-WINDOW_TITLEBAR = '金额明细'.
IT_FIELDCAT
DEFINE SET_FIELDCAT.
GW_FIELDCAT-FIELDNAME = &1.
GW_FIELDCAT-seltext_l = &2.
GW_FIELDCAT-seltext_m = &2.
GW_FIELDCAT-seltext_s = &2.
GW_FIELDCAT-outputlen = &3.
GW_FIELDCAT-JUST = &4.
GW_FIELDCAT-ref_fieldname = &5.
GW_FIELDCAT-ref_tabname = &6.
* IF GW_FIELDCAT-FIELDNAME EQ 'ZYFJE'.
* GW_FIELDCAT-DO_SUM = 'X'.
* ENDIF.
APPEND GW_FIELDCAT TO GT_FIELDCAT.
CLEAR GW_FIELDCAT.
END-OF-DEFINITION.
REFRESH GT_FIELDCAT.
SET_FIELDCAT 'BUKRS' '公司代码' 8 'L' '' ''.
SET_FIELDCAT 'ZSQDH' '申请单号' 15 'L' '' ''.
SET_FIELDCAT 'ZSQDXM' '申请单项目' 10 'L' '' ''.
SET_FIELDCAT 'BELNR' '发票凭证编号' 12 'L' '' ''.
SET_FIELDCAT 'GJAHR' '年度' 4 'L' '' ''.
SET_FIELDCAT 'MONAT' '期间' 4 'L' '' ''.
SET_FIELDCAT 'ZSQJE' '申请金额' 13 'L' 'WRBTR' 'ZZFI006_ITEM'.
SET_FIELDCAT 'ZYFJE' '付款金额' 13 'L' 'WRBTR' 'ZZFI006_ITEM'.
SET_FIELDCAT 'EBELN' '采购凭证号' 10 'L' '' ''.
SET_FIELDCAT 'EBELP' '采购凭证的项目号' 5 'L' '' ''.
SET_FIELDCAT 'SAKNR' '总帐科目' 10 'L' '' ''.
SET_FIELDCAT 'ZFKPZ' '付款凭证' 10 'L' '' ''.
SET_FIELDCAT 'ZYHKM' '科目' 10 'L' '' ''.
SET_FIELDCAT 'PS_PSP_PNR' 'WBS元素' 12 'L' '' ''.