Parcourir la source

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

MaiXinRong il y a 9 ans
Parent
commit
6f57ccf7a5
1 fichiers modifiés avec 3 ajouts et 0 suppressions
  1. 3 0
      DataModules/BGLDm.pas

+ 3 - 0
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;