PeopleSoft-系统标准方法-按顺序生成编码

发表于 更新于 分类于 本文字数： 619 阅读时长 ≈ 1 分钟
如果需要生成流水号，并且需要保证该流水号不会被重复生成使用，那么需要使用PeopleSoft系统标准的方法。
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
/******************************
功能：调用系统标准方法，生成部门ID流水号;
=======================================
	时间			  作者 	     操作
	2021-4-9	   SIE_GEK       新建
*******************************/
If DEPT_TBL.DEPTID.Value = "NEW" Then
   Local number #
   SQLExec("SELECT DEPTID FROM PS_C_DEPT_SEQ_TBL", &strDEPTID);
   If All(&strDEPTID) Then
      //标准方法：获取当前流水号的下一个流水号，并且锁死该流水号；
      &num = GetNextNumberWithGapsCommit(C_DEPT_SEQ_TBL.DEPTID, 999999999, 1);
      DEPT_TBL.DEPTID.Value = #
   Else
      SQLExec("INSERT INTO PS_C_DEPT_SEQ_TBL VALUES('10000000')");
      CommitWork();
      DEPT_TBL.DEPTID.Value = "10000000";
   End-If;
End-If;