修复一些bug

xiaoding721

2024-09-02 88acd1f628c4a3689109654fe58a239d4a158e91

1
2
3
4
5
6
7
8
9
10
Quintiq file version 2.0
#parent: #root
Function CalcIsCurrent
{
  TextBody:
  [*
    value := this.CurrentInProcess( relsize ) > 0;
    this.IsCurrent( value );
  *]
}