1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Quintiq file version 2.0
| #parent: #root
| Method GetNewCopiedName () declarative remote as String
| {
| Description: 'Get new unique name for new shift pattern.'
| TextBody:
| [*
| copiedname := this.Name() + GlobalParameters_MP::GetCopyString();
| retvalue := copiedname;
| number := 1;
| while( exists( this.MacroPlan(), ShiftPattern, p, p.Name() = retvalue ) )
| {
| retvalue := GlobalParameters_MP::GetExtendedStringWithNumber( copiedname, number );
| number++;
| }
| return retvalue;
| *]
| }
|
|
