台账分解、计量台账，控制 表达式 是否可写入

Frames/BillsCompileFme.pas

@@ -248,9 +248,16 @@ begin
       laEdtExprs.Text := zgBillsCompile.CurCell.EditText
     else
       laEdtExprs.Text := '';
-    with stdBillsCompile.DataView do
-      if Assigned(Current) then
-        laEdtExprs.ReadOnly := Current.ValueByName('LockedInfo').AsBoolean;
+    if CheckExprsColumn then
+    begin
+      with stdBillsCompile.DataView do
+        if Assigned(Current) then
+          laEdtExprs.ReadOnly := Current.ValueByName('LockedInfo').AsBoolean;
+    end
+    else if CheckMemoStrColumn then
+    begin
+      laEdtExprs.ReadOnly := False;
+    end;
   end;
 end;
 
@@ -686,9 +693,16 @@ begin
     laEdtExprs.Text := zgBillsCompile.CurCell.EditText
   else
     laEdtExprs.Text := '';
-  with stdBillsCompile.DataView do
-    if Assigned(Current) then
-      laEdtExprs.ReadOnly := Current.ValueByName('LockedInfo').AsBoolean;
+  if CheckExprsColumn then
+  begin
+    with stdBillsCompile.DataView do
+      if Assigned(Current) then
+        laEdtExprs.ReadOnly := Current.ValueByName('LockedInfo').AsBoolean;
+  end
+  else if CheckMemoStrColumn then
+  begin
+    laEdtExprs.ReadOnly := False;
+  end;
 end;
 
 function TBillsCompileFrame.CheckMemoStrColumn: Boolean;