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

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

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

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

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

UTH_LAST_FLOUR( data, kod, silos )

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

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

Функции Delphi