@@ -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;