ADDR113 - История изменений

Hisava в 12:21, 22 ноября 2019

2019-11-22T12:21:11Z

2017-07-25T07:31:33Z

2017-01-23T05:43:13Z

2017-01-23T05:14:52Z

2017-01-23T05:14:36Z

2017-01-23T05:13:48Z

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

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

= Смотрите также =
[[Функции Delphi]]

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

@@ Строка 1: / Строка 1: @@
 [[ADDR113]] - это программа из справочника [[R266]]
+ Добавляем в [[R113]] все изделия ( с возможностью выбора ), которых еще нет в [[R113]]
-Добавляем в [[R113]] все изделия ( с возможностью выбора ), которых еще нет в [[R113]]
+[[ADDR113]]()
-−
 = Текст =
   local sql, flt, _r11, aa, i
@@ Строка 40: / Строка 38: @@
   [[Refresh]]()
 [[Функции Delphi]]

← Предыдущая		Версия 05:43, 23 января 2017
Строка 1:		Строка 1:
	[[ADDR113]] - это программа из справочника [[R266]]		[[ADDR113]] - это программа из справочника [[R266]]
		+
		+	Добавляем в [[R113]] все изделия ( с возможностью выбора ), которых еще нет в [[R113]]
		+
		+	= Текст =
		+
		+	local sql, flt, _r11, aa, i
		+
		+	flt := [ USE_STATUS<>1 ]
		+
		+	sql := [ Select KODPROD ;
		+	From [[R113]] ]
		+
		+	aa := [[SelectSqlToArr]]( sql, {'KODPROD' }, ReflisPath )
		+
		+	if ![[Empty]]( aa )
		+	aa := [[PrepareArr]]( aa, 1 )
		+	endif
		+
		+	for i := 1 to [[len]]( aa )
		+	flt := flt + [ and KOD <> ] + aa[i]
		+	next
		+
		+	_r11 := [[ChoiceRefr]]( 'R11', "[[GrpRecord]]('KOD')", { 'KOD', 'PNAME', 'BKACNT' }, flt, ;
		+	~Title := 'Выберите изделия Alt+F1, Alt+F2' )
		+	if [[Empty]]( _r11 )
		+	return
		+	endif
		+	if [[ValType]]( _r11 ) = 'N'
		+	_r11 := { _r11 }
		+	endif
		+
		+	sql := [ Select KOD,1 KOEF ;
		+	From r11 ;
		+	Where KOD in ( ] + [[ArrAsString]]( _r11 ) + [ ) ]
		+
		+	sql := [ Insert into [[R113]]( KODPROD, KOEF ) ] + sql
		+
		+	[[SimpleSql]]( sql, ReflisPath )
		+
		+	[[Refresh]]()

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

← Предыдущая		Версия 05:14, 23 января 2017
Строка 1:		Строка 1:
−	[[ADDR113]] - это ~~функция~~ из справочника [[R266]]	+	[[ADDR113]] - это программа из справочника [[R266]]

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