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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
| Quintiq file version 2.0
| #parent: #root
| Method New (
| internal[GUIComponent] parent
| ) as ServiceLevel id:Method_DialogCreateEditServiceLevel_New
| {
| #keys: '[113694.2.1011960792]'
| Body:
| [*
| // Create new service level
|
| product := guard( DataHolderChildProducts.Data().Element( 0 ),
| select( MacroPlan, Product_MP, e, true ) );
|
| stockingpoint := guard( DataHolderChildStockingPoints.Data().Element( 0 ),
| select( MacroPlan, StockingPoint_MP, e, true ) );
|
| data := MacroPlan.ServiceLevel( relshadow,
| ID := MacroPlan.IDHolder().GetServiceLevelID(),
| Product_MP := product,
| StockingPoint_MP := stockingpoint,
| Start := MacroPlan.Start().Date(),
| End := MacroPlan.End().Date() );
|
| Dialog.Data( data );
|
| this.EnableDisableComponents();
|
| result := this.DoModal( parent );
|
| servicelevel := null( ServiceLevel )
|
| if( result > 0 )
| {
| servicelevel := ServiceLevel::Create( MacroPlan,
| '',// id, auto generate by system
| data.IsEnabled(),
| data.Name(),
| data.Product_MP(),
| data.StockingPoint_MP(),
| data.SalesSegment_MP(),
| data.TargetPercentage(),
| data.Start(),
| data.End(),
| true,
| false,
| false );
|
| }
|
| return servicelevel;
| *]
| }
|
|
