limj
2023-10-24 93652435728de839582440eefd5122c281181d35
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Quintiq file version 2.0
#parent: #root
Method DeletePreviousKBChange (
  String branch,
  Number changenr
) id:Method_ApplicationLibMacroPlanner_DeletePreviousKBChange
{
  #keys: '[11660.0.605427882]'
  Body:
  [*
    // Delete previous KB change
    editor := CKBEditor::Create();
    
    kb := select( MacroPlan.MDSMacroPlan(), MDSKBs, kb, kb.Name() = ScenarioManager.CompanyKBName() and kb.Branch() = branch );
    kbfullid := KBFullID::Create( kb.Domain(), kb.Name(), kb.Branch(), kb.Version(), kb.ChangeNr() );
    
    editor.DeleteAllButLatestKBChange( kbfullid );
  *]
}