Quintiq file version 2.0
|
#parent: MenuCreateDefaultKB
|
Response OnClick () id:Response_FormKBManagement_MenuCreateDefaultKB_OnClick
|
{
|
#keys: '[101320.0.110724530]'
|
Body:
|
[*
|
editor := CKBEditor::Create();
|
kb := select( MacroPlan.MDSMacroPlan(), MDSKBs, kb, kb.Name().ToUpper() = ScenarioManager.CompanyKBName().ToUpper() );
|
kbfullid := KBFullID::Create( kb.Domain(), kb.Name(), kb.Branch(), kb.Version(), kb.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( GlobalParameters_MP::GetKB() );
|
description := 'KB1';
|
|
//Perform the actual saveAs action
|
editor.SaveKBAs( modelkb, modelkb.CKB().ID(), description);
|
saveid.ChangeNr( 1 );
|
*]
|
CanBindMultiple: false
|
DefinitionID: 'Responsedef_Menu_OnClick'
|
UserRequiresReadWrite: true
|
}
|
