UTH LAST FLOUR — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
| − | UTH_LAST_FLOUR - это программа из справочника [[R266]] | + | [[UTH_LAST_FLOUR]] - это программа из справочника [[R266]] |
| − | + | Возвращает последнюю влажность муки из документов приход от поставщиков | |
| − | Возвращает последнюю влажность муки из документов приход от поставщиков | + | [[UTH_LAST_FLOUR]]( data, kod, silos ) |
| − | + | = Текст = | |
| − | UTH_LAST_FLOUR( data, kod, silos ) | + | |
| − | + | ||
| − | = | + | |
| − | + | ||
parameters data, kod, silos | parameters data, kod, silos | ||
| Строка 13: | Строка 9: | ||
for i := 0 to 6 | for i := 0 to 6 | ||
// последняя дата | // последняя дата | ||
| − | sql := [ Select MAX( DATDOC ) max_date From DOCS] + Ret_f_ext( data,, -i ) + [ ; | + | 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 | 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 ) | aa := SqlToArr( sql ) | ||
| Строка 36: | Строка 32: | ||
next | next | ||
endif | endif | ||
| − | |||
= Смотрите также = | = Смотрите также = | ||
| + | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
| − | |||
| − | |||
Версия 12:23, 14 июня 2017
UTH_LAST_FLOUR - это программа из справочника R266
Возвращает последнюю влажность муки из документов приход от поставщиков
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
