Add Create/Update Method For SRMHeader

yanweiyuan3

2023-08-09 588bc7829387dfc761cc25f06f77d4c81818bd10

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 SelectIntegrationDatasetIfExists () id:Method_LibDIF_GlobalState_SelectIntegrationDatasetIfExists
{
  #keys: '[146730.0.571963926]'
  Body:
  [*
    // Get the name of the ImportExport-dataset based on the name of planning-dataset.
    componentMDS := null( ComponentMDSBase, owning );
    mdsInstance  := null( ComponentMDSInstance );
    api          := dhIntegrationAPI.Data();
    
    if( not isnull( api ) )
    {
      // Get the full name of the dataset.
      datasetName := LibDIF_IntegrationDataset::GetFullName( api.GetDatasetName() );
    
      // Find the Integration-dataset.
      // Create a handle to the componentMDS, refresh it and get the LoadedMDSes again.
      // An explicit refresh is required to see the Integration-dataset when it was just loaded by GetIntegrationDataset().
      componentMDS := ComponentMDS::CreateForLoadedMDSsOnly( Application );
    
      componentMDS.Refresh();
      componentMDS := ComponentMDS::CreateForLoadedMDSsOnly( Application );
    
      mdsInstance  := select( componentMDS, ComponentMDSKinds.ComponentMDSInstances, instance,
                              instance.ComponentMDSKind().Kind() = LibDIF_IntegrationDataset::DATASETKIND()   and
                              instance.Parent().Name()           = LibDIF_IntegrationDataset::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 Integration-dataset otherwise, because it belongs to a different planning-dataset.
      mdsInstance := select( componentMDS, ComponentMDSKinds.ComponentMDSInstances, instance,
                             instance.ComponentMDSKind().Kind() = LibDIF_IntegrationDataset::DATASETKIND() and
                             instance.IsSelected() );
      if( not isnull( mdsInstance ) )
      {
        mdsInstance.ComponentMDSKind().DeselectAll();
        componentMDS.Apply();
      }
    }
  *]
}