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
27
28
29
30
Quintiq file version 2.0
#parent: #root
Function CalcIndex
{
  TextBody:
  [*
    // rislai Jul-24-2024 (created)
    value := 0;
    if( this.CustomIndex() = -999 ){
      year := this.Date().Year();
      month := this.Date().Month();
      day := this.Date().Day();
      index := [String]year;
      if( month < 10 ){
        index := index + "0" + [String]month; 
      }else{
        index := index + [String]month;
      }
      if( day < 10 ){
        index := index + "0" + [String]day; 
      }else{
        index := index + [String]day; 
      }
      value := [Number]index;
    }else{
      value := this.CustomIndex();
    }
    this.Index( value );
  *]
}