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
| Quintiq file version 2.0
| #parent: #root
| Method CreateSCVLaneNode (
| output owning shadow[SCVConfiguration] scvConfig,
| shadow[SCVNode] ownernode,
| LaneLeg laneleg,
| Boolean isupstream
| ) as shadow[SCVNode] id:Method_FormSupplyChainVisualization_CreateSCVLaneNode
| {
| #keys: '[134266.1.1601330435]'
| Body:
| [*
| // Find create lane node from lane leg
| lane := laneleg.Lane();
|
| // Get the lane node if it has been created
| scvNode := this.GetLaneNode( &scvConfig, ownernode, lane, isupstream )
|
| if( isnull( scvNode ) )
| {
| scvNode := scvConfig.SCVNode( relnew,
| SCVLaneNode,
| Lane := lane,
| Name := lane.Name() );
|
| this.CreateSCVEdge( &scvConfig, ownernode, scvNode, isupstream, laneleg );
| }
|
| return scvNode;
| *]
| }
|
|
