lihongji
2024-07-09 5ed2c2076e3b8a907ac2d271ea627cc9f9c9b3f4
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
Quintiq file version 2.0
#parent: #root
StaticMethod FindCreate (
  SCK_Manager owner,
  String name,
  String icon
) as SCK_Severity
{
  Description:
  [*
    Retrieves the severity with name [name] or a newly created one with specified attributes ([icon]) if no severity with name [name] existed yet.
    A newly created severity will be added as highest severity.
  *]
  TextBody:
  [*
    severity := select( owner, Severity, s, s.Name() = name );
    
    if ( isnull( severity ) )
    {
      severity := construct( SCK_Severity, Name := name, Icon := icon );  
      severity := owner.AddLastSeverity( &severity );                            
    }
    
    return severity;
  *]
}