Текущая версия на 08:44, 16 марта 2020

UTH_LAST_FLOUR - это программа из справочника R266

Возвращает последнюю влажность муки из документов приход от поставщиков

UTH_LAST_FLOUR( data, kod, silos )

Смотрите также

@@ Строка 2: / Строка 2: @@
   Возвращает последнюю влажность муки из документов приход от поставщиков
 [[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]]