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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м
 
(не показаны 3 промежуточные версии этого же участника)
Строка 1: Строка 1:
SCADA4 - это программа из справочника [[R266]]
+
[[SCADA_4]] - это программа из справочника [[R266]]
 
+
Найти предыдущее значение
Найтие предыдущее значение
+
[[SCADA_4]]( data,  value,  item_id )
 
+
SCADA_4( data,  value,  item_id )
+
  
 
data - дата
 
data - дата
Строка 10: Строка 8:
  
 
item_id - код муки
 
item_id - код муки
 
+
= Текст =
= Текст программы =
+
 
+
 
  parameters data, value, item_id
 
  parameters data, value, item_id
 
   
 
   
Строка 31: Строка 27:
 
   
 
   
 
  result := aa
 
  result := aa
 
 
= Смотрите также =
 
= Смотрите также =
 
 
[[Полезные функции]]
 
[[Полезные функции]]

Текущая версия на 15:23, 1 сентября 2017

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

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

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