UTH LAST FLOUR — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Текст) |
||
| Строка 11: | Строка 11: | ||
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 ) |
max_date := aa | max_date := aa | ||
// выход из цикла | // выход из цикла | ||
| Строка 19: | Строка 19: | ||
next | next | ||
| − | if !Empty( max_date ) | + | if ![[Empty]]( max_date ) |
for i := 0 to 6 | for i := 0 to 6 | ||
// последняя влажность | // последняя влажность | ||
| − | sql := [ Select Convert( CATTR7, sql_double ) From DOCS] + Ret_f_ext( data,, -i ) + [ ; | + | 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 | + | 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 ) | + | aa := [[SqlToArr]]( sql ) |
| − | if !IsEmpty( aa ) | + | if ![[IsEmpty]]( aa ) |
result := aa | result := aa | ||
// выход из цикла | // выход из цикла | ||
| Строка 32: | Строка 32: | ||
next | next | ||
endif | endif | ||
| + | |||
= Смотрите также = | = Смотрите также = | ||
[[Полезные функции]] | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
Версия 12:26, 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
