Скрипты Simple-Scada

Для этого нужно создать скрипт с типом события "Отчет построен" и написать следующий код:

begin
  { отобразить на всех клиентах окно с информацией о построении отчета }
  ShowMessageAll('Отчет построен', 'Отчет ' + IntToStr(rbUserID) + ' ' + rbReportName + ' построен успешно!');
end.

Допустим, имеется кнопка, по нажатию на которую строится отчет. Требуется блокировать кнопку на время построения отчета для предотвращения повторных нажатий. Для решения этой задачи на событие OnClick кнопки нужно написать такой код:

var 
  aReport: TM_Report;
begin
  { блокируем кнопку, чтобы ее нельзя было нажать повторно }
  Button1.Enabled := False;  
   
  { строим отчет и помечаем его тегом 77 }
  aReport := ReportBuild('Мой отчет');
  aReport.Tag := 77;
  aReport.View(GetClientName);
end.

Далее, создадим новый скрипт с типом события "Отчет построен" и следующим кодом:

begin
  if rbUserID = 77 then       // если отчет помеченный тегом 77 построился, то
    Button1.Enabled := True;  // разблокируем кнопку
end.