1c/uas_ep
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases 3 Wiki Activity

ОКСи, Фирма 1С. Управление аптечной сетью, редакция 11.5. v11.5.27.70

Browse Source
This commit is contained in:
Михаил Кудрявцев (разработчик)
2026-09-04 15:25:55 +03:00
parent a975da3382
commit bc4fa20480
806 changed files with 61967 additions and 11924 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/CommonForms/ФормаНастроекОтчета/Ext/Form/Module.bsl
+39 -8
View File
@@ -1615,7 +1615,9 @@
Строка = СтруктураВарианта.НайтиПоИдентификатору(ПараметрыПеретаскивания.Значение);
НовыйРодитель = СтруктураВарианта.НайтиПоИдентификатору(ИдентификаторЦели);
Результат = ПереместитьЭлементыСтруктурыВарианта(Строка, НовыйРодитель);
ДополнительныеПараметры = ДополнительныеПараметрыПеремещенияЭлементовСтруктурыВарианта();
ДополнительныеПараметры.Копировать = ПараметрыПеретаскивания.Действие = ДействиеПеретаскивания.Копирование;
Результат = ПереместитьЭлементыСтруктурыВарианта(Строка, НовыйРодитель, ДополнительныеПараметры);
Элементы.СтруктураВарианта.Развернуть(НовыйРодитель.ПолучитьИдентификатор(), Истина);
Элементы.СтруктураВарианта.ТекущаяСтрока = Результат.Строка.ПолучитьИдентификатор();
@@ -1785,7 +1787,9 @@
КонецЦикла;
// 1. Переместить нижнюю строку на уровень с верхней.
Результат = ПереместитьЭлементыСтруктурыВарианта(СтрокаТаблицыВверх, СтрокаТаблицыВниз.ПолучитьРодителя(), СтрокаТаблицыВниз);
ДополнительныеПараметры = ДополнительныеПараметрыПеремещенияЭлементовСтруктурыВарианта();
ДополнительныеПараметры.ПередЧемВставить = СтрокаТаблицыВниз;
Результат = ПереместитьЭлементыСтруктурыВарианта(СтрокаТаблицыВверх, СтрокаТаблицыВниз.ПолучитьРодителя(), ДополнительныеПараметры);
СтрокаТаблицыВверх = Результат.Строка;
// 2. Запомнить какие строки нужно переместить.
@@ -1807,7 +1811,9 @@
Иначе
ПередЧемВставить = СтрокиВверх[Индекс];
КонецЕсли;
Результат = ПереместитьЭлементыСтруктурыВарианта(СтрокаТаблицыВниз, СтрокаТаблицыВверх, ПередЧемВставить);
ДополнительныеПараметры = ДополнительныеПараметрыПеремещенияЭлементовСтруктурыВарианта();
ДополнительныеПараметры.ПередЧемВставить = ПередЧемВставить;
Результат = ПереместитьЭлементыСтруктурыВарианта(СтрокаТаблицыВниз, СтрокаТаблицыВверх, ДополнительныеПараметры);
СтрокаТаблицыВниз = Результат.Строка;
// Бантики.
@@ -5054,11 +5060,31 @@
КонецФункции
&НаКлиенте
Функция ПереместитьЭлементыСтруктурыВарианта(Знач Строка, Знач НовыйРодитель,
Знач ПередЧемВставить = Неопределено, Знач Индекс = Неопределено, Знач ИндексЭлементаНастройки = Неопределено)
Функция ДополнительныеПараметрыПеремещенияЭлементовСтруктурыВарианта()
ДополнительныеПараметры = Новый Структура;
ДополнительныеПараметры.Вставить("ПередЧемВставить", Неопределено);
ДополнительныеПараметры.Вставить("Индекс", Неопределено);
ДополнительныеПараметры.Вставить("ИндексЭлементаНастройки", Неопределено);
ДополнительныеПараметры.Вставить("Копировать", Ложь);
Возврат ДополнительныеПараметры;
КонецФункции
&НаКлиенте
Функция ПереместитьЭлементыСтруктурыВарианта(Знач Строка, Знач НовыйРодитель, Знач ДополнительныеПараметры = Неопределено)
Результат = Новый Структура("Строка, ЭлементНастройки, Индекс, ИндексЭлементаНастройки");
Если ДополнительныеПараметры = Неопределено Тогда
ДополнительныеПараметры = ДополнительныеПараметрыПеремещенияЭлементовСтруктурыВарианта();
КонецЕсли;
ПередЧемВставить = ДополнительныеПараметры.ПередЧемВставить;
Индекс = ДополнительныеПараметры.Индекс;
ИндексЭлементаНастройки = ДополнительныеПараметры.ИндексЭлементаНастройки;
Копировать = ДополнительныеПараметры.Копировать;
ДобавлятьВКонец = (НовыйРодитель = Неопределено);
КудаВставить = ПолучитьЭлементы(СтруктураВарианта, НовыйРодитель);
@@ -5113,8 +5139,10 @@
НоваяСтрока.Идентификатор = ПоискЭлементовКД.Получить(СтараяСтрока.Идентификатор);
КонецЦикла;
ОткудаПереместить.Удалить(Строка);
ОткудаПереместитьКД.Удалить(ЭлементКД);
Если Не Копировать Тогда
ОткудаПереместить.Удалить(Строка);
ОткудаПереместитьКД.Удалить(ЭлементКД);
КонецЕсли;
КонецЕсли;
Результат.Индекс = КудаВставить.Индекс(Результат.Строка);
@@ -6130,7 +6158,10 @@
Индекс = 0;
КонецЕсли;
Результат = ПереместитьЭлементыСтруктурыВарианта(Контекст.ТекущаяСтрока, НовыйРодитель,, Индекс, Индекс);
ДополнительныеПараметры = ДополнительныеПараметрыПеремещенияЭлементовСтруктурыВарианта();
ДополнительныеПараметры.Индекс = Индекс;
ДополнительныеПараметры.ИндексЭлементаНастройки = Индекс;
Результат = ПереместитьЭлементыСтруктурыВарианта(Контекст.ТекущаяСтрока, НовыйРодитель, ДополнительныеПараметры);
Элементы.СтруктураВарианта.Развернуть(НовыйРодитель.ПолучитьИдентификатор(), Истина);
Элементы.СтруктураВарианта.ТекущаяСтрока = Результат.Строка.ПолучитьИдентификатор();