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

10.10.23

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

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

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

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

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

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

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

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

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

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

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

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

+4 –

См. также

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

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

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

5000 руб.

14.01.2016 55610 17 23

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

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

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

2400 руб.

29.06.2020 19926 28 6

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

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

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

28.08.2023 17056 YA_418728146 8

170

Печать непроведенных документов для УТ, КА, ERP. Настройка печати по пользователям, документам и печатным формам

Пакетная печать Печатные формы Адаптация типовых решений Универсальные функции Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Абонемент ($m)

Расширение для программ 1С:Управление торговлей, 1С:Комплексная автоматизация, 1С:ERP, которое позволяет распечатывать печатные формы для непроведенных документов. Можно настроить, каким пользователям, какие конкретные формы документов разрешено печатать без проведения документа.

2 стартмани

22.08.2023 4431 75 progmaster 11

Модель состояния для MVC

Работа с интерфейсом Программист Платформа 1С v8.3 1C:Бухгалтерия Абонемент ($m)

"MVC плохо применима в 1С" - познакомьтесь с моделью состояния и, возможно, ваше мнение поменяется! Представленное решение является эволюционным развитием идеи реализации MVC для 1С. В новой версии добавлены DSL для описания модели состояния, а также параметризация свойств параметров и элементов формы.

1 стартмани

05.07.2022 7930 kalyaka 6

Табло очереди заказов на экран телевизора

WEB-интеграция Работа с интерфейсом Пользователь Платформа 1С v8.3 1С:Розница 2 Платные (руб)

Связка из веб-приложения и расширения для конфигурации 1С:Розница 2.3.

3600 руб.

29.04.2022 14409 2 10

Условное оформление формы в пользовательском режиме 1С (управление видимостью и доступностью элементов форм)

Работа с интерфейсом Платформа 1С v8.3 Платные (руб)

Подсистема условного оформления элементов форм (далее подсистема) предназначена для настройки оформления элементов форм (видимость, доступность, цвет фона, цвет текста и прочее) в пользовательском режиме 1С. Также подсистему возможно использовать для ограничения доступа к реквизитам формы для определенных пользователей (или групп пользователей).

6000 руб.

18.01.2022 10296 1 2

Программный интерфейс для доработки форм

Работа с интерфейсом Программист Платформа 1С v8.3 1C:Бухгалтерия Бесплатно (free)

Реализовал простой способ программного создания новых элементов, команд и реквизитов на форме.

25.11.2021 11690 AtamanovYS 19

149

Комментарии

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

Свернуть все

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

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

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

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

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

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

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

Показать