Скрипты Simple-Scada

Для выполнения скрипта в начале каждого часа, необходимо создать новый скрипт и в списке событий выбрать тип "Начало часа":

Описание

Скрипт будет выполняться в начале каждого часа. Включите флажок "Выполнить сразу после запуска проекта", если нужно первый раз выполнить скрипт сразу после старта проекта (не дожидаясь пока пройдет заданный интервал).

Пример скрипта

Допустим, требуется формировать отчет за прошедшие сутки каждый день в 08:00, без вмешательства пользователя. Создадим переменные начала и конца интервала времени "vrTimeBegin" и "vrTimeEnd" с типом данных DateTime. Далее, создадим новый скрипт с типом события "Начало часа" и напишем следующий код:

var 
  aReport: TM_Report;
begin
  { если сейчас не 8 часов, то прерываем выполнение скрипта }
  if HourOf(Now) <> 8 then Exit;
 
  { берём текущее время и дату и сбрасываем минуты, секунды и 
    миллисекунды в 0, т.к. нам важны только часы. Записываем 
    полученное значение в переменную vrTimeEnd }
  vrTimeEnd.Value := RecodeTime(Now, HourOf(Now), 0, 0, 0);
 
  { от значения vrTimeEnd отнимаем 24 часа и записываем
    полученное значение в vrTimeBegin }
  vrTimeBegin.Value := IncHour(vrTimeEnd.AsDateTime, -24);
 
  { Формируем отчет с именем "Мой отчет" и открываем его для просмотра 
    на всех клиентах с именем "Client_Name" }
  aReport := ReportBuild('Мой отчет');
  aReport.View('Client_Name');
end.