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