本期完成计量计算问题

DataModules/DealPaymentDm.pas

@@ -96,7 +96,12 @@ var
 begin
   Rec := sddDealPayment.FindKey('idxID', AID);
   with TProjectData(FProjectData).BillsData do
-    Result := Settlement[AddGatherIndex] >= Rec.ValueByName('StartedPrice').AsFloat;
+  begin
+    if (Rec.ValueByName('StartedPrice').AsFloat = 0) then
+      Result := True
+    else
+      Result := Settlement[AddGatherIndex] >= Rec.ValueByName('StartedPrice').AsFloat;
+  end;
 end;
 
 constructor TDealPaymentData.Create(AProjectData: TObject);