admin
2025-01-22 7e31442f0e9b07764e9c6a9680d3d4aeba5fe1de
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
Method GetNextScopeThinID () as Number
{
  TextBody:
  [*
    value := 0;
    
    queue := this.ScopeThinQueue().Size();
    if( queue > 0 )
    {
      vector := NumberVector::Construct( this.ScopeThinQueue() );
      value := vector.Get( vector.Size() - 1 );
      vector.Resize( vector.Size() - 1 );
      this.ScopeThinQueue( vector.AsBinaryValue() );
    }
    else
    {
      value := this.NextScopeThinID();
      this.NextScopeThinID( value + 1 );
    }
    
    return value;
  *]
  InterfaceProperties { Accessibility: 'Module' }
}