1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| Quintiq file version 2.0
| #parent: #root
| Method GetNewCopiedStockingPointName () declarative remote as String
| {
| Description: 'Get unique name for copying stocking points'
| TextBody:
| [*
| // yew wayne Mar-18-2013 (created)
| copiedname := this.Name() + GlobalParameters_MP::GetCopyString();
| retvalue := copiedname;
| number := 1;
| while( exists( this.MacroPlan(),
| StockingPoint_MP,
| sp,
| sp.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;
| *]
| }
|
|
