Explorar o código

合同支付项,用户输入金额(纯数字)
1. 未达起扣金额计0
2. 计量达到起扣金额,且未达计提期限,应计用户输入的金额
3. 计量达到起扣金额,且达到计提期限,应计限额-截止上期
须记录用户输入金额,并随用户修改计量数据变动。

MaiXinRong %!s(int64=9) %!d(string=hai) anos
pai
achega
bc2e9d1458
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      DataModules/DealPaymentDm.pas

+ 1 - 1
DataModules/DealPaymentDm.pas

@@ -452,7 +452,7 @@ procedure TDealPaymentData.sdvDealPaymentSetText(var Text: string;
     if CheckStringNull(Text) or CheckNumeric(Text) then
     begin
       Rec.ValueByName('Formula').AsString := '';
-      AValue.Owner.ValueByName(sFField).AsString := '';
+      AValue.Owner.ValueByName(sFField).AsString := Text;
       fTotalPrice := StrToFloatDef(Text, 0);
     end
     else