写过的代码笔记

拆分字符串

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'  '' ''.

猜你喜欢