Код

// ===============================
Процедура ТП_НастроекНачалоПеретаскивания(_ТП,ДопустимыеДействия, Значение, Колонка, ТипРегиона, ТипЦели)
	ИмяКол = Колонка.Имя;
	Источник_ИмяКол = ИмяКол;
	Источник_СинКол = Колонка.Заголовок;
	ЗначПерет = _ТП.ТекущиеДанные.Получить(ИмяКол);
	Значение = _ТП.ТекущиеДанные.Получить("ТекЭл");
	Источник_ЗнаКол = ЗначПерет;
	Источник_ИДЗнаКол = Источник_ЗнаКол;


	Если ТипЦели <> 3 Тогда
		ТипЦели = 2;
	КонецЕсли;
	//нн = 1;
КонецПроцедуры
// ===============================
Процедура ТП_НастроекПроверкаПеретаскивания(_ТП, Действие, Значение, СтрокаТП, КолонкаТП, ТипЦели)
	ТекВидРасч = ТЗИстВидовРасч.ПолучитьЗначение(СтрокаТП,"ТекЭл");
	ПредВидРасч = Значение;
	Если (ТекВидРасч.флНачисление <> ПредВидРасч.флНачисление)
	И (ТекВидРасч.флУдержание <> ПредВидРасч.флУдержание) Тогда
		Действие = 0;
	Иначе
		Действие = 1;
	КонецЕсли;

КонецПроцедуры

// ===============================
Процедура ТП_НастроекПеретаскивание(_ТП, Действие, Значение, СтрокаТП, КолонкаТП, ТипРегионаТП)
	//Если Источник_ИмяКол = "СостояниеДок" Тогда
	//	ВключитьФильтр("ВидДок","", ИДВидДок);
	//Иначе
	//	ВключитьФильтр(Источник_ИмяКол,Источник_ЗнаКол, Источник_ИДЗнаКол);
	//КонецЕсли;
	КудаСдвинуть = СтрокаТП;
	СтрокаОткуда = "";
	ТЗИстВидовРасч.НайтиЗначение(Значение,СтрокаОткуда,"ТекЭл");
	Зн = Значение;
	ТЗИстВидовРасч.СдвинутьСтроку(СтрокаТП-СтрокаОткуда,СтрокаОткуда);

	ТЗИстВидовРасч.ВыбратьСтроки();
	Пока ТЗИстВидовРасч.ПолучитьСтроку() = 1 Цикл
		ТЗИстВидовРасч.Порядок = ТЗИстВидовРасч.НомерСтроки;
		СпрВидовРасч.НайтиЭлемент(ТЗИстВидовРасч.ТекЭл);
		Если СпрВидовРасч.Порядок <> ТЗИстВидовРасч.Порядок Тогда
			СпрВидовРасч.Порядок = ТЗИстВидовРасч.Порядок;
			СпрВидовРасч.Записать();
		КонецЕсли;
	КонецЦикла;

	_ТП.ОбновитьСтроки();
	//ВключитьФильтр(Источник_ИмяКол,Источник_ЗнаКол, Источник_ИДЗнаКол);
	//ТППалит.ОбновитьСтроки();
	//ОбновитьДанные();
КонецПроцедуры