Сдвиг строки табличной части документа с указанием номера целевой строки в управляемых формах

10.10.23

В табличных частях с большим количеством позиций, для того чтобы новую строку поместить в конкретное место таблицы, приходится долго нажимать штатную кнопку сдвига строки (вверх или вниз). Следующий код позволит конкретно указать номер строки, в который необходимо поместить выделенную строку табличной части. Выполнил асинхронным методом. Работает во всех конфигурациях на управляемых формах. В данном примере выполнял в конфигурации УТ 11.4

На форме любого документа в управляемых формах создаем команду и помещаем ее на форму. В моем случае я сделал в расширении.

Команда у меня называется "ПереместитьСтроку". Она ссылается на клиентскую процедуру Расш1_ПереместитьСтрокуПосле()

В модуле формы будет всего три процедуры:

Асинхронно задаем вопрос, на какую позицию переместить выделенную строку и выполняем команду

&НаКлиенте
Процедура Расш1_ПереместитьСтрокуПосле(Команда)
    
    ТекущаяСтрока = Элементы.Товары.ТекущиеДанные;
    
    НовыйНомерСтроки = ТекущаяСтрока.НомерСтроки;
    
    Оповещение = Новый ОписаниеОповещения("ПереместитьСтрокуЗавершение", ЭтотОбъект);
    ПоказатьВводЧисла(Оповещение, НовыйНомерСтроки,"Укажите новый номер строки:", 15);
    
КонецПроцедуры    

&НаКлиенте
Процедура ПереместитьСтрокуЗавершение(НовыйНомерСтроки, ДополнительныеПараметры) Экспорт

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

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

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

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

Вступайте в нашу телеграмм-группу Инфостарт

Конфигурация сдвиг строки

+5 –

См. также

Infostart Dashboard: Монитор показателей, виджеты и дашборды в 1С 8.3

Работа с интерфейсом Анализ учета Мониторинг 1С:Предприятие 8 1С 8.3 1C:Бухгалтерия 1С:Бухгалтерия 3.0 1С:Библиотека стандартных подсистем 1С:ERP Управление предприятием 2 1С:Управление холдингом 1С:Зарплата и Управление Персоналом 3.x 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Управление торговлей 11 Платные (руб)

Создайте свой функциональный интерфейс в любой конфигурации 1С с помощью расширения Infostart Dashboard. Настраивайте панели виджетов с метриками, индикаторами и показателями на начальном экране. Узнайте возможность внедрения подсистемы у себя в конфигурации с помощью бесплатной обработки "Анализ внедрения подсистемы 1С Infostart Dashboard"!

28800 руб.

27.03.2025 56402 31 25

Дизайнер форм 1С

Разработка Инструментарий разработчика Работа с интерфейсом Адаптация типовых решений Нейросети 1C:Бухгалтерия 1C:ERP 1С:ЗУП 1С:КА 1С:УНФ 1С:УТ 1С:Розница 1С:ДО 1С:ERP Управление предприятием 2 Платные (руб)

Разработка "Дизайнер форм 1С" реализована в виде расширения 1С и является универсальным инструментом для разработки прототипа форм с целью демонстраций, технических заданий и т.д. Без участия разработчика с возможностью экспорта в файл внешней обработки и генерации формы используя искусственный интеллект.

36000 руб.

28.08.2025 2702 1 2

Динамическое управление видимостью и доступностью элементов форм (УФ) (8.3.6+)

Работа с интерфейсом Системный администратор Программист 1С:Предприятие 8 1C:Бухгалтерия Платные (руб)

Расширение «Динамическое управление доступом к элементам форм объектов 1С8» предназначен для обеспечения возможности оперативного управления видимостью и доступностью элементов форм документов и справочников продуктов фирмы «1С» «1С:Предприятие 8». Решение универсальное, встраивается в любую конфигурацию с минимальными доработками, что позволяет без проблем обновлять типовые решения.

6000 руб.

14.01.2016 58241 20 25

Управление дашбордами в 1С

Работа с интерфейсом Программист 1С:Предприятие 8 1C:Бухгалтерия 1С:ERP Управление предприятием 2 Платные (руб)

Обработка предназначена для создания и управления дашбордами (виджетами) в 1С.

5160 руб.

29.06.2020 22865 32 6

Настройки управляемых форм (списков, объектов), заполнение реквизитов по условиям, контроль заполнения, доступ [Расширение]

Работа с интерфейсом 1С:Предприятие 8 1С:Управление торговлей 11 Россия Платные (руб)

Настройки упр.форм (списков, объектов), заполнение реквизитов по условиям, контроль заполнения, условное оформление, доступ.

2000 руб.

20.02.2018 22355 24 21

Редактор графов в 1С

Работа с интерфейсом Программист 1С:Предприятие 8 1C:Бухгалтерия Россия Платные (руб)

Редактор графов в 1С - внешний отчет, который формирует графы на основе таблицы значений, используя рисунки табличного документа. Есть возможность добавления, редактирования объектов графа и выгрузки результата в таблицу значений.

5040 руб.

06.10.2020 12852 8 8

Загрузка табличного документа в таблицу значений. Пять строк кода, которые изменили мир

Универсальные функции Программист 1С:Предприятие 8 1C:Бухгалтерия Бесплатно (free)

Благодаря этим пяти строчкам можно больше не заморачиваться с загрузкой из внешних файлов. Пользуюсь везде, всегда и постоянно.

21.05.2024 46517 dimanich70 83

165

Валидация JSON через XDTO (включая массивы)

WEB-интеграция Универсальные функции Механизмы платформы 1С Программист 1С:Предприятие 8 1C:Бухгалтерия Бесплатно (free)

При работе с интеграциями рано или поздно придется столкнуться с получением JSON файлов. И, конечно же, жизнь заставит проверять файлы перед тем, как записывать данные в БД.

28.08.2023 22846 YA_418728146 8

174

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. dhurricane 10.10.23 14:13 Сейчас в теме

1. Зачем для сдвига вызывать сервер? Метод сдвига доступен и на клиенте.
2. Код метода "ПереместитьСтрокуНаСервере" можно упростить:

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

2. Sashares 33 12.10.23 11:33 Сейчас в теме

Асинхронно задаем вопрос

Может тогда и использовать новые фишки Асинх?
Тогда все в одной процедуре можно сделать.
Конечно не для УТ 11.4, но для остальных конфигураций, где подняли режим совместимости вполне пойдет.

&НаКлиенте
Асинх Процедура Расш1_ПереместитьСтрокуПосле(Команда)
    
    ТекущаяСтрока = Элементы.Товары.ТекущиеДанные;
    
    НовыйНомерСтроки = ТекущаяСтрока.НомерСтроки;
    
    НовыйНомерСтроки = Ждать ВвестиЧислоАсинх( НовыйНомерСтроки,"Укажите новый номер строки:", 15)
    
    //и далее стандартный код
    
КонецПроцедуры

Показать