lazhen
2025-01-07 b3987122cbbc46c5c59d3173f37fca3170b6dc5a
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 );
  *]
}