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

10.10.23

–

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

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

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

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

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

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

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

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

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

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

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

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

–

См. также

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

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

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

2400 руб.

29.06.2020 17200 23 4

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

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

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

1500 руб.

20.02.2018 19865 23 20

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

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

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

28.08.2023 10418 YA_418728146 7

148

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

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

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

2 стартмани

22.08.2023 2539 36 progmaster 8

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

Работа с интерфейсом Программист Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

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

1 стартмани

05.07.2022 4216 kalyaka 4

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

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

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

3600 руб.

29.04.2022 12585 1 8

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

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

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

6000 руб.

18.01.2022 9111 1 2

Несколько простых приемов для удобной работы в конфигураторе

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

Простая и удобная среда разработки 1С:Предприятия позволяет практически любому человеку начать работать под капотом 1С - в конфигураторе. Время идет, новички становятся программистами, специалистами, а об удобных приемах работы узнают годами, по ходу своего карьерного пути. А здорово было бы, если бы все знали удобные приемы в начале своего пути? Эти несколько приемов будут полезны новичкам, так как они затрагивают ту область работы, с которой приходится сталкиваться в начале карьеры.

12.11.2021 18210 acces969 95

148

Комментарии

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

Свернуть все

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

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

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

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

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

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

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

Показать