表维护生成器添加事件

一、自建表创建表维护生成器，添加和修改数据时，记录修改时间和用户

自建表添加日期、时间、用户字段

表维护生成器中添加事件

 添加01和05事件

01 在数据库中保存数据前

05 建立新的条目

 新增数据时记录日志


"-----------------------------@斌将军-----------------------------
FORM z_insert_data .
  zpst_prart-zgxdate = sy-datum.
  zpst_prart-zgxtime = sy-uzeit.
  zpst_prart-zgxuser = sy-uname.
ENDFORM.
"-----------------------------@斌将军-----------------------------

修改数据时记录日志

"-----------------------------@斌将军-----------------------------
FORM z_update_data .
  FIELD-SYMBOLS : <fs_field> TYPE any .
  LOOP AT total .
    CHECK <action> EQ aendern.
    ASSIGN COMPONENT 'ZGXUSER' OF STRUCTURE <vim_total_struc> TO <fs_field> .
    IF sy-subrc = 0 .
      <fs_field> = sy-uname .
    ENDIF.
    ASSIGN COMPONENT 'ZGXDATE' OF STRUCTURE <vim_total_struc> TO <fs_field> .
    IF sy-subrc = 0 .
      <fs_field> = sy-datum .
    ENDIF.
    ASSIGN COMPONENT 'ZGXTIME' OF STRUCTURE <vim_total_struc> TO <fs_field> .
    IF sy-subrc = 0 .
      <fs_field> = sy-uzeit .
    ENDIF.
    READ TABLE extract WITH KEY <vim_xtotal_key>.
    IF sy-subrc = 0.
      extract = total .
      MODIFY extract INDEX sy-tabix.
    ENDIF.
    MODIFY total.
  ENDLOOP.
ENDFORM.
"-----------------------------@斌将军-----------------------------

 

定期更文，欢迎关注

 
posted @ 2022-04-21 19:42  斌将军  阅读(178)  评论(0)  编辑  收藏  举报