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
| Quintiq file version 2.0
| #parent: #root
| Method LinkToUIObject
| {
| TextBody:
| [*
| if( this.IsBinding() and this.ArgumentType() <> '' )
| {
| modeledtype := this.ArgumentType().ReplaceAll( 'structured[', '' ).ReplaceAll( ']', '' );
| owner := this.TG_UIResponse().TG_UIComponent().TG_UIForm().TG_TestGenerator();
|
| objecttype := select( DomainModel::Domain(), ObjectDefinitions.Elements, od, od.Name() = modeledtype );
| if( not isnull( objecttype ) )
| {
| tg_objecttype := TG_UIObject::FindOrCreate( owner, modeledtype, modeledtype );
|
| this.TG_UIObject( relset, tg_objecttype );
| }
| }
| else
| {
| this.TG_UIObject( relflush );
| }
| *]
| }
|
|
