SCADA 4 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «SCADA - это программа из справочника R266 = Текст программы = = Смотрите также = Полезные ф…») |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
| − | + | 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 | ||
= Смотрите также = | = Смотрите также = | ||
[[Полезные функции]] | [[Полезные функции]] | ||
Версия 12:50, 2 августа 2016
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
