Преглед на файлове

合同支付,调整提示语句

MaiXinRong преди 9 години
родител
ревизия
a6cb037205
променени са 1 файла, в които са добавени 2 реда и са изтрити 2 реда
  1. 2 2
      Frames/DealPaymentFme.pas

+ 2 - 2
Frames/DealPaymentFme.pas

@@ -357,13 +357,13 @@ begin
       CanShow := True;
       HintStr := Format('计提期限为(%s)', [FDealPaymentData.PlanStr(Rec)]);
     end;
-    if (zgDealPayment.Cells[ACoord.X, ACoord.Y].Text <> '') and Assigned(Rec) then
+    {if (zgDealPayment.Cells[ACoord.X, ACoord.Y].Text <> '') and Assigned(Rec) then
       if FDealPaymentData.CheckReachPlan(Rec) then
       begin
         CanShow := True;
         HintStr := '已达到计提期限,使用公式计算的当期金额须一次性计提至限额' + #13#10 +
             Format('计提期限为(%s)', [FDealPaymentData.PlanStr(Rec)]);
-      end;
+      end;}
   end;
 end;