haorenhui
2023-10-30 6d6cc10d9e8e242661da7fd655dec155a09d676c
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
Quintiq file version 2.0
#parent: #root
Method GetExtensionTypeQueryURL () const remote as String
{
  TextBody:
  [*
    url := this.RootURL().TrimBoth();
    
    if( url = '' )
    {
      url := '<3DSpace URL>';
    }
    
    if( not url.EndsWith( '/' ) )
    {
      url := url + '/';
    }
    
    extensions := selectuniquevalues( this, Entities.Extensions, extension,
                                      true,
                                      extension.Type() );
    
    selects := construct( Strings );
    traverse( extensions, Elements, extension )
    {
        extension := extension.ReplaceAll( ' ', '%20' );
        selects.Add( 'select=interface%5B' + extension + '%5D.name&select=interface%5B' + extension + '%5D.allparents' );
    }
    
    url := url + 'resources/v1/model/op/fetch?' + selects.ToString( '&' );
    
    return url;
  *]
  InterfaceProperties { Accessibility: 'Module' }
}