УТ 11.5 Нужно открыть запись РС с отбором

Форум Программирование Общие вопросы программирования (Dev)

1. pentanom 30 30.11.23 18:03 Сейчас в теме

К документу "Заказ клиента" нужно привязать РС "МКТ_ЗаявкаНаСборку" с одним измерением "ЗаказКлиента". В документе сделал кнопку, а по ней

&НаКлиенте
Процедура ОбработчикЗаявкиНаСборку(Команда)

    Если НЕ ЗначениеЗаполнено(Объект.Ссылка) Тогда
        Предупреждение("Документ не записан! Для ввода реквизитов в РС документ необходимо записать!");
	КонецЕсли;
	
	_Отбор = Новый Структура("ЗаказКлиента", Объект.Ссылка);
	
	ПараметрыФормы = Новый Структура("Отбор", _Отбор);
	ФормаРегистра = ПолучитьФорму("РегистрСведений.МКТ_ЗаявкаНаСборку.ФормаЗаписи",ПараметрыФормы);
	ФормаРегистра.Запись.ЗаказКлиента = Объект.Ссылка;
	ФормаРегистра.Открыть();

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

Показать

но при открытии записи ресурсы и реквизиты существующей записи не заполняются, а при записи получаю (см.картинку). Где я слажал?

Прикрепленные файлы:

По теме из базы знаний

Ответы

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

Свернуть все

2. independ 1556 30.11.23 18:31 Сейчас в теме

(1)https://capitally.ru/1c-development/izuchenie-1s/language-1c/klyuch-zapisi-registra-svedenij-dlya-otkrytiya-ee-formy/

4. pentanom 30 30.11.23 19:23 Сейчас в теме

(2)1. Я все-таки не понял почему мой вариант не работает. Я этот вариант нагуглил с нескольких мест.
2. В предлагаемом первом варианте, если записи еще нет, то выходим на ошибку, которую предлагается обходить использую "Попытка-Исключение-КонецПопытки". Мне кажется, что это "некрасивый" способ.

Я в теме неправильно написал. Нужно не просто открыть запись РС, но дописывать записи, если нужных нет.

3. Sashares 33 30.11.23 18:44 Сейчас в теме

(1)

Где я слажал?

Помимо рекомендации в 2, после предупреждения надо добавить Возврат.

5. pentanom 30 30.11.23 19:40 Сейчас в теме

В УТ 10.3 было все просто

Процедура ДействияФормыОткрытьФормуЗаявкиНаСборку(Кнопка)
	
    Если Ссылка.Пустая() Тогда
        Предупреждение("Документ не записан! Для ввода реквизитов в РС документ необходимо записать!");
    КонецЕсли;    
    
    Запись = РегистрыСведений.ЗаявкиНаСборку.СоздатьМенеджерЗаписи();
    Запись.ЗаказПокупателя = Ссылка;
    Запись.Прочитать();
    
    Если Не Запись.Выбран() Тогда
        Запись.ЗаказПокупателя = Ссылка;
    КонецЕсли;    
	
    ФормаЗаписи = Запись.ПолучитьФорму();
    ФормаЗаписи.Открыть();

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

Показать

Оставьте свое сообщение

E-mail: