Browse Source

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

MaiXinRong 9 years ago
parent
commit
c1a623baed
1 changed files with 4 additions and 2 deletions
  1. 4 2
      Frames/DealPaymentFme.pas

+ 4 - 2
Frames/DealPaymentFme.pas

@@ -412,11 +412,13 @@ var
   Rec, PhaseRec: TsdDataRecord;
   Rec, PhaseRec: TsdDataRecord;
 begin
 begin
   Rec := sdDealPayment.DataView.Current;
   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
   begin
     TAction(Sender).Visible := False;
     TAction(Sender).Visible := False;
     Exit;
     Exit;
-  end; 
+  end;
   TAction(Sender).Visible := TProjectData(FDealPaymentData.ProjectData).ValidStageIsRefer;
   TAction(Sender).Visible := TProjectData(FDealPaymentData.ProjectData).ValidStageIsRefer;
 
 
   with TProjectData(FDealPaymentData.ProjectData) do
   with TProjectData(FDealPaymentData.ProjectData) do