Bug #902 累计完成率计算，被除数为0时，应清空

DataModules/BillsMeasureDm.pas

@@ -905,7 +905,9 @@ begin
     fDivisor := ValueByName('TotalPrice').AsFloat + ValueByName('AddQcTotalPrice').AsFloat
         + ValueByName('AddPcTotalPrice').AsFloat;
     if fDivisor <> 0 then
-      ValueByName('AddCompleteRate').AsFloat := AdvRoundTo(fDividend/fDivisor*100);
+      ValueByName('AddCompleteRate').AsFloat := AdvRoundTo(fDividend/fDivisor*100)
+    else
+      ValueByName('AddCompleteRate').Clear;
   end;
 end;