1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| Quintiq file version 2.0
| #parent: #root
| Method SetAsIdentifier (TG_UIObject uiobject)
| {
| TextBody:
| [*
| existingid := select( uiobject, TG_UIObjectIdentifier, id, id.TG_UIObjectAttribute() = this );
| if( not isnull( existingid ) )
| {
| uiobject.MoveAfter( existingid, null( TG_UIObjectIdentifier ) );
| }
| else
| {
| uiobject.TG_UIObjectIdentifier( relnew, TG_UIObjectAttribute := this );
| }
| *]
| }
|
|
