Темы

1

Ваши вопросы / Отчет суммарный по часам

« : 11 Мая 2023, 22:20:57 »

Здравствуйте, можете помочь или подсказать
Есть весы, которые измеряет песок при выгрузке
За час может может от 10-15 выгрузок
Нужно построить суммарный отчет по часам, сутки и месяцы
За час сколько Тонн измерила
Буду рад любой помощи

2

Ваши вопросы / Веб-доступ

« : 15 Декабря 2021, 06:08:51 »

Здравствуйте, в Professional можно подключить 3 Web-Client
Как можно их увеличить и расценки где можно посмотреть ?
Надо доп клиент покупать ?

3

Ваши вопросы / Запись в БД текст по изменению 1 раз

« : 04 Ноября 2021, 07:35:52 »

Здравствуйте, нужна помощь со скриптами
Надо сделать запись в БД текст
Когда условие срабатывает, скада записала дату и текст бд один раз.
У меня как условие срабатывает записывает каждую секунду.

Код: (delphi)

 procedure WriteValueToTable;
  var
 aQuery: string;
     begin
 aQuery := 'INSERT INTO `info_archive` (`Time`, `State`)' +
 'VALUES (' +
   MySQLDateTime(Now, dttFull) + ', ' +  // Конвертирует дату и время в строку в формате MySQL
       QuotedStr(StateDoor.AsStr) +
 ')';

RunSQL(aQuery, nil, 0);
end;

begin
  if tr.AsBool = true then
  begin
    WriteValueToTable;
  end;
end.

4

Ваши вопросы / Отчет каждые 20 минут

« : 21 Октября 2021, 06:22:45 »

Здравствуйте подскажите пожалуйста, как сделать отчет каждые 20 минут

Этот скрипт отсчитывает 20 минут с запуска проекта, а мне надо каждые 20 минут  одного часа, а именно 0 минута, 20 минута и 40 минута 

Код: (delphi)

  INTERVAL = 1200;  // Интервал таймера в секундах
var
  aSeconds: Int64;

 procedure WriteValueToTable;
 var
 aQuery: string;

begin
 aQuery := 'INSERT IGNORE INTO `arr` (`timestamp`, `value`, `avg`, `av`)' +
 'VALUES (' +
   MySQLDateTime(Now, dttFull) + ', ' +  // Конвертирует дату и время в строку в формате MySQL
   QuotedStr(Teg2.AsStr) + ', ' +
   QuotedStr(Teg220.AsStr) + ', ' +
   QuotedStr(Tag230.AsStr) +
 ')';

RunSQL(aQuery, nil, 0);
end;


begin
  { если vrTimer ещё не инициализирована, то инициализируем её и прерываем скрипт }
  if vrTimer.Value < 1 then
    vrTimer.Value := Now;

  { получаем кол-во секунд с последнего срабатывания таймера }
  aSeconds := SecondsBetween(Now, vrTimer.AsDateTime);

  { если прошло больше, чем INTERVAL секунд с последнего срабатывания таймера }
  if aSeconds >= INTERVAL then
  begin
    WriteValueToTable;    // вызываем подпроцедуру вставки в БД
    vrTimer.Value := Now;
  end;

end.

5

Ваши вопросы / Суточный отчёт

« : 13 Октября 2021, 12:01:41 »

Здравствуйте, когда формирую суточный отчёт то данные не записываются день в день. А со смещением на один день.
К примеру выбираю дату с 13.09.21 по 15.09.21
То в отчете будут данные
С 14.09.21 по 15.09.21

Как сделать чтобы день в день записывала ?

6

Ваши вопросы / Отчёт

« : 13 Октября 2021, 09:54:02 »

Здравствуйте,
У меня отчетность не формируется больше 23 дней
Когда выбираю
DataBegin
1.09.2021 00:00
DataEnd
30.09.2021
То не формируется
Формируется только тогда, когда выбираю с 1 по 23 числа
В чем может быть проблема ?

Хотел сформировать отчёт среднее за месяц в Reports

Ошибка в Симпл скада сервере
Время вышло 10 сек
Сервер формировал данные для отчета слишком долго. Отчёт не будет построен

Где можно увеличить время построения отчета ?