SAP ABAP SM30 排序处理

Jack.Huangjh

已于 2024-04-23 15:54:52 修改

阅读量480

点赞数 6

文章标签：后端

于 2024-01-04 10:59:40 首次发布

本文链接：https://blog.csdn.net/weixin_45879627/article/details/135381401

版权

** SAP ABAP SM30 排序处理**

FIELD-SYMBOLS : , .

在这里插入图片描述
<VIM_TOTAL_KEY> <VIM_XTOTAL_KEY> with KEY

根据表 DD03L 找到表字段所位置，算出位置及长度
ASSIGN EXTRACT+3(18) TO .
ASSIGN EXTRACT+21(1) TO .
SORT EXTRACT STABLE BY .

SM30 数据导入的刷新

  MODIFY ZTSD032B  FROM TABLE LT_DATA[] .
  IF SY-SUBRC = 0 .
    MESSAGE S000(SU)  WITH '数据导入成功！' .
    DATA : LV_VNAME  TYPE STRING .

    LV_VNAME = '(ZSD032B)GS_HEAD' .
    ASSIGN (LV_VNAME)  TO FIELD-SYMBOL(<FS>) .
    IF SY-SUBRC = 0 .
      <FS>    =   'ZSD032B'  .
      <FS>+30 =   'IMPORT'    .
      LEAVE TO SCREEN 0 .
    ENDIF.

```
   PERFORM FRM_GET_DATA .
```

   PERFORM FRM_CALL_VIEW(ZMM149M) USING 'U'.
ENDIF .

调用 sm30 函数调整：
CALL FUNCTION ‘VIEW_MAINTENANCE_CALL’
EXPORTING
ACTION = ‘U’
VIEW_NAME = ‘ZTSD032B’.

IF SY-SUBRC = 0 .
  IF  GS_HEAD-OPRNO = 'IMPORT' AND GS_HEAD-TABLENAME = 'ZSD032B'  .
    CLEAR  GS_HEAD .
    CALL FUNCTION 'VIEW_MAINTENANCE_CALL'
      EXPORTING
        ACTION    = 'U'
        VIEW_NAME = 'ZTSD032B'.
  ENDIF.
ENDIF.

sm30 更新字段

&---------------------------------------------------------------------
*& 包含 ZBC_I_SM30_LOG
&---------------------------------------------------------------------

DEFINE assign_field.

ASSIGN COMPONENT &1 OF STRUCTURE <ls_maintview> TO <lv_field>.
IF sy-subrc = 0.
IF <lv_field> IS ASSIGNED.
<lv_field> = &2.
ENDIF.
ENDIF.

END-OF-DEFINITION.

FORM create_entry.

FIELD-SYMBOLS:
<ls_maintview> TYPE any,
<lv_field> TYPE any.

CHECK x_header-maintview IS NOT INITIAL.

ASSIGN (x_header-maintview) TO <ls_maintview>.
CHECK sy-subrc = 0.
CHECK <ls_maintview> IS ASSIGNED.

assign_field ‘CREATED_DATE’ sy-datum.
assign_field ‘CREATED_TIME’ sy-uzeit.
assign_field ‘CREATED_USER’ sy-uname.

ENDFORM.

FORM change_entry.

DATA:
lo_data TYPE REF TO data,
lv_tabix TYPE sy-tabix.

FIELD-SYMBOLS:
<ls_maintview> TYPE any,
<lv_field> TYPE any.

IF x_header-maintview IS NOT INITIAL.
CREATE DATA lo_data TYPE (x_header-maintview).
IF lo_data IS BOUND.
ASSIGN lo_data->* TO <ls_maintview>.
ENDIF.
IF <ls_maintview> IS ASSIGNED.
IF = ‘U’.
LOOP AT total.
READ TABLE extract WITH KEY <vim_xtotal_key>.
IF sy-subrc = 0.
lv_tabix = sy-tabix.
ELSE.
CONTINUE.
ENDIF.
IF = ‘U’.
CLEAR <ls_maintview>.
MOVE-CORRESPONDING <vim_total_struc> TO <ls_maintview>.
assign_field ‘CHANGED_DATE’ sy-datum.
assign_field ‘CHANGED_TIME’ sy-uzeit.
assign_field ‘CHANGED_USER’ sy-uname.
MOVE-CORRESPONDING <ls_maintview> TO <vim_total_struc>.
MODIFY total.
extract = total.
MODIFY extract INDEX lv_tabix.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.