2. 在SE54中维护事件,通用
3. form代码, 通用<唯一需要把表名替换成,你自己的数据库表>
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 |
FORM FRM_SAVE_LOG_MAPP. DATA: L_INDEX LIKE SY-TABIX. DATA: BEGIN OF LS_TOTAL. INCLUDE STRUCTURE <font color="#ff0000">ZILP008_MAPP</font>. INCLUDE STRUCTURE VIMTBFLAGS. DATA :END OF LS_TOTAL. DATA: LS_RECORD TYPE <font color="#ff0000">ZILP008_MAPP</font>. CLEAR: LS_TOTAL,LS_RECORD. LOOP AT TOTAL INTO LS_TOTAL. IF LS_TOTAL-VIM_ACTION = AENDERN OR LS_TOTAL-VIM_ACTION = NEUER_EINTRAG. * OR ( status-mode EQ 'L' AND ls_total-vim_mark EQ 'M' ). MOVE-CORRESPONDING LS_TOTAL TO LS_RECORD. IF LS_RECORD-CUNAME IS INITIAL. LS_RECORD-CUNAME = SY-UNAME. LS_RECORD-CDATUM = SY-DATUM. LS_RECORD-CUZEIT = SY-UZEIT. ELSE. LS_RECORD-EUNAME = SY-UNAME. LS_RECORD-EDATUM = SY-DATUM. LS_RECORD-EUZEIT = SY-UZEIT. ENDIF. READ TABLE EXTRACT WITH KEY LS_TOTAL. IF SY-SUBRC EQ 0. L_INDEX = SY-TABIX. ELSE. CLEAR L_INDEX. ENDIF. MOVE-CORRESPONDING LS_RECORD TO LS_TOTAL. MODIFY TOTAL FROM LS_TOTAL. CHECK L_INDEX GT 0. MODIFY EXTRACT INDEX L_INDEX FROM LS_TOTAL. ENDIF. ENDLOOP. ENDFORM. |
