Quintiq file version 2.0 
 | 
#parent: ListRun 
 | 
Response OnClick ( 
 | 
  structured[LibOpt_Run] selection 
 | 
) id:Response_ListRun_MenuDeleteRunWithoutFinalize_OnClick 
 | 
{ 
 | 
  #keys: '[139596.4.1119468922]' 
 | 
  Body: 
 | 
  [* 
 | 
    // Delete a Run 
 | 
    // Update status of snapshots to ensure that the list that is shown in the messagebox is up to date. 
 | 
    LibOpt_FormRun.Optimization().UpdateReplannableSnapshots(); 
 | 
     
 | 
    // Select the snapshots that were created by the runs that were started from the current dataset  
 | 
    datasetsnapshots := selectsortedset( selection, 
 | 
                                         Elements.Snapshot.astype( LibOpt_SnapshotReplannableCopyDataset ), 
 | 
                                         snapshot, 
 | 
                                         not snapshot.IsDatasetDeleted() 
 | 
                                         and snapshot.Run().MDSIDRun() = snapshot.MDSID(), 
 | 
                                         not snapshot.IsDatasetLoaded(), // First show the loaded datasets 
 | 
                                         snapshot.DatasetName() // Then sort on the name of the dataset.  
 | 
                                         );  
 | 
     
 | 
    message := Translations::LibOpt_Run_MessageBox_DeleteRuns(); 
 | 
    if( datasetsnapshots.Size() > 0 ) 
 | 
    { 
 | 
      datasetnamessorted := selectvalues( datasetsnapshots, // The sorting order from datasetsnapshots is maintained. 
 | 
                                          Elements, 
 | 
                                          snapshot, 
 | 
                                          true, 
 | 
                                          snapshot.DatasetName()  
 | 
                                          + ifexpr( snapshot.IsDatasetLoaded(), " - Dataset is loaded", "" ) 
 | 
                                          ); 
 | 
     
 | 
      // Add a list of all datasets that will be deleted to the message box. 
 | 
      message := Translations::LibOpt_Run_MessageBox_DeleteRuns_And_Datasets( datasetnamessorted );             
 | 
    } 
 | 
     
 | 
    if ( MessageBox::Question( this, message, '&Yes|&No' ) = 0 ) 
 | 
    { 
 | 
      LibOpt_Run::DeleteWithoutFinalize( selection ); 
 | 
    } 
 | 
  *] 
 | 
  CanBindMultiple: false 
 | 
  DefinitionID => /ListRun/Responsedef_ListRun_Menu_OnClick 
 | 
  Initiator: 'MenuDeleteRunWithoutFinalize' 
 | 
} 
 |