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 (
| SCK_Messages messages,
| output String feedback_o
| ) const declarative remote as Boolean
| {
| Description: 'Indicates if the messages in [messages] can be deleted, if not provides feedback in [feedback_o]'
| TextBody:
| [*
| result := true;
|
| forbidden_messages := selectset( messages, Elements, v, not v.Check().Group().CanManualDelete() );
| if ( forbidden_messages.Size() > 0 )
| {
| manager := forbidden_messages.Element( 0 ).GetSanityManager();
| forbidden_group_names := selectvalues( forbidden_messages, Elements.Check.Group, g, true, g.Name() ).ToString(",");
| feedback_o := manager.TRANSLATION_CanNotDeleteViolationsOfGroups( forbidden_group_names );
| result := false;
| }
|
| return result;
| *]
| }
|
|
