SCADA 1 — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Смотрите также)
м
Строка 40: Строка 40:
  
 
= Смотрите также =
 
= Смотрите также =
[[Полезные функции]]
 
  
[[Функции Delphi]]
+
[[Полезные функции]]

Версия 12:37, 14 июня 2017

SCADA_1 - это программа из справочника R266

Возвращает массив израсходованной муки 

SCADA_1( _date )

_date - дата

Текст

parameters _date

local fld, _, _2, sql, aa

fld := ' _1,N,6; _2,C,20; _3,N,14,4; _4,C,20; '

try
  _  := CreateTmpFile( fld, '_', ~IsFreeDel := true )
  _2 := CreateTmpFile( fld, '_2', ~IsFreeDel := true )

  // заполняем временную таблицу _
  SCADA_2( _, _date )

  // _ -> _2
  sql := [ Select TOP 100 PERCENT DISTINCT * ;
    From ] + TmpFilePath( _ ) + [ ;
    Order by _2 ]
  SimpleSql( [ Insert into ] + TmpFilePath( _2 ) + [ ] + sql, OpdataPath )

  sql := [ Select _1, _2, _3, _4 ;
    From ] + TmpFilePath( _2 )
  result := SqlToArr( sql, { '_1', '_2', '_3', '_4' } )

finally
  CloseTable( _ )
  CloseTable( _2 )
end

// _1 - ItemID
// _2 - Time
// _3 - Value
// _4 - время + 3 часа 30 минут

Смотрите также

Полезные функции