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
Quintiq file version 2.0
#parent: #root
Function CalcSuggestedModeledType
{
  TextBody:
  [*
    selection := select( this, TG_UIResponseArgument, arg,
                         arg.Name() = 'selection'
                         and arg.ArgumentType() <> '' );
    
    if( isnull( selection ) )
    {
      selection := minselect( this, TG_UIResponseArgument, arg,
                              arg.IsBinding()
                              and arg.ArgumentType() <> '',
                              arg.Name() );
    }
    
    value := guard( selection.ArgumentType(), '' );
    
    if( value = '' )
    {
      databinding := this.DialogDataBinding();
      value := databinding;
    }
    
    value := value.ReplaceAll( 'shadow[', '' )
                  .ReplaceAll( 'structured[', '' )
                  .ReplaceAll( ']', '' );
    
    this.SuggestedModeledType( value );
  *]
  InterfaceProperties { Accessibility: 'Module' }
}