给内表中的行生成有规律不重复的唯一编号

  • A+
所属分类：应用系统

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

 

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: