Форум программистов, компьютерный форум, киберфорум
Maks
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  

Программное заполнения текстового поля в реквизите формы документа

Запись от Maks размещена 01.04.2026 в 10:05. Обновил(-а) Maks 03.04.2026 в 08:41
Показов 2684 Комментарии 0

Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению.
На форме документа создается реквизит формы "СтатусПеремещения", тип Строка/20, заголовок скрыт, установлен признак отображения на форме "Поле надписи".
Текст заполнения реквизита зависит от наличия/отсутствия заполненности реквизитов "Флаг" (тип Булево) и "ДокументНазначения" (тип ДокументСсылка.ВыдачаОборудованияНаСпецт ехнику).
1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
&НаСервере
Функция ОбновитьСтатусПеремещенияНаСервере()
    // выгружаем табличную часть
    ТабИсходная = Объект.ОборудованиеИКомплектующие.Выгрузить();
    // ищем строки с установленным флагом
    Отбор = Новый Структура("Флаг", Истина);
    СтрокиДляПеремещения = ТабИсходная.НайтиСтроки(Отбор);
    // возвращаем значения
    Если НЕ ЗначениеЗаполнено(ДокументНазначения) Тогда   
        Возврат "Документ назначения не выбран";
    КонецЕсли;
    Если СтрокиДляПеремещения.Количество() = 0 Тогда 
        Возврат "Необходимо выбрать позиции для перемещения";  
    КонецЕсли; 
    ДокОбъект = ДокументНазначения.ПолучитьОбъект();
    Возврат "Будет перемещено позиций: "+СтрокиДляПеремещения.Количество()+" на "+ДокОбъект.Спецтехника+".";  
КонецФункции
 
&НаКлиенте
Процедура ОбновитьСтатусПеремещения()
    СтатусПеремещения = ОбновитьСтатусПеремещенияНаСервере();
КонецПроцедуры
Далее, процедура вызывается в событии "ПриИзменении" для реквизитов "Флаг" и "ДокументНазначения".

Нажмите на изображение для увеличения
Название: Рек1.jpg
Просмотров: 130
Размер:	33.1 Кб
ID:	11828 Нажмите на изображение для увеличения
Название: Рек2.jpg
Просмотров: 125
Размер:	43.6 Кб
ID:	11829 Нажмите на изображение для увеличения
Название: Рек3.jpg
Просмотров: 106
Размер:	41.2 Кб
ID:	11830

Поскольку хранить текст в реквизите "СтатусПеремещения" в документе не требуется, добавляем в алгоритм команды формы "Переместить"(ПеренестиСтрокиНаСерве ре) следующий код:
1C
1
2
3
    Если ЗначениеЗаполнено(СтатусПеремещения) Тогда
        СтатусПеремещения = "";
    КонецЕсли;
В результате, после выполнения указанной команды реквизит "СтатусПеремещения" будет очищен.
Размещено в 1С
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Всего комментариев 0
Комментарии
 
Новые блоги и статьи
Программный домашний кинотеатр
russiannick 27.09.2026
Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого
zorxor 21.09.2026
Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep
pavlinmavlin 17.09.2026
Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части
Maks 13.09.2026
Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр.
Jin X 06.09.2026
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F
Argus19 02.09.2026
Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .
Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0.
Maks 31.08.2026
При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .
Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм
anaschu 30.08.2026
Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru