lihongji
2024-08-12 acf70acb5438a3358d07978afdc0eb28950f40d5
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
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; 
      }
      if( day < 10 ){
        index := index + "0" + [String]day; 
      }
      value := [Number]index;
    }else{
      value := this.CustomIndex();
    }
    this.Index( value );
  *]
}