SCADA 4

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

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

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