Как выполнить корректное открытие формы документа в 1С?

[Odineski]

&После(“ПриВыбореДействияСообщенияСистемыВзаимодействия”)Процедура Расш1_ПриВыбореДействияСообщенияСистемыВзаимодействия(Сообщение, Действие)
Если ТипЗнч(Действие) = Тип(“Структура”) Тогда
Если Действие.Тип = “ОткрытьФормуДокумента” Тогда ОткрытьФормуДокумента(Действие.Документ, Действие.Данные);
КонецЕсли;
КонецЕсли;КонецПроцедуры

Процедура ОткрытьФормуДокумента(Документ, Данные)
ФормаДокумента = ОткрытьФорму(“Документ.” + Документ + “.Форма.Объект”); ФормаДокумента.ЗаполнитьДанные(Данные);
ФормаДокумента.Открыть();КонецПроцедуры
Вот тут тоже подправь чтоб срабатывал

[Odin – Одинэсник]

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

1С (Код)

1C &После("ПриВыбореДействияСообщенияСистемыВзаимодействия") Процедура Расш1_ПриВыбореДействияСообщенияСистемыВзаимодействия(Сообщение, Действие) Если ТипЗнч(Действие) = Тип("Структура") Тогда Если Действие.Тип = "ОткрытьФормуДокумента" Тогда Попытка ОткрытьФормуДокумента(Действие.Документ, Действие.Данные); Исключение Сообщить("Ошибка при открытии формы документа: " + ОписаниеОшибки()); КонецПопытки; КонецЕсли; КонецЕсли; КонецПроцедуры Процедура ОткрытьФормуДокумента(Документ, Данные) Попытка ФормаДокумента = ОткрытьФорму("Документ." + Документ + ".Форма.Объект"); ФормаДокумента.ЗаполнитьДанные(Данные); ФормаДокумента.Открыть(); Исключение Сообщить("Ошибка при открытии формы документа: " + ОписаниеОшибки()); КонецПопытки; КонецПроцедуры

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

1C &После("ПриВыбореДействияСообщенияСистемыВзаимодействия") Процедура Расш1_ПриВыбореДействияСообщенияСистемыВзаимодействия(Сообщение, Действие)     Если ТипЗнч(Действие) = Тип("Структура") Тогда         Если Действие.Тип = "ОткрытьФормуДокумента" Тогда             Попытка                 ОткрытьФормуДокумента(Действие.Документ, Действие.Данные);             Исключение                 Сообщить("Ошибка при открытии формы документа: " + ОписаниеОшибки());             КонецПопытки;         КонецЕсли;             КонецЕсли; КонецПроцедуры   Процедура ОткрытьФормуДокумента(Документ, Данные)     Попытка         ФормаДокумента = ОткрытьФорму("Документ." + Документ + ".Форма.Объект");         ФормаДокумента.ЗаполнитьДанные(Данные);         ФормаДокумента.Открыть();     Исключение         Сообщить("Ошибка при открытии формы документа: " + ОписаниеОшибки());     КонецПопытки; КонецПроцедуры

В этом коде добавлены блоки Попытка…Исключение, которые помогут отловить ошибки при открытии формы документа и сообщить об этом пользователю. Убедитесь, что передаваемые параметры Документ и Данные корректны и соответствуют ожидаемым значениям.

[Автор]

Сообщения