修复上一次提交

hongji.li

2023-10-31 9da20ddc5853d78fa214b3b04d331fb9755d364a

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Quintiq file version 2.0
#parent: #root
Function CalcCapacity
{
  TextBody:
  [*
    capacity := 0.0;
    
    if( this.Type() = LibCal_Event::TYPE_AVAILABLE() )
    {
      capacity := 1.0;
    }
    else if( this.Type() = LibCal_Event::TYPE_PARTIAL() )
    {
      capacity := this.PartialCapacity();
    }
    
    this.Capacity( capacity );
  *]
  InterfaceProperties { Accessibility: 'Module' }
}