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
| Quintiq file version 2.0
| #parent: #root
| Method CreateFolder (
| ScenarioFolder scenariofolder,
| String name,
| String comment,
| String snopusername
| ) as ScenarioFolder
| {
| Description: 'Create a new scenario folder'
| TextBody:
| [*
| currentusername := GlobalParameters_MP::GetUserName();
|
| folder := construct( ScenarioFolder,
| Name := name,
| Comment := comment,
| CreatedBy := currentusername,
| CreatedOn := DateTime::Now(),
| CreatedBySnOPUsername := snopusername
| );
|
| folder.UpdateLastChanged();
| obj := null( ScenarioFolder );
|
| if( isnull( scenariofolder ) )
| {
| obj := this.AddRoot( &folder ).astype( ScenarioFolder );
| }
| else
| {
| obj := this.AddLeaf( scenariofolder, &folder ).astype( ScenarioFolder );
| }
|
| return obj;
| *]
| }
|
|
