Quintiq file version 2.0
|
#parent: mbMainMenu/MenuFixKB
|
Response OnClick () id:Response_mbMainMenu_MenuFixKB_OnClick
|
{
|
#keys: '[11660.0.239015373]'
|
Body:
|
[*
|
//Edit a kb branch without active dataset
|
editor := CKBEditor::Create();
|
kbidset := editor.GetKBs();
|
kbid := select( kbidset, Elements, e, true, e.Name() = ScenarioManager.CompanyKBName() );
|
kbfullidset := editor.GetKBStructure( kbid );
|
kbfullidsortedset := selectsortedset( kbfullidset, Elements.KBFullID, kbfullid, true, kbfullid.Branch(), - kbfullid.ChangeNr() )
|
|
branch := '';
|
traverse( kbfullidsortedset, Elements, kbfullid )
|
{
|
if ( branch <> kbfullid.Branch())
|
{
|
progress('Validating KB Name:' + kbfullid.Name() + ' branch:', kbfullid.Branch() + ' Change Nr:'+ [String]kbfullid.ChangeNr() );
|
|
kbf := KBFullID::Create( kbfullid.Domain(), kbfullid.Name(), kbfullid.Branch(), kbfullid.Version(), kbfullid.ChangeNr() );
|
modelkb := editor.GetModelKB(kbf.KBID());
|
|
ckbhandle := editor.LoadKB( kbfullid );
|
//ckbhandle := editor.LoadNewestKBChange( kbfullid );
|
// Apply the KB Structure as defined in the Model to the current KB
|
ckbhandle.CKB().Upgrade( modelkb.CKB() );
|
if ( ckbhandle.CKB().ValidateAll() )
|
{
|
editor.LockKB( ckbhandle.CKB().ID());
|
editor.SaveKB( ckbhandle, '0' );
|
editor.UnlockKB( ckbhandle.CKB().ID() );
|
}
|
branch := kbfullid.Branch();
|
}
|
}
|
*]
|
DefinitionID: 'Responsedef_Menu_OnClick'
|
UserRequiresReadWrite: true
|
}
|
