1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| Quintiq file version 2.0
| #parent: #root
| StaticMethod FindOrCreate (TG_UIResponse owner, Key responseargskey, String name,
| String argumenttype, Boolean isbinding) as TG_UIResponseArgument
| {
| TextBody:
| [*
| uirespargs := select( owner, TG_UIResponseArgument, arg, arg.Name() = name );
|
| if( isnull( uirespargs ) )
| {
| uirespargs := owner.TG_UIResponseArgument( relnew,
| Name := name );
| }
|
| uirespargs.ResponseArgumentKey( responseargskey );
| uirespargs.ArgumentType( argumenttype );
| uirespargs.IsBinding( isbinding );
|
| uirespargs.LinkToUIObject();
|
| return uirespargs;
| *]
| }
|
|
