SCADA 4
Материал из Фабиус wiki
SCADA_4 - это программа из справочника R266
Найти предыдущее значение
SCADA_4( data, value, item_id )
data - дата
value - значение счетчика
item_id - код муки
Текст
parameters data, value, item_id
local sql, aa
// ищем максимальное значение
sql := [ Select Max( AMNT ) AMNT From DOCP] + Ret_f_ext( data ) + [ ;
Where KINDDOC = 'PD3' and AMNT <= ] + StrTran( str( value ), ',', '.' ) + [ and NATTR1 = ] + item_id + [ and LVLNUM = '2' and DATDOC <= '] + SqlDate( data ) + [' ]
aa := SqlToArr( sql )
// предыдущий месяц
if Empty( aa )
sql := [ Select Max( AMNT ) AMNT ;
From DOCP] + Ret_f_ext( data - 1 ) + [ ;
Where KINDDOC = 'PD3' and AMNT <= ] + StrTran( str( value ), ',', '.' ) + [ and NATTR1 = ] + item_id + [ and LVLNUM = '2' ]
aa := SqlToArr( sql )
endif
result := aa
