1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| Quintiq file version 2.0
| #parent: #root
| Function CalcSuggestedIdentifierName
| {
| TextBody:
| [*
| value := '';
|
| identifiers := selectsortedset( this, TG_UIObjectIdentifier, id, true, id.Index() );
| traverse( identifiers, Elements, id )
| {
| if( value <> '' )
| {
| value := value + '_';
| }
|
| value := value + id.CreatedName();
| }
|
| this.SuggestedIdentifierName( value );
| *]
| InterfaceProperties { Accessibility: 'Module' }
| }
|
|
