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 CanDelete (
| BaseAccountTypes baseacctype,
| output String feedback_o
| ) declarative remote as Boolean
| {
| Description: 'Check whether records are allowed to be deleted'
| TextBody:
| [*
| strings := construct( Strings );
| traverse( baseacctype, Elements, at )
| {
| tempfeedback := '';
| if( not at.CanDelete( tempfeedback ) )
| {
| strings.Add( tempfeedback );
| }
| }
| feedback_o := strings.ToString( String::NewLine() );
|
| return feedback_o = '';
| *]
| }
|
|
