|
@@ -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
|