Bug #765.2 已调用的变更令，应允许修改除变更令号以外的非计算信息。

DataModules/BGLDm.pas

@@ -450,23 +450,23 @@ begin
       ErrorMessage('当前变更令下变更清单已被应用到清单，不可修改！');
       Abort;
     end;
-  end;
 
-  sNewCode := cdsBGLViewCode.AsString;
-  if Pos(';', sNewCode) > 0 then
-  begin
-    ErrorMessage('变更令号不可输入'';''，请使用其他符号代替！');
-    Abort;
-  end;
-  
-  // 相同变更令号应递增[1],[2]...
-  iIncrement := 1;
-  while LocateBGL(sNewCode) and (cdsBGLID.AsInteger <> cdsBGLViewID.AsInteger) do
-  begin
-    sNewCode := Format('%s[%d]', [cdsBGLViewCode.AsString, iIncrement]);
-    Inc(iIncrement);
+    sNewCode := cdsBGLViewCode.AsString;
+    if Pos(';', sNewCode) > 0 then
+    begin
+      ErrorMessage('变更令号不可输入'';''，请使用其他符号代替！');
+      Abort;
+    end;
+
+    // 相同变更令号应递增[1],[2]...
+    iIncrement := 1;
+    while LocateBGL(sNewCode) and (cdsBGLID.AsInteger <> cdsBGLViewID.AsInteger) do
+    begin
+      sNewCode := Format('%s[%d]', [cdsBGLViewCode.AsString, iIncrement]);
+      Inc(iIncrement);
+    end;
+    cdsBGLViewCode.AsString := sNewCode;
   end;
-  cdsBGLViewCode.AsString := sNewCode;
 end;
 
 procedure TBGLData.DeleteBGBills(ABGID: Integer);