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
26
27
28
29
| Quintiq file version 2.0
| #parent: #root
| Method ArgumentsToString (NamedValueTree nvt) as String
| {
| TextBody:
| [*
| text := '| Field | Value |
| |-------|-------|
| ';
|
| typenode := nvt.Root();
|
| traverse( typenode.Children(), Elements, child )
| {
| field := child.Name();
| if( field.StartsWith( 'Z_' ) )
| {
| field := field.SubString( 2, field.Length() - 2 );
| }
|
| text := text + '| @FIELD@ | @VALUE@ |
| '
| .ReplaceAll( '@FIELD@', field )
| .ReplaceAll( '@VALUE@', child.ValueToString() );
| }
|
| return text;
| *]
| }
|
|
