Ваши комментарии

День добрый.


В текущей версии редактирование учетки "admin" заблокировано. Внесли поправки. Сегодня будет рассылка на обновленную версию.

День добрый.


Компонент "выпадающий список" работает только со строковыми каналами. Вашу задачу можно решить с его применением, но придется использовать скрипт и виртуальный канал.

День добрый.


На данный момент возможности автовхода нет. Мы подумаем над этим вопросом.

День добрый.


Var
Value, CurrentValue: double;
Value1, CurrentValue1: double;
tims:TDateTime;
tim:string;

//Выполняется при первом старте скрипта
procedure OnStartScript;
begin
  value := ReadValue('УДО. Давление прямого трубопровода');
  value1 := ReadValue('УДО. Давление обратного трубопровода');
end;

//Выполняется при завершении работы скрипта
procedure OnStopScript;
begin 
  // Ваш код
  tims := GetTimeStamp('УДО. Давление прямого трубопровода');
  tim:=DateTimeToStr(tims);
  WriteValue('Время последнего опроса Узла учета УДО', tim);
 
  tims := GetTimeStamp('УДО. Давление обратноготрубопровода');
  tim:=DateTimeToStr(tims);
  WriteValue('имя канала', tim);
end;

begin
  CurrentValue := ReadValue('УДО. Давление прямого трубопровода');
  CurrentValue1 := ReadValue('УДО. Давление обратного трубопровода');
  if (CurrentValue <> Value) or (CurrentValue1 <> Value1 ) then 
  begin
    Value := CurrentValue;
    Value1 := CurrentValue1;
    WriteValue('Время последнего опроса Узла учета УДО', DateTimeToStr(now));
  end;
end.

День добрый.


Да, это будет. Сейчас в работе.

Сервис поддержки клиентов работает на платформе UserEcho