修复一些bug

xiaoding721

2024-12-11 922e32f3483318a2f733b8a3d9074264d6bd3613

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
Quintiq file version 2.0
#parent: #root
Function CalcSuggestedName
{
  TextBody:
  [*
    value := this.GetNamePrefix();
    
    if( this.Type().StartsWith( 'OnDropEmpty' ) )
    {
      value := value + this.GetSource().ReplaceAll( 'structured[', '' ).ReplaceAll( ']', '' );
      
      value := value + 'OnEmpty';
    }
    else if( this.Type().StartsWith( 'OnDrop' ) )
    {
      value := value + this.GetSource().ReplaceAll( 'structured[', '' ).ReplaceAll( ']', '' );
      
      if( this.TG_UIComponent().TG_UIForm().TG_TestGenerator().TG_GlobalParameter().OnDropAlwaysShowTarget()
          or this.HasPossibleMultipleTargets() )
      {
        value := value + 'On' + this.GetTarget();
      }
    }
    else if( this.Type() = 'OnClick (Menu)' )
    {
      value := value + TG_TestGenerator::ConvertToIdentiferCamelCase( this.MenuText() );
      
      if( this.TG_UIComponent().TG_TestGenerator().TG_GlobalParameter().MethodMenuNameAppendIdentifier() )
      {
        identifiername := this.GetSuggestedIdentifierName();
        if( identifiername <> '' )
        {
          value := value + 'By' + identifiername;
        }
      }
    }
    
    //// TODO : Max character for identifier
    //value := value.SubString( 0, minvalue( value.Length(), 30 ) );
    
    this.SuggestedName( value );
  *]
}