添加工艺站发布站包历史表；允许用户选择测试站时选择历史发布站包

UTS_Core/UTSModule/Test/FrmStationTest.vb

@@ -902,6 +902,8 @@ Namespace UTSModule.Test
 
         Public Sub IUtsTest_TestNodeCompleted(sender As Object, e As TestNodeCompletedEventArgs) Implements IUtsTest.TestNodeCompleted
             If _tester.DebugMode Then Return
+            If _tester.TestFiexdModule <> FixedModuleEnum.Main Then Return
+
             _recordGrid.UpdateTestRecord(e.Node, e.TestReturn)
         End Sub
 

UTS_Core/UTSModule/Test/UtsTester.vb

@@ -771,7 +771,7 @@ Namespace UTSModule.Test
 
             '进度修改
             If node.RowListIndex > _startTestIndex AndAlso node.RowListIndex < _endTestIndex Then
-                Dim p As Double = (node.RowListIndex - _startTestIndex) / (_testCount * 100)
+                Dim p As Double = (node.RowListIndex - _startTestIndex) / _testCount * 100
                 RaiseEvent TestProgressChanged(Me, New TestProgressChangedEventArgs(p))
             End If