Bug 添加调差工料时，编号输入空或已存在的编号，应不新增一条空数据

DataModules/ProjectGLDm.pas

@@ -212,9 +212,17 @@ begin
   if SameText(AValue.FieldName, 'Code') then
   begin
     if VarIsNull(NewValue) then
-      DataSetErrorMessage(Allow, '编号不可为空。')
+    begin
+      DataSetErrorMessage(Allow, '编号不可为空。');
+      if Rec.Code.AsString = '' then
+        sddProjectGL.Remove(AValue.Owner);
+    end
     else if CheckSameCode(NewValue) then
-      DataSetErrorMessage(Allow, '编号不可重复。')
+    begin
+      DataSetErrorMessage(Allow, '编号不可重复。');
+      if Rec.Code.AsString = '' then
+        sddProjectGL.Remove(AValue.Owner);
+    end
     else if CheckApplied(Rec.ID.AsInteger) then
       DataSetErrorMessage(Allow, '工料已被应用，不可修改编号。');
   end