Версия 12:48, 2 августа 2016

SCADA1 - это программа из справочника 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 минут

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

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