1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| Quintiq file version 2.0
| #parent: #root
| Method CreateAttributes
| {
| TextBody:
| [*
| objectdef := select( DomainModel::Domain(), ObjectDefinitions.Elements, od, od.Name() = this.ModeledType() );
|
| if( not isnull( objectdef ) )
| {
| traverse( objectdef, Attributes, attr )
| {
| TG_UIObjectAttribute::FindOrCreate( this,
| attr.Name(),
| attr.ValueType().Name(),
| attr.IsReadOnly(),
| attr.IsDerived(),
| 'Attribute' );
| }
| }
| *]
| }
|
|
