1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
| Quintiq file version 2.0
| #parent: #root
| Method CreateOptimizerPuzzle (
| MacroPlan macroplan
| ) as OptimizerPuzzle
| {
| Description: 'Create a subpuzzle South America, All products are included, QAlumimum is excluded, South America is included'
| TextBody:
| [*
| unitid := "South America"
| opt := select( macroplan, OptimizerPuzzle, optp, optp.Name() = 'SouthAmerica');
|
| if ( isnull( opt ) )
| {
| opt := OptimizerPuzzle::Create( macroplan, 'SouthAmerica', '', false, false, null( OptimizerPuzzleWIP ) );
| opt.SubsetEntityInOptimizerPuzzle( relnew,
| OptimizerPuzzleName := opt.Name(),
| IsIncluded := true,
| IsUserAction := true,
| EntityID := unitid,
| EntityType := typeof( Unit ).ShortName() );
| opt.SubsetEntityInOptimizerPuzzle( relnew,
| OptimizerPuzzleName := opt.Name(),
| IsIncluded := false,
| IsUserAction := true,
| EntityID := 'QAluminum',
| EntityType := typeof( Unit ).ShortName() );
| }
| return opt;
| *]
| InterfaceProperties { Accessibility: 'Module' }
| }
|
|
