从云端读取的变更令，部位及原因、说明应只读

DataModules/BGLDm.dfm

@@ -73,6 +73,7 @@ object BGLData: TBGLData
     Params = <>
     BeforePost = cdsBGLViewBeforePost
     BeforeDelete = cdsBGLViewBeforeDelete
+    AfterScroll = cdsBGLViewAfterScroll
     OnNewRecord = cdsBGLViewNewRecord
     Left = 96
     Top = 128

DataModules/BGLDm.pas

@@ -7,6 +7,8 @@ uses
   sdDB;
 
 type
+  TAfterCurrentBGLChanged = procedure of object;
+
   TBGLSelectInfo = class(TObject)
   private
     FB_Code: string;
@@ -114,8 +116,10 @@ type
     procedure cdsBGBillsViewPriceSetText(Sender: TField;
       const Text: String);
     procedure cdsBGLViewCodeChange(Sender: TField);
+    procedure cdsBGLViewAfterScroll(DataSet: TDataSet);
   private
     FProjectData: TObject;
+    FAfterCurrentBGLChanged: TAfterCurrentBGLChanged;
 
     procedure GatherBGLTotalPrice(ABGLID: Integer);
     procedure UpdateBGLTotalPrice(ABGLID: Integer; ADiffer: Double);
@@ -151,6 +155,7 @@ type
     procedure BatchWritePos_Reason;
 
     property ProjectData: TObject read FProjectData;
+    property AfterCurrentBGLChanged: TAfterCurrentBGLChanged read FAfterCurrentBGLChanged write FAfterCurrentBGLChanged;
   end;
 
 implementation
@@ -775,4 +780,10 @@ begin
   cdsBGLView.EnableControls;
 end;
 
+procedure TBGLData.cdsBGLViewAfterScroll(DataSet: TDataSet);
+begin
+  if Assigned(FAfterCurrentBGLChanged) then
+    FAfterCurrentBGLChanged;
+end;
+
 end.

Frames/BGLFme.pas

@@ -61,7 +61,7 @@ type
       var Allow: Boolean);
     procedure zaBGBillsGridCellCanEdit(Sender: TObject;
       const ACoord: TPoint; var Allow: Boolean);
-    procedure zgBGLCurrentChanged(Sender: TObject; Col, Row: Integer);
+    procedure zgBGLCurrentChanged;
   private
     FBGLData: TBGLData;
 
@@ -103,7 +103,7 @@ begin
   begin
     zaBGL.Options := [aoAllowEdit, aoAllowDelete, aoAllowUpMove, aoAllowDownMove];
     zaBGL.ExtendRowCount := 0;
-    //zgBGL.OnCurrentChanged := zgBGLCurrentChanged;
+    FBGLData.AfterCurrentBGLChanged := zgBGLCurrentChanged;
   end
   else
     zaBGL.Options := [aoAllowInsert, aoAllowEdit, aoAllowDelete, aoAutoInsert, aoAllowUpMove, aoAllowDownMove];
@@ -297,8 +297,7 @@ begin
     Allow := not FBGLData.cdsBGLViewIsCloud.AsBoolean;
 end;
 
-procedure TBGLFrame.zgBGLCurrentChanged(Sender: TObject; Col,
-  Row: Integer);
+procedure TBGLFrame.zgBGLCurrentChanged;
 begin
   dbmPos_Reason.ReadOnly := _IsCloud and FBGLData.cdsBGLViewIsCloud.AsBoolean;
   dbmDirection.ReadOnly := dbmPos_Reason.ReadOnly;