BUG #1422 合同支付项，不参与本期应付计算时，设置计提期限应提示用户

Frames/DealPaymentFme.pas

@@ -329,7 +329,12 @@ procedure TDealPaymentFrame.actnSetDealPayPlanExecute(Sender: TObject);
   function CheckCanPlan(ARec: TsdDataRecord): Boolean;
   begin
     Result := True;
-    if ARec.ValueByName('CalcType').AsInteger <> 0 then
+    if ARec.ValueByName('CalcType').AsInteger = 3 then
+    begin
+      ErrorMessage('"不参与本期应付计算项"不可设置计提期限。');
+      Result := False;
+    end
+    else if ARec.ValueByName('CalcType').AsInteger <> 0 then
     begin
       ErrorMessage('本期应付，本期实付不可设置计提期限。');
       Result := False;