yypsybs
2023-09-09 3cb5a54def670d97301f07170fcaad213bfc54f2
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Quintiq file version 2.0
#parent: mbMainMenu/MenuFindPeggingCircularity
Response OnClick () id:Response_mbMainMenu_MenuFindPeggingCircularity_OnClick
{
  #keys: '[110880.6.1270944478]'
  Body:
  [*
    // Find circularity in processes which causes circularity in pegging
    
    processes := construct( Process_MPs );
    string := MacroPlan.FindPeggingCircularity( processes );
    
    // Opens the view related to an Assumption
    opened := ApplicationScope.ViewManager().OpenView( "Pegging circular" );
    
    if( opened )
    {
      lanes := selectset( processes, Elements.astype( LaneLeg ).Lane, lane, true );       // LaneLeg is the detail list of lane. Thus, it should shown in the list to show the lane legs.
      processes := processes.Union( lanes );
      DataHolderProcessesForPeggingCircular.Data( &processes );      // The filter is stored in the view itself
    }
    
    MessageBox::Information( ApplicationLibMacroPlanner, string, '&OK' );
  *]
  CanBindMultiple: false
  DefinitionID: 'Responsedef_Menu_OnClick'
}