UTH TO STR - История изменений

Hisava в 05:24, 28 сентября 2021

2021-09-28T05:24:48Z

2017-06-26T05:22:44Z

2017-01-19T05:24:53Z

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

2016-11-03T09:16:28Z

‎Текст программы

2016-11-03T09:11:03Z

‎Текст программы

2016-11-03T09:10:44Z

2016-11-03T09:09:59Z

2016-11-03T09:09:34Z

2016-11-03T09:08:41Z

Новая страница: «UTH_TO_STR - = Смотрите также = Функции Delphi Полезные функции»

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

UTH_TO_STR -

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

[[Функции Delphi]]

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

@@ Строка 1: / Строка 1: @@
-UTH_TO_STR - это программа из справочника [[R266]]
+[[UTH_TO_STR]] - это программа из справочника [[R266]]
   Вернуть информацию о покупке номенклатуры строкой в виде
-UTH_TO_STR(refl,  kod,  data,  party := false)
-−
 Вернуть информацию о покупке номенклатуры строкой в виде
-−
   номер накладной "от" дата накладной ( код поставщика ) поставщик
 за последние 6 месяцев
@@ Строка 16: / Строка 13: @@
 party - вернуть только номер партии ( по умолчанию, false )
 = Текст =
-= Текст программы =
-−
   parameters refl, kod, data, party := false
@@ Строка 38: / Строка 33: @@
     endif
   next
 [[Функции Delphi]]

@@ Строка 27: / Строка 27: @@
   for i := 0 to 6
     sql := [ Select NUMDOC, DATDOC, KANAL1, [[Left]]( ] + SqlField( 'NATTR12',, 'sql_char' )+ [, 30 ) PARTY From [[DOCS]]] + [[Ret_f_ext]]( data,, -i ) + [ ;
-      Where KINDDOC = 'UTH' and LVLNUM = '2' and DATDOC <= '] + SqlDate( data ) + [' and KREFL1 = 'R01 ' and KANAL1 > 0 and DREFL2 = '] + refl + [' and DANAL2 = ] + kod + [ ;
+      Where KINDDOC = '[[UTH]]' and LVLNUM = '2' and DATDOC <= '] + [[SqlDate]]( data ) + [' and KREFL1 = 'R01 ' and KANAL1 > 0 and DREFL2 = '] + refl + [' and DANAL2 = ] + kod + [ ;
       Order by DATDOC DESC ]
-    aa := SqlToArr( sql, fld )
+    aa := [[SqlToArr]]( sql, fld )
-    if !IsEmpty( aa )
+    if ![[IsEmpty]]( aa )
-      result := aa[1,1] + ' от ' + aa[1,2] + ' ( ' + aa[1,3] + ' ) ' + RealName( 'R01', aa[1,3] )
+      result := aa[1,1] + ' от ' + aa[1,2] + ' ( ' + aa[1,3] + ' ) ' + [[RealName]]( 'R01', aa[1,3] )
       if party
         result := aa[1,4]

@@ Строка 26: / Строка 26: @@
   for i := 0 to 6
-    sql := [ Select NUMDOC, DATDOC, KANAL1, Left( ] + SqlField( 'NATTR12',, 'sql_char' )+ [, 30 ) PARTY From DOCS] + Ret_f_ext( data,, -i ) + [ ;
+    sql := [ Select NUMDOC, DATDOC, KANAL1, [[Left]]( ] + SqlField( 'NATTR12',, 'sql_char' )+ [, 30 ) PARTY From [[DOCS]]] + [[Ret_f_ext]]( data,, -i ) + [ ;
       Where KINDDOC = 'UTH' and LVLNUM = '2' and DATDOC <= '] + SqlDate( data ) + [' and KREFL1 = 'R01 ' and KANAL1 > 0 and DREFL2 = '] + refl + [' and DANAL2 = ] + kod + [ ;
       Order by DATDOC DESC ]

← Предыдущая		Версия 09:10, 3 ноября 2016
Строка 16:		Строка 16:

	party - вернуть только номер партии ( по умолчанию, false )		party - вернуть только номер партии ( по умолчанию, false )
		+
		+	= Текст программы =
		+
		+	parameters refl, kod, data, party := false
		+
		+	local sql, aa, fld, i
		+
		+	fld := { 'NUMDOC', 'DATDOC', 'KANAL1', 'PARTY' }
		+
		+	for i := 0 to 6
		+	sql := [ Select NUMDOC, DATDOC, KANAL1, Left( ] + SqlField( 'NATTR12',, 'sql_char' )+ [, 30 ) PARTY From DOCS] + Ret_f_ext( data,, -i ) + [ ;
		+	Where KINDDOC = 'UTH' and LVLNUM = '2' and DATDOC <= '] + SqlDate( data ) + [' and KREFL1 = 'R01 ' and KANAL1 > 0 and DREFL2 = '] + refl + [' and DANAL2 = ] + kod + [ ;
		+	Order by DATDOC DESC ]
		+	aa := SqlToArr( sql, fld )
		+	if !IsEmpty( aa )
		+	result := aa[1,1] + ' от ' + aa[1,2] + ' ( ' + aa[1,3] + ' ) ' + RealName( 'R01', aa[1,3] )
		+	if party
		+	result := aa[1,4]
		+	endif
		+	return
		+	endif
		+	next

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

@@ Строка 1: / Строка 1: @@
 UTH_TO_STR - это программа из справочника [[R266]]
 Вернуть информацию о покупке номенклатуры строкой в виде
-номер накладной "от" дата накладной ( код поставщика ) поставщик
+ номер накладной "от" дата накладной ( код поставщика ) поставщик
 за последние 6 месяцев

@@ Строка 13: / Строка 13: @@
 party - вернуть только номер партии ( по умолчанию, false )
 = Смотрите также =
 [[Полезные функции]]
 [[Функции Delphi]]

← Предыдущая		Версия 09:09, 3 ноября 2016
Строка 1:		Строка 1:
−	UTH_TO_STR -	+	UTH_TO_STR - это программа из справочника [[R266]]
		+
		+	Вернуть информацию о покупке номенклатуры строкой в виде
		+
		+	номер накладной "от" дата накладной ( код поставщика ) поставщик
		+
		+	за последние 6 месяцев
		+
		+	refl - справочник номенклатуры
		+
		+	kod - код номенклатуры
		+
		+	data - дата накладной
		+
		+	party - вернуть только номер партии ( по умолчанию, false )

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