1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| Quintiq file version 2.0
| #parent: #root
| Method DeleteAllScenarioExceptBase
| {
| TextBody:
| [*
| // Delete scenario
| this->GetScenarioManagerStream()->( sm )
| {
| // Get food/metals folder
| folder := select( sm, ScenarioNode, scnode, scnode.Name() = this.GetDemoFolder() );
|
| // Iterate to delete all scenarios except base scenario
| traverse( folder, Children, scenario, scenario.Name() <> UTF_UnitTestMPBase::BaseScenarioName() )
| {
| scenario->DeleteFromRecycleBin();
| }
| }
| *]
| InterfaceProperties { Accessibility: 'Module' }
| }
|
|
