接入变更令系统，兼容旧数据，控制只读

Frames/BGLFme.pas

@@ -287,7 +287,7 @@ procedure TBGLFrame.zaBGLGridCellCanEdit(Sender: TObject;
   const ACoord: TPoint; var Allow: Boolean);
 begin
   if _IsCloud and Allow then
-    Allow := FBGLData.GetBGLCanEdit(ACoord.Y);
+    Allow := FBGLData.GetBGLCanEdit(ACoord.Y - zgBGL.FixedRowCount);
 end;
 
 procedure TBGLFrame.zaBGBillsGridCellCanEdit(Sender: TObject;