Merge branch 'release/1.11'

src/CodeConsole83/Form/ФормаРедакторГраница/Форма.bsl

@@ -1,6 +1,13 @@
 &НаКлиенте
 Перем БиблиотекаМетодов;
 
+&НаКлиенте
+Процедура Инициализировать(пБиблиотекаМетодов) Экспорт 
+
+	БиблиотекаМетодов = пБиблиотекаМетодов;
+
+КонецПроцедуры
+
 &НаСервере
 Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
 
@@ -11,13 +18,6 @@
 
 КонецПроцедуры
 
-&НаКлиенте
-Процедура Инициализировать(пБиблиотекаМетодов) Экспорт 
-
-	БиблиотекаМетодов = пБиблиотекаМетодов;
-
-КонецПроцедуры
-
 &НаКлиенте
 Процедура Сохранить(Команда)
 

src/CodeConsole83/Form/ФормаРедакторТаблицы/Форма.bsl

@@ -1,72 +1,13 @@
-
-#Область Работа_с_формой
+&НаКлиенте
+Перем БиблиотекаМетодов;
 
-&НаСервере
-процедура СоздатьКолонкиТЗ(Колонки)
-	МассивРеквизитов = Новый Массив;
-
-	Для Каждого Колонка из Колонки Цикл
-		Если Колонка.Имя = "_Служебная" Тогда 
-			Продолжить;
-		КонецЕсли;
-
-		РеквизитФормы = Новый РеквизитФормы(Колонка.Имя, Колонка.ТипЗначения, "ТаблицаДанных");
-		МассивРеквизитов.Добавить(РеквизитФормы);
-	КонецЦикла;
-
-	ЭтаФорма.ИзменитьРеквизиты(МассивРеквизитов);
-
-	Для Каждого Колонка из Колонки цикл
-		Если Колонка.Имя = "_Служебная" Тогда 
-			Продолжить;
-		КонецЕсли;
-		ИмяКолонки = "ТаблицаДанных" + Колонка.Имя;
-		Элемент = ЭтаФорма.Элементы.Найти(ИмяКолонки);
-
-		Если Элемент = Неопределено Тогда
-
-			Элемент = ЭтаФорма.Элементы.Добавить(ИмяКолонки, Тип("ПолеФормы"), Элементы.ТаблицаДанных);
-			//Попытка
-			Элемент.ПутьКДанным = "ТаблицаДанных." + Колонка.Имя;
-			//Исключение
-			//КонецПопытки;
-
-		КонецЕсли;
-		Элемент.Вид = ВидПоляФормы.ПолеВвода;
-		Элемент.Заголовок = Колонка.Имя;
-	КонецЦикла;
-
-КонецПроцедуры
-
-&НаСервере
-Процедура УдалитьКолонки(Колонки)
-
-	МассивУдаляемыхРеквизитов = Новый Массив;
-
-	Для Каждого Колонка из Колонки цикл
-		Если Колонка.Имя = "_Служебная" Тогда 
-			Продолжить;
-		КонецЕсли;
-
-		МассивУдаляемыхРеквизитов.Добавить("ТаблицаДанных."+Колонка.Имя);
-	КонецЦикла;
-
-	ЭтаФорма.ИзменитьРеквизиты(, МассивУдаляемыхРеквизитов);
+&НаКлиенте
+Процедура Инициализировать(пБиблиотекаМетодов) Экспорт 
 
-	Для Каждого Колонка из Колонки цикл
-		Если Колонка.Имя = "_Служебная" Тогда 
-			Продолжить;
-		КонецЕсли;
-		ИмяКолонки = "ТаблицаДанных" + Колонка.Имя;
-		Элемент = ЭтаФорма.Элементы.Найти(ИмяКолонки);
-		ЭтаФорма.Элементы.Удалить(Элемент);
-	КонецЦикла;
+	БиблиотекаМетодов = пБиблиотекаМетодов;
 
 КонецПроцедуры
 
-#КонецОбласти //Работа_с_формой
-
-
 #Область События_формы
 
 &НаСервере
@@ -78,7 +19,7 @@
 
 	Если Таблица <> Неопределено Тогда 
 
-		ОбновитьКолонкиТЗ(, Таблица.Колонки);
+		ВнешниеОбработки.Создать("CodeConsole83").СоздатьКолонкиТЗ(ЭтаФорма, "ТаблицаДанных", Таблица.Колонки);
 
 		ТаблицаДанных.Загрузить(Таблица);
 
@@ -103,27 +44,6 @@
 
 #КонецОбласти //События_формы
 
-&НаСервере
-Процедура ОбновитьКолонкиТЗ(СтарыеКолонки = Неопределено, НовыеКолонки)
-
-	Если СтарыеКолонки <> Неопределено Тогда 
-
-		УдалитьКолонки(СтарыеКолонки);
-
-	КонецЕсли;
-
-	СоздатьКолонкиТЗ(НовыеКолонки);
-
-	РеквизитыТаблицы.Очистить();
-	Для Каждого Колонка Из НовыеКолонки Цикл 
-
-		Стр = РеквизитыТаблицы.Добавить();
-		ЗаполнитьЗначенияСвойств(Стр, Колонка);
-
-	КонецЦикла;
-
-КонецПроцедуры
-
 &НаСервере
 Процедура ОбновитьТЗ(ОписаниеКолонок)
 
@@ -149,7 +69,7 @@
 
 	КонецЕсли;	
 
-	ОбновитьКолонкиТЗ(?(ТаблицаДо = Неопределено, Неопределено, ТаблицаДо.КОлонки), ТаблицаПосле.Колонки);
+	ВнешниеОбработки.Создать("CodeConsole83").ОбновитьКолонкиТЗ(ЭтаФорма, "ТаблицаДанных", ?(ТаблицаДо = Неопределено, Неопределено, ТаблицаДо.Колонки), ТаблицаПосле.Колонки);
 
 	ТаблицаДанных.Загрузить(ТаблицаПосле);