перемещать строки табличной части документа

[mikel10]

Всем добрый день! управление торговлей. Я создал новый документ ЗаданиеКурьера. Разместил в нем табличную часть ТабличнаяЧасть1. Сверху табл части я разместил стрелки вверх, вниз. Помогите написать операторы которые перемещают строки табл части вверх или вниз. Заранее благодарен.

[Besart]

а разве на форме нет стрелок по умолчанию вверх и вниз?

[mixqn]

форма то обычная, не управляемая, как я понимаю?

[Dethmontt]

Честно говоря такая тема поднимается последнее время очень часто... Решил выложить решение
Для обычных форм

Код Выделить Развернуть

Процедура КоманднаяПанель2Вверх(Кнопка)

текСтрока = ЭлементыФормы.ТабличнаяЧасть1.ТекущаяСтрока;
Если текСтрока.НомерСтроки > 1 Тогда
ТабличнаяЧасть1.Сдвинуть(текСтрока,-1);
КонецЕсли;

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

Процедура КоманднаяПанель2Вниз(Кнопка)

текСтрока = ЭлементыФормы.ТабличнаяЧасть1.ТекущаяСтрока;
Если текСтрока.НомерСтроки < ТабличнаяЧасть1.Количество() Тогда
ТабличнаяЧасть1.Сдвинуть(текСтрока,1);
КонецЕсли;

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

Для управляемых форм (в принципе тоже самое)

Код Выделить Развернуть

&НаКлиенте
Процедура Вверх(Команда)

текСтрока = Элементы.ТабличнаяЧасть1.ТекущиеДанные;
Если текСтрока.НомерСтроки > 1 Тогда
Объект.ТабличнаяЧасть1.Сдвинуть(текСтрока.НомерСтроки-1,-1);
КонецЕсли;

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

&НаКлиенте
Процедура Вниз(Команда)

текСтрока = Элементы.ТабличнаяЧасть1.ТекущиеДанные;
Если текСтрока.НомерСтроки < Объект.ТабличнаяЧасть1.Количество() Тогда
Объект.ТабличнаяЧасть1.Сдвинуть(текСтрока.НомерСтроки-1,1);
КонецЕсли;

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

Во вложении обработка

[mixqn]

ну на самом деле, вот похожая тема https://forum-baza.ru/index.php?topic=32113.msg95139#msg95139
кнопки перемещения есть и в обычных формах и в управляемых в командной панели. не вижу смысла кодом что-то писать (ну или такое решение должно быть чем-то обосновано, разъяснено, почему нельзя пользоваться стандартными средствами)

[Dethmontt]

Колледж, задание от препода... (буквально недавно слышал такое обоснование)

[mixqn]

ну это и есть веская причина
обучение - штука нужная