云版，关闭变更管理后，新增变更令，光标跳动问题

Frames/BGLFme.pas

@@ -99,11 +99,11 @@ begin
   zaBGBills.DataSet := FBGLData.cdsBGBillsView;
   SetDxBtnAction(actnNew, tobtnNew);
 
-  if _IsCloud and (TProjectData(ABGLData.ProjectData).WebChangeSwitch = 0) then
+  if _IsCloud and (TProjectData(ABGLData.ProjectData).WebChangeSwitch = 1) then
   begin
     zaBGL.Options := [aoAllowEdit, aoAllowDelete, aoAllowUpMove, aoAllowDownMove];
     zaBGL.ExtendRowCount := 0;
-    labTitle.Caption := ' 变更令（变更管理）';  
+    labTitle.Caption := ' 变更令（变更管理）';
     zaBGBills.ExtendRowCount := 0;
   end
   else
@@ -293,7 +293,7 @@ end;
 procedure TBGLFrame.zaBGLGridCellCanEdit(Sender: TObject;
   const ACoord: TPoint; var Allow: Boolean);
 begin
-  if _IsCloud and Allow then
+  if _IsCloud and Allow and ACoord.Y < FBGLData.cdsBGLView.RecordCount then
     Allow := FBGLData.GetBGLCanEdit(ACoord.Y - zgBGL.FixedRowCount);
 end;