UTH LAST FLOUR — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 9: | Строка 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 ) | ||
if !IsEmpty( aa ) | if !IsEmpty( aa ) | ||
Версия 12:25, 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
