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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Полный текст функции)
м
Строка 1: Строка 1:
UTH_LAST_FLOUR - это программа из справочника R266
+
UTH_LAST_FLOUR - это программа из справочника [[R266]]
  
 
Возвращает последнюю влажность муки из документов приход от поставщиков
 
Возвращает последнюю влажность муки из документов приход от поставщиков

Версия 13:53, 12 сентября 2016

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

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

Функции Delphi

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