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

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