修复一些bug，添加包装计划的存档方法

xiaoding721

2024-10-23 4981fae2e6147b7977422e377d71839a3d2769f0

1
2
3
4
5
6
7
8
9
10
11
Quintiq file version 2.0
#parent: #root
Function CalcPreThreadNr
{
  TextBody:
  [*
    value := (this.Key().MajorKey() + this.Key().MinorKey() ) mod 1000; 
    this.PreThreadNr( value );
  *]
  InterfaceProperties { Accessibility: 'Module' }
}