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 SetUniqueOptimizerPuzzleWIPName (
| MacroPlan owner
| )
| {
| Description: 'Create an unique name for optimizer puzzle wip'
| TextBody:
| [*
| wipname := this.Name() + Translations::MP_CopySuffix();
| retvalue := wipname;
| number := 1;
| while( not isnull( OptimizerPuzzle::FindOptimizerPuzzleTypeIndex( retvalue ) ) )
| {
| retvalue := GlobalParameters_MP::GetExtendedStringWithNumber( wipname, number );
| number++;
| }
|
| // Change name of OptimizerPuzzleWIP with new name created
| OptimizerPuzzleWIP::ChangeKeyOptimizerPuzzleWIPTypeIndex( this, retvalue, this.Username() );
| *]
| }
|
|
