Quintiq file version 2.0
#parent: #root
Method NewKBBranch (
  internal[KBFullID] kbfullid,
  Scenario scenario
) id:Method_ApplicationLibMacroPlanner_NewKBBranch
{
  #keys: '[11122.0.58944168]'
  Body:
  [*
    // Save as ... for a KnowledgeBase
    saveid := kbfullid;
    
    dlg := construct( dlgEditKBID );
    dlg.Data( saveid );
    
    if (saveid.Branch() = '' )
    {
      edit := select (Domain.KnowledgeBaseDefinitions(),Elements,el,el.Name() = saveid.Name() and el.Domain().Domain() = saveid.Domain());
      dlg.EditorBranch().Text( edit.DefaultBranchName() );
      dlg.EditorVersion().Text( '1.0.0.0' );
    }
    
    if ( dlg.DoModal( this ) > 0 )
    {
      editor := CKBEditor::Create();
      componentmds := ComponentMDS::CreateForLoadedMDSsOnly( Application );
      mdsinstance := selectobject( componentmds, ComponentMDSKinds.ComponentMDSInstances, m, m.MDSID().Equals( scenario.DatasetMDSID() ) );
      mdshandle := mdsinstance.GetMDSHandle();
    
      if ( kbfullid.ChangeNr() = 0 )
      {
        ckbhandle := editor.LoadMDSKB( mdshandle, kbfullid.KBID() );
        modelkb := editor.GetModelKB( kbfullid.KBID() );
        ckbhandle.CKB().Upgrade( modelkb.CKB() );
    
        editor.ApplyMDSKB( mdshandle,ckbhandle, true );
      }
    
      editor.SaveMDSKBAs( mdshandle, saveid, 'New branch' );
      ScenarioManager.UpdateScenarioKBInfo( scenario, saveid.Name(), saveid.Branch(), saveid.ChangeNr(), scenario.State(), '' )
    }
  *]
}