chenqinghong
2024-05-07 3ec06a830367465068963156dcc1d8e522571c13
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
Quintiq file version 2.0
#parent: selProject
Response OnCreated () id:Response_selProject_OnCreated
{
  #keys: '[103546.0.54981199]'
  Body:
  [*
    //Get available user projects/applications
    userprojects := construct( Strings );
    
    traverse( UserInterfaceManager::Instance(), RunnableUserInterfaceIDs, ruiid, true )
    {
      if( ruiid.Properties().LinkToDomainModel() )
      {
        userprojects.Add( ruiid.ID() + "," + ruiid.Description() );
      }
    }
    
    this.Strings( userprojects.ToString( ";" ) );
    
    //Set selected user projects (if available)
    script := Dialog.Data();
    
    if( not isnull( script ) )
    {
      this.BoundValue( script.Project() );
    }
  *]
  CanBindMultiple: false
  DefinitionID: 'Responsedef_GUIComponent_OnCreated'
}