Task #1201 变更令号，输入空时不接受输入

DataModules/BGLDm.pas

@@ -439,9 +439,18 @@ var
   iIncrement: Integer;
   sNewCode: string;
 begin
+  // 变更令号不可为空
+  if cdsBGLViewCode.AsString = '' then
+  begin
+    cdsBGLViewCode.Tag := 0;
+    DataSet.Cancel;
+    Abort;
+  end;
+
   if cdsBGLViewCode.Tag = 1 then
   begin
     cdsBGLViewCode.Tag := 0;
+
     if cdsBGLViewLocked.AsBoolean then
     begin
       ErrorMessage('当前变更令已锁定，不可修改！');