Текущая версия на 14:44, 24 марта 2020

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

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

SCADA_1( _date )

_date - дата

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

@@ Строка 2: / Строка 2: @@
   Возвращает массив израсходованной муки
 [[SCADA_1]]( _date )
+ _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 минут
 = Смотрите также =
 [[Полезные функции]]
-[[Функции Delphi]]