UTH LAST FLOUR — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
(Новая страница: «UTH_LAST_FLOUR - это программа из справочника R266 Возвращает последнюю влажность муки из докуме…»)
 
м
 
(не показано 5 промежуточных версий этого же участника)
Строка 1: Строка 1:
−
UTH_LAST_FLOUR - это программа из справочника R266
+
[[UTH_LAST_FLOUR]] - это программа из справочника [[R266]]
 +
Возвращает последнюю влажность муки из документов приход от поставщиков
 +
[[UTH_LAST_FLOUR]]( data,  kod,  silos )
 +
= Смотрите также =
 +
[[Полезные функции]]
  
−
Возвращает последнюю влажность муки из документов приход от поставщиков
+
[[Функции Delphi]]
−
 
+
−
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
+

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

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

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

UTH_LAST_FLOUR( data, kod, silos )

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

Полезные функции

Функции Delphi

Источник — «https://wiki.sftserv.ru/index.php?title=UTH_LAST_FLOUR&oldid=37761»