Task #1201 补充，用户删除变更令号，应提示用户

DataModules/BGLDm.pas

@@ -430,6 +430,9 @@ begin
   if cdsBGLViewCode.AsString = '' then
   begin
     cdsBGLViewCode.Tag := 0;
+    if cdsBGL.FindKey([cdsBGLViewID.AsInteger]) then
+      if cdsBGLCode.AsString <> '' then
+        WarningMessage('变更令号不允许为空，如需删除，请点击右键进行删除。');
     DataSet.Cancel;
     Abort;
   end;