procedure TMYPLANDOC.DoEntireTreeExecute(Sender: TObject);
begin
(Sender as TAction).Checked := not (Sender as TAction).Checked;
FDocBarPlan.PlanFilter.Manage.ShowEntireTree := (Sender as TAction).Checked; //选中或取消完整树
FDocBarPlan.PlanFilter.Manage.Execute;
end;