yypsybs
2023-10-10 550ebcf02217f8a0c6fe9001fcfa8e42e9cd6b83
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
Quintiq file version 2.0
#parent: #root
Method InstantiateAndSelectKB (
  Scenario scenario
) id:Method_DialogCreateEditScenario_InstantiateAndSelectKB
{
  #keys: '[134266.1.2021821195]'
  Body:
  [*
    //Instantiate knowledge
    /*
    Domain.PublishKnowledge();
    editor := CKBEditor::Create();
    kbfullid := maxselect ( DataHolderKB.Data(), Elements.KBFullID, k, k.Name().ToUpper() = ScenarioManager.CompanyKBName().ToUpper(), k.ChangeNr() );
    ids := editor.GetKBs();
    mid := selectobject (ids, Elements, e, e.Domain() = kbfullid.Domain() and e.Name() = kbfullid.Name(), true)
    modelkb := editor.GetModelKB( mid );
    
    //get a copy so we could edit
    saveid := modelkb.CKB().ID();
    saveid.Version( "1.0.0.0" );
    saveid.Branch( edtBranch.Text() );
    
    //Perform the actual saveAs action
    editor.SaveKBAs( modelkb, modelkb.CKB().ID(), '');
    saveid.ChangeNr( 1 );
    
    //Select the new KB for the MDS
    ApplicationMacroPlanner.SelectKB( scenario, saveid );
    
    return saveid;
  *]
}