UTH LAST FLOUR - История изменений

Hisava в 05:44, 16 марта 2020

2020-03-16T05:44:18Z

Hisava: /* Текст */

2017-06-14T09:26:54Z

‎Текст

Hisava в 09:25, 14 июня 2017

2017-06-14T09:25:31Z

Hisava в 09:23, 14 июня 2017

2017-06-14T09:23:47Z

Hisava в 10:53, 12 сентября 2016

2016-09-12T10:53:12Z

Hisava: /* Полный текст функции */

2016-09-12T10:52:55Z

‎Полный текст функции

Hisava: Новая страница: «UTH_LAST_FLOUR - это программа из справочника R266 Возвращает последнюю влажность муки из докуме…»

2016-05-04T05:39:43Z

Новая страница: «UTH_LAST_FLOUR - это программа из справочника R266 Возвращает последнюю влажность муки из докуме…»

Новая страница

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

@@ Строка 2: / Строка 2: @@
   Возвращает последнюю влажность муки из документов приход от поставщиков
 [[UTH_LAST_FLOUR]]( data,  kod,  silos )
 = Смотрите также =
 [[Полезные функции]]
 [[Функции Delphi]]

@@ Строка 11: / Строка 11: @@
     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 )
+    aa := [[SqlToArr]]( sql )
-    if !IsEmpty( aa )
+    if ![[IsEmpty]]( aa )
       max_date := aa
       // выход из цикла
@@ Строка 19: / Строка 19: @@
   next
-  if !Empty( max_date )
+  if ![[Empty]]( max_date )
     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
         // выход из цикла
@@ Строка 32: / Строка 32: @@
     next
   endif
 = Смотрите также =
 [[Полезные функции]]
 [[Функции Delphi]]

← Предыдущая		Версия 10:53, 12 сентября 2016
Строка 1:		Строка 1:
−	UTH_LAST_FLOUR - это программа из справочника R266	+	UTH_LAST_FLOUR - это программа из справочника [[R266]]

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

← Предыдущая		Версия 10:52, 12 сентября 2016
Строка 36:		Строка 36:
	next		next
	endif		endif
		+
		+	= Смотрите также =
		+
		+	[[Функции Delphi]]
		+
		+	[[Полезные функции]]

@@ Строка 1: / Строка 1: @@
-UTH_LAST_FLOUR - это программа из справочника [[R266]]
+[[UTH_LAST_FLOUR]] - это программа из справочника [[R266]]
+ Возвращает последнюю влажность муки из документов приход от поставщиков
-Возвращает последнюю влажность муки из документов приход от поставщиков
+[[UTH_LAST_FLOUR]]( data,  kod,  silos )
+= Текст =
 UTH_LAST_FLOUR( data,  kod,  silos )
-−
-= Полный текст функции =
-−
   parameters data, kod, silos
@@ Строка 13: / Строка 9: @@
   for i := 0 to 6
     // последняя дата
-    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
     aa := SqlToArr( sql )
@@ Строка 36: / Строка 32: @@
     next
   endif
 = Смотрите также =
 [[Функции Delphi]]