Browse Source

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

MaiXinRong 9 years ago
parent
commit
bc2e9d1458
1 changed files with 1 additions and 1 deletions
  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