admin
2025-01-22 7e31442f0e9b07764e9c6a9680d3d4aeba5fe1de
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
Quintiq file version 2.0
#parent: #root
Method SendMetadataRequestSetTypeInterestDeleted (LibDEF_SetTypeInterestOfDataset datasetInterest_i, Boolean isDatasetEvent_i)
{
  Description: 'Send a Metadata message for requesting the SetTypeInterest to be deleted.'
  TextBody:
  [*
    nvt := LibDEF_DataAccessor::CreateMessageMetadata();
    
    // Don't delete the SetInterests that where explicitly created.
    setGUIDsExcludedFromDeletion := selectvalues( datasetInterest_i,
                                                  SetTypeMeta.SetMeta.SetInterestOfDataset,
                                                  setInterestOfDataset,
                                                  not setInterestOfDataset.IsCreatedFromSetTypeInterest(),
                                                  setInterestOfDataset.SetMeta().GUID() );
    
    // define Type and required Header
    LibDEF_DataAccessor::SetMetadataHeaderProperty( nvt, LibDEF_DataAccessor::HEADER_TYPE(),                         LibDEF_DataAccessor::TYPE_METADATA_SETTYPEINTERESTDELETED() );
    LibDEF_DataAccessor::SetMetadataHeaderProperty( nvt, LibDEF_DataAccessor::HEADER_SETTYPEGUID(),                  datasetInterest_i.SetTypeMeta().GUID()                      );
    LibDEF_DataAccessor::SetMetadataHeaderProperty( nvt, LibDEF_DataAccessor::HEADER_SETGUIDSEXCLUDEDFROMDELETION(), setGUIDsExcludedFromDeletion.ToString( "," )                );
    LibDEF_DataAccessor::SetMetadataHeaderProperty( nvt, LibDEF_DataAccessor::HEADER_DATASETMDSID(),                 datasetInterest_i.DatasetMDSID()                            );
    LibDEF_DataAccessor::SetMetadataHeaderProperty( nvt, LibDEF_DataAccessor::HEADER_DATASETDTD(),                   datasetInterest_i.DataTransformationDefinition()            );
    LibDEF_DataAccessor::SetMetadataHeaderProperty( nvt, LibDEF_DataAccessor::HEADER_ISDATASETEVENT(),               isDatasetEvent_i                                            );
    
    dataBroker := this.DataBroker();
    event      := dataBroker.EventCreate( this, false );
    
    LibDEF_Util::EventLog( event, "Sending SetTypeInterest deleted metadata request" );
    
    dataBroker.SendMessage( this, nvt, LibDEF_DataAccessor::KIND_REQUEST(), event );
  *]
  InterfaceProperties { Accessibility: 'Module' }
}