Преглед на файлове

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