合同支付，启用/停用是否可用，增加CalcType、名称判断

Frames/DealPaymentFme.pas

@@ -412,11 +412,13 @@ var
   Rec, PhaseRec: TsdDataRecord;
 begin
   Rec := sdDealPayment.DataView.Current;
-  if not Assigned(Rec) or Rec.ValueByName('PreDefined').AsBoolean then
+  if not Assigned(Rec) or Rec.ValueByName('PreDefined').AsBoolean or
+    (Rec.ValueByName('CalcType').AsInteger <> 0) or
+    (Rec.ValueByName('Name').AsString = '±¾ÆÚÍê³É¼ÆÁ¿') then
   begin
     TAction(Sender).Visible := False;
     Exit;
-  end; 
+  end;
   TAction(Sender).Visible := TProjectData(FDealPaymentData.ProjectData).ValidStageIsRefer;
 
   with TProjectData(FDealPaymentData.ProjectData) do