浏览代码

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

MaiXinRong 9 年之前
父节点
当前提交
6f57ccf7a5
共有 1 个文件被更改,包括 3 次插入0 次删除
  1. 3 0
      DataModules/BGLDm.pas

+ 3 - 0
DataModules/BGLDm.pas

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