修改Bug #836后影响Bug #834的修改

DataModules/BillsCompileDm.pas

@@ -702,7 +702,9 @@ procedure TBillsCompileData.sdvBillsCompileSetText(var Text: String;
 begin
   if not Assigned(AValue) then Exit;
   // 修改后数据与原数据相同则不提交
-  if not CheckValidData then Exit;
+  if not CheckValidData then
+    Allow := False;
+  if not Allow then Exit;
 
   CheckLockedData;
   if not Allow then Exit;