优先级因子菜单

limj

2023-09-28 33be9f1e7cc38511f2bb4329fde8e14cc0cc1f09

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Quintiq file version 2.0
#parent: #root
Method SelectImportExportDatasetIfExists () id:Method_LibCal_GlobalState_SelectImportExportDatasetIfExists
{
  #keys: '[131094.1.1095801689]'
  Body:
  [*
    // Get the name of the ImportExport-dataset based on the name of planning-dataset.
    componentMDS := null( ComponentMDSBase, owning );
    mdsInstance  := null( ComponentMDSInstance );
    importExport := dhImportExport.Data();
    
    if( not isnull( importExport ) )
    {
      // Get the full name of the dataset.
      datasetName := LibCal_ImportExportDataset::GetFullName( dhImportExport.Data().GetDatasetName() );
    
      // Find the ImportExport-dataset.
      // Create a handle to the componentMDS, refresh it and get the LoadedMDSes again.
      // An explicit refresh is required to see the ImportExport-dataset when it was just loaded by EnsureImportExportDataset().
      componentMDS := ComponentMDS::CreateForLoadedMDSsOnly( Application );
    
      componentMDS.Refresh();
      componentMDS := ComponentMDS::CreateForLoadedMDSsOnly( Application );
    
      mdsInstance  := select( componentMDS, ComponentMDSKinds.ComponentMDSInstances, instance,
                              instance.ComponentMDSKind().Kind() = LibCal_ImportExportDataset::DATASETKIND()   and
                              instance.Parent().Name()           = LibCal_ImportExportDataset::DATASETFOLDER() and
                              instance.Name()                    = datasetName );
    }
    
    // Select the dataset if it exists...
    if( not isnull( mdsInstance ) )
    {
      mdsInstance.ComponentMDSKind().SelectInstance( mdsInstance );
      componentMDS.Apply();
    }
    else
    {
      // ... deselect the currenly selected ImportExport-dataset otherwise, because it belongs to a different planning-dataset.
      mdsInstance := select( componentMDS, ComponentMDSKinds.ComponentMDSInstances, instance,
                             instance.ComponentMDSKind().Kind() = LibCal_ImportExportDataset::DATASETKIND() and
                             instance.IsSelected() );
      if( not isnull( mdsInstance ) )
      {
        mdsInstance.ComponentMDSKind().DeselectAll();
        componentMDS.Apply();
      }
    }
  *]
}