Как настроить переход на скрытые листы через гиперссылку?
С листов регламентного отчета можно настроить гиперссылку для перехода на скрытый лист.
Создайте регламентный отчет, в котором содержатся:
лист с наименованием «Лист1»;
скрытый лист с наименованием «Лист2».
Для настройки гиперссылки необходимо выполнить действия:
Создайте модуль с идентификатором «HIDING_SHEET» для отображения скрытого листа. Добавьте системную сборку Report:
Sub UserProc;
Var Rep: IPrxReport;
Sheet: IPrxSheet;
Name: String;
Begin
Rep := PrxReport.ActiveReport;
Sheet := Rep.Sheets.FindByName("Лист2");
Sheet.Visible := True;
Rep.ActiveSheet := Sheet;
End Sub UserProc;
Добавьте созданный модуль к отчету.
Добавьте текст с гиперссылкой для выполнения процедуры/функции. Выберите модуль, подключенный ранее к отчёту.
Создайте обработчик событий в модуле Fore.
Задайте для события OnBeforeActivateSheet скрытие отображенного листа:
Public Sub OnBeforeActivateSheet(OldSheet: IPrxSheet; NewSheet: IPrxSheet; Var Cancel: Boolean);
Var Rep: IPrxReport;
Sheet: IPrxSheet;
Name: String;
Begin
Rep := PrxReport.ActiveReport;
If Rep.ActiveSheet.Name = "Лист2" Then
Sheet := Rep.Sheets.FindByName("Лист2");
Sheet.Visible := False;
End If;
End Sub OnBeforeActivateSheet;
В регламентном отчете появится возможность перехода на скрытый лист по гиперссылке без возможности его отображения при смене листа.
Примечание. В веб-приложение передаются настройки гиперссылки из настольного приложения.
См. также: