Доброго времени суток, подскажите можно ли реализовать перетаскивание в пределах одного табличного поля, из одного столбца в другой, не могу найти нормальный пример.
---
Не знаю насколько правильно, но сделал так, если у кого есть другое решение буду благодарен.

```1c
    Процедура ДанныеПланированияНачалоПеретаскивания(Элемент, ПараметрыПеретаскивания, Выполнение)

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

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

    Процедура ДанныеПланированияПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Колонка)

    Если ТипЗнч(ПараметрыПеретаскивания.Значение.Сумма) = Тип("Число") Тогда

    ЭлементПриемник = 0;

    Выполнить("ЭлементПриемник = Элемент.ТекущаяСтрока." + Колонка.Данные);

    Если Вопрос("Суммировать перетаскиваемое значение? "Да" - Значение из источника будет суммировано с значением приёмником,
    |"Нет" - значение будет заменено.", РежимДиалогаВопрос.ДаНет) = КодВозвратаДиалога.Да Тогда

    Для каждого СтрокаТЧ из ДанныеПланирования Цикл
    Если СтрокаТЧ.НомерСтроки = Строка.НомерСтроки Тогда
    //Устанавливаем значение в необходимую колонку, а в колонку источник устанавливаем 0, и помечаем документ бюджетная опирация
    //для это недели на удаление.
    //Устанавливаем
    Выполнить("СтрокаТЧ." + Колонка.Имя + "= ПараметрыПеретаскивания.Значение.Сумма + ЭлементПриемник");
    //Обнуляем
    Выполнить("СтрокаТЧ." + ПараметрыПеретаскивания.Значение.КолонкаИмя + "= 0");
    //To do
    //Сделать процедуру удаления документа если значение в колонке обнуляется.
    КонецЕсли;
    КонецЦикла;

    Иначе

    Для каждого СтрокаТЧ из ДанныеПланирования Цикл
    Если СтрокаТЧ.НомерСтроки = Строка.НомерСтроки Тогда
    //Устанавливаем значение в необходимую колонку, а в колонку источник устанавливаем 0, и помечаем документ бюджетная опирация
    //для это недели на удаление.

    //Устанавливаем
    Выполнить("СтрокаТЧ." + Колонка.Имя + "= ПараметрыПеретаскивания.Значение.Сумма");
    //Обнуляем
    Выполнить("СтрокаТЧ." + ПараметрыПеретаскивания.Значение.КолонкаИмя + "= 0");
    //To do
    //Сделать процедуру удаления документа если значение в колонке обнуляется.

    КонецЕсли;
    КонецЦикла;

    КонецЕсли;

    Иначе
    Сообщить("Перетаскиваемое значение не является числом!");
    ПараметрыПеретаскивания.Действие = ДействиеПеретаскивания.Отмена;
    ПараметрыПеретаскивания.ДопустимыеДействия = ДопустимыеДействияПеретаскивания.НеОбрабатывать;
    КонецЕсли;

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

    Процедура ДанныеПланированияПроверкаПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Колонка)
    СтандартнаяОбработка = Ложь;
    КонецПроцедуры
```
---
реализовать можно) как вы гуглем пользуетесь первый же запрос "перетаскивание табличное поле 1с" дал результат
https://its.1c.ru/db/metod8dev/content/2201/hdoc
---
Видел, там есть демо база, поставил, но там в приделах одного табличного поля не работает.
---
Попробовал. Поможет событие:
Перетаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Колонка)
В нем сделать проверку на равенство типов переносимых данных и конечной ячейки. И присвоить.

Строка, Колонка - конечная точка мыши
С начальной ячейкой не увидел решения - ПараметрыПеретаскивания содержим слишком много всякого. Поленился смотреть.
---
Не знаю насколько правильно, но сделал так, если у кого есть другое решение буду благодарен.

```1c
    Процедура ДанныеПланированияНачалоПеретаскивания(Элемент, ПараметрыПеретаскивания, Выполнение)

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

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

    Процедура ДанныеПланированияПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Колонка)

    Если ТипЗнч(ПараметрыПеретаскивания.Значение.Сумма) = Тип("Число") Тогда

    ЭлементПриемник = 0;

    Выполнить("ЭлементПриемник = Элемент.ТекущаяСтрока." + Колонка.Данные);

    Если Вопрос("Суммировать перетаскиваемое значение? "Да" - Значение из источника будет суммировано с значением приёмником,
    |"Нет" - значение будет заменено.", РежимДиалогаВопрос.ДаНет) = КодВозвратаДиалога.Да Тогда

    Для каждого СтрокаТЧ из ДанныеПланирования Цикл
    Если СтрокаТЧ.НомерСтроки = Строка.НомерСтроки Тогда
    //Устанавливаем значение в необходимую колонку, а в колонку источник устанавливаем 0, и помечаем документ бюджетная опирация
    //для это недели на удаление.
    //Устанавливаем
    Выполнить("СтрокаТЧ." + Колонка.Имя + "= ПараметрыПеретаскивания.Значение.Сумма + ЭлементПриемник");
    //Обнуляем
    Выполнить("СтрокаТЧ." + ПараметрыПеретаскивания.Значение.КолонкаИмя + "= 0");
    //To do
    //Сделать процедуру удаления документа если значение в колонке обнуляется.
    КонецЕсли;
    КонецЦикла;

    Иначе

    Для каждого СтрокаТЧ из ДанныеПланирования Цикл
    Если СтрокаТЧ.НомерСтроки = Строка.НомерСтроки Тогда
    //Устанавливаем значение в необходимую колонку, а в колонку источник устанавливаем 0, и помечаем документ бюджетная опирация
    //для это недели на удаление.

    //Устанавливаем
    Выполнить("СтрокаТЧ." + Колонка.Имя + "= ПараметрыПеретаскивания.Значение.Сумма");
    //Обнуляем
    Выполнить("СтрокаТЧ." + ПараметрыПеретаскивания.Значение.КолонкаИмя + "= 0");
    //To do
    //Сделать процедуру удаления документа если значение в колонке обнуляется.

    КонецЕсли;
    КонецЦикла;

    КонецЕсли;

    Иначе
    Сообщить("Перетаскиваемое значение не является числом!");
    ПараметрыПеретаскивания.Действие = ДействиеПеретаскивания.Отмена;
    ПараметрыПеретаскивания.ДопустимыеДействия = ДопустимыеДействияПеретаскивания.НеОбрабатывать;
    КонецЕсли;

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

    Процедура ДанныеПланированияПроверкаПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Колонка)
    СтандартнаяОбработка = Ложь;
    КонецПроцедуры
```