修复一些bug

xiaoding721

2024-10-14 7cd2803f96760b4eacfc6e89518fcc45bc22380b

1
2
3
4
5
6
7
8
9
10
11
Quintiq file version 2.0
#parent: #root
Function CalcHasTool
{
  TextBody:
  [*
    value := this.Tool().Length() > 0; 
    this.HasTool( value );
  *]
  InterfaceProperties { Accessibility: 'Module' }
}