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
| Quintiq file version 2.0
| #parent: #root
| Method CreateStockingPoint (
| MacroPlan macroplan,
| String newStockingPointID
| )
| {
| Description: 'Create a stocking point with default values. (UoM=MT, currency = base currency)'
| TextBody:
| [*
| // Create product
| isPlannedInfinite := false;
| hasUserStart := true;
| hasUserEnd := true;
| start := macroplan.Start().Date();
| end := macroplan.End().Date();
| checkUnique := true;
| isFromDB := false;
| groupName := 'UTF';
| description := 'Stocking point for UTF';
|
| // Feedback messages
| feedback := '';
| sanityfb := '';
|
| // Ensure product can be created
| unitOfMeasure := select( macroplan, UnitOfMeasure_MP, uom, uom.Name() = 'MT' );
| currency := macroplan.BaseCurrency();
| canCreate := StockingPoint_MP::ValidateInput( feedback, macroplan, null( StockingPoint_MP ), newStockingPointID, newStockingPointID, hasUserStart, start,
| hasUserEnd, end, currency, unitOfMeasure, checkUnique, sanityfb )
| if( this.Run().AssertTrue( canCreate, 'Verify stocking point can be created: ' + feedback ) )
| {
| StockingPoint_MP::Create( macroplan,
| newStockingPointID,
| '', // Not belong to any unit
| newStockingPointID,
| unitOfMeasure.Name(),
| currency.ID(),
| isPlannedInfinite,
| start,
| end,
| groupName,
| description,
| isFromDB );
| }
| *]
| InterfaceProperties { Accessibility: 'Module' }
| }
|
|
