Bug #1059 新增合同支付项，停用/启用显示问题

Frames/DealPaymentFme.pas

@@ -397,7 +397,11 @@ var
 begin
   Rec := sdDealPayment.DataView.Current;
   with TProjectData(FDealPaymentData.ProjectData).PhaseData.PhasePayData do
+  begin
     PhaseRec := PayRecord(Rec.ValueByName('ID').AsInteger);
+    if not Assigned(PhaseRec) then
+      PhaseRec := AddPayRecord(Rec.ValueByName('ID').AsInteger);
+  end;
   PhaseRec.ValueByName('StopCalc').AsBoolean := not PhaseRec.ValueByName('StopCalc').AsBoolean;
 
   TProjectData(FDealPaymentData.ProjectData).PhaseData.PhasePayData.CalculateAll;
@@ -426,7 +430,9 @@ begin
       TAction(Sender).Caption := 'ÆôÓÃ'
     else
       TAction(Sender).Caption := 'Í£ÓÃ';
-  end;
+  end
+  else
+    TAction(Sender).Caption := 'Í£ÓÃ';
 end;
 
 end.