|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
DATA ZKEY_TMP(25) TYPE C. "数据库表唯一主键 DATA ZKEY(25) TYPE C. "数据库表唯一主键 DATA ZCOUNT(6) TYPE N. "6位流水号 ZKEY = ''. "ZKEY = 工号(5) + 当前日期和时间(14) + 6位流水号 CONCATENATE SY-UNAME SY-DATUM SY-UZEIT INTO ZKEY_TMP . LOOP AT GT_SNAPSHOT. ZCOUNT = ZCOUNT + 1. CONCATENATE ZKEY_TMP ZCOUNT INTO ZKEY. GT_SNAPSHOT-ZKEY = ZKEY. modify GT_SNAPSHOT. CLEAR GT_SNAPSHOT . ENDLOOP. REFRESH GT_SNAPSHOT[]. ZCOUNT = ''. |