浏览代码

Bug #793 云版,新建项目,新增一期计量报错

MaiXinRong 9 年之前
父节点
当前提交
5eb93ae363
共有 1 个文件被更改,包括 4 次插入1 次删除
  1. 4 1
      Frames/ProjectFme.pas

+ 4 - 1
Frames/ProjectFme.pas

@@ -722,7 +722,10 @@ begin
   // 当前显示的期是最新期,分两种情况判断,如果第一审核人已有状态,则上传过了
   else if ProjectData.PhaseIndex = ProjectData.ProjProperties.PhaseCount then
   begin
-    if not CheckerFrame.HasChecker then
+    // 当用户点击新增一期计量后,会调用该方法,此时,有一期数据,却为上传过
+    if not Assigned(CheckerFrame) then
+      Result := False
+    else if not CheckerFrame.HasChecker then
       Result := False
     else if CheckerFrame.FirstChecker.CheckStatus = csNotBegin then
       Result := False