|
|
| Строка 2: |
Строка 2: |
| | Возвращает последнюю влажность муки из документов приход от поставщиков | | Возвращает последнюю влажность муки из документов приход от поставщиков |
| | [[UTH_LAST_FLOUR]]( data, kod, silos ) | | [[UTH_LAST_FLOUR]]( data, kod, silos ) |
| − | = Текст =
| |
| − | parameters data, kod, silos
| |
| − |
| |
| − | local aa, max_date, sql, i
| |
| − |
| |
| − | for i := 0 to 6
| |
| − | // последняя дата
| |
| − | sql := [ Select [[MAX]]( DATDOC ) max_date From [[DOCS]]] + [[Ret_f_ext]]( data,, -i ) + [ ;
| |
| − | Where AMNT > 0 and KINDDOC = '[[UTH]]' and LVLNUM = '2' and DREFL2 = '[[R08]] ' and DANAL2 = ] + kod + [ and DATDOC <= '] + [[SqlDate]]( data ) + [' and Convert( CATTR8, sql_integer ) = ] + silos
| |
| − | aa := [[SqlToArr]]( sql )
| |
| − | if ![[IsEmpty]]( aa )
| |
| − | max_date := aa
| |
| − | // выход из цикла
| |
| − | exit
| |
| − | endif
| |
| − | next
| |
| − |
| |
| − | if ![[Empty]]( max_date )
| |
| − | for i := 0 to 6
| |
| − | // последняя влажность
| |
| − | sql := [ Select Convert( CATTR7, sql_double ) From [[DOCS]]] + [[Ret_f_ext]]( data,, -i ) + [ ;
| |
| − | Where AMNT > 0 and KINDDOC = '[[UTH]]' and LVLNUM = '2' and DREFL2 = '[[R08]] ' and DANAL2 = ] + kod + [ and DATDOC = '] + [[SqlDate]]( max_date ) + [' and Convert( CATTR8, sql_integer ) = ] + silos
| |
| − | aa := [[SqlToArr]]( sql )
| |
| − | if ![[IsEmpty]]( aa )
| |
| − | result := aa
| |
| − | // выход из цикла
| |
| − | return
| |
| − | endif
| |
| − | next
| |
| − | endif
| |
| − |
| |
| | = Смотрите также = | | = Смотрите также = |
| | [[Полезные функции]] | | [[Полезные функции]] |
| | | | |
| | [[Функции Delphi]] | | [[Функции Delphi]] |
Текущая версия на 08:44, 16 марта 2020
UTH_LAST_FLOUR - это программа из справочника R266
Возвращает последнюю влажность муки из документов приход от поставщиков
UTH_LAST_FLOUR( data, kod, silos )
Смотрите также
Полезные функции
Функции Delphi
