1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| Quintiq file version 2.0
| #parent: #root
| Method GetNewCopiedUnitName () remote as String
| {
| Description: 'Get new name for copy unit'
| TextBody:
| [*
| copiedname := this.Name() + GlobalParameters_MP::GetCopyString();
| retvalue := copiedname;
| number := 1;
| while( exists( this.MacroPlan(),
| Unit,
| u,
| u.ID() = retvalue ) ) // Check ID because ID conflict is more important than name, but we still want to keep the Name as the source
| {
| retvalue := GlobalParameters_MP::GetExtendedStringWithNumber( copiedname, number );
| number++;
| }
|
| return retvalue;
| *]
| }
|
|
