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
| Quintiq file version 2.0
| #parent: #root
| Method CopyThenCreateSourcingRouting (
| MacroPlan macroplan,
| Routing routing,
| String newRoutingName,
| String outputProductID,
| String outputStockingPointID
| )
| {
| TextBody:
| [*
| // Copy routing, update output product
| copiedRouting := routing.Copy();
| allowWip := false;
| isFromDB := false;
|
| copiedRouting.Update( newRoutingName,
| newRoutingName,
| macroplan.Start().Date(),
| macroplan.End().Date(),
| allowWip,
| isFromDB );
|
| // Find output of product in stocking point.
| pisp := macroplan.FindProduct( outputProductID ).AddToStockingPoint( outputStockingPointID )
|
| traverse( copiedRouting, RoutingStep.Operation, op )
| {
| OperationBOM::Update( op.OperationBOM( relget ), pisp.Product_MP(), pisp.StockingPoint_MP() )
| }
| *]
| InterfaceProperties { Accessibility: 'Module' }
| }
|
|
