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 CreateUnitNode (
| SupplyChainView view,
| Boolean isvisible,
| Number gridx,
| Number gridy,
| String textcolor,
| Boolean istexttop,
| Boolean isnamevisible
| )
| {
| Description: 'Creation of unit node for custom draw component'
| TextBody:
| [*
| traverse( this, MacroPlan.ViewBase.astype( SupplyChainView ), scv )
| {
| if( not exists( this, UnitNode, un,
| un.SupplyChainView() = scv ) )
| {
| visible := false;
|
| if( isnull( view ) or scv = view )
| {
| visible := isvisible;
| }
| UnitNode::Create( scv, this, visible, gridx, gridy, textcolor, istexttop, isnamevisible );
| }
| }
| *]
| }
|
|
