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