Bug #883 新增变更令后，调用后，即刻修改变更令号外的其他信息时，报错。

DataModules/BGLDm.pas

@@ -467,7 +467,11 @@ begin
       sNewCode := Format('%s[%d]', [cdsBGLViewCode.AsString, iIncrement]);
       Inc(iIncrement);
     end;
-    cdsBGLViewCode.AsString := sNewCode;
+    if cdsBGLViewCode.AsString <> sNewCode then
+    begin
+      cdsBGLViewCode.AsString := sNewCode;
+      cdsBGLViewCode.Tag := 0;
+    end;
   end;
 end;