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

10.10.23

–

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

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

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

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

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

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

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

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

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

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

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

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

–

См. также

Богатый редактор картинок, хранимых в базе, с возможностью РИСОВАНИЯ. Редактор внешних файлов картинок. Объект, расширяющий возможности работы с картинками из встроенного языка (Три в одном) + Обработка «Стандартизация картинок»

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

Обработка предназначена для редактирования картинок в режиме «Предприятие», с возможностью РИСОВАТЬ на них. Поддерживается работа как в обычных формах (толстый клиент) так и на управляемых формах (тонкий клиент). Обработка позволяет редактировать как картинки, хранимые в базе, так и графические файлы с диска на файловой системе. Помимо базовых функций (изменение размеров, преобразование формата, обрезание картинки, повороты и т.п.) – редактор имеет богатый набор инструментов для рисования. Доступна функция вставки изображения из буфера обмена. Также обработка может быть использована из встроенного языка как объект для редактирования картинок. Объект может быть использован: на стороне клиента, на стороне сервера, из внешнего соединения. Данная обработка будет особенно полезна тем, кто вносит картинки в базу (изображения номенклатуры, фотографии физических лиц и т.п.). Функционал реализуется с использованием JavaScript и бесплатного ПО ImageMagick (без использования внешних компонент).

6000 руб.

16.01.2015 62138 43 59

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

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

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

2400 руб.

29.06.2020 16934 22 4

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

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

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

28.08.2023 9708 YA_418728146 6

146

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

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

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

2 стартмани

22.08.2023 2335 29 progmaster 8

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

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

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

1 стартмани

05.07.2022 3973 kalyaka 4

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

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

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

3600 руб.

29.04.2022 12327 1 5

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

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

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

6000 руб.

18.01.2022 8967 1 2

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

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

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

12.11.2021 17745 acces969 95

148

Комментарии

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

Свернуть все

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

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

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

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

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

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

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

Показать