- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
Перем ОписаниеФормы;
ОписаниеФормы = Новый Структура;
ОписаниеФормы.Вставить("ТипОбъектаФормы", Неопределено);
ОписаниеФормы.Вставить("ТипФормы", Неопределено);
ОписаниеФормы.Вставить("СсылкаНаОбъектФормы", Неопределено);
ОписаниеФормы.Вставить("СсылкаНаФорму", ФормаКлиента);
Попытка
ОписаниеФормы.Вставить("ТипОбъектаФормы", Метаданные.НайтиПоТипу(ТипЗнч(ФормаКлиента.ОбработкаОбъект)).Имя);
ОписаниеФормы.Вставить("СсылкаНаОбъектФормы", ФормаКлиента.ОбработкаОбъект.Ссылка);
ОписаниеФормы.Вставить("ТипФормы", "Обработка");
Исключение
КонецПопытки;
Попытка
ОписаниеФормы.Вставить("ТипОбъектаФормы", Метаданные.НайтиПоТипу(ТипЗнч(ФормаКлиента.ДокументСписок)).Имя);
ОписаниеФормы.Вставить("СсылкаНаОбъектФормы", Неопределено);
ОписаниеФормы.Вставить("ТипФормы", " ДокументСписок");
Исключение
КонецПопытки;
Попытка
ОписаниеФормы.Вставить("ТипОбъектаФормы", Метаданные.НайтиПоТипу(ТипЗнч(ФормаКлиента.ДокументОбъект)).Имя);
ОписаниеФормы.Вставить("СсылкаНаОбъектФормы", ФормаКлиента.ДокументОбъект.Ссылка);
ОписаниеФормы.Вставить("ТипФормы", "Документ");
Исключение
КонецПопытки;
Попытка
ОписаниеФормы.Вставить("ТипОбъектаФормы", Метаданные.НайтиПоТипу(ТипЗнч(ФормаКлиента.СправочникСписок)).Имя);
ОписаниеФормы.Вставить("СсылкаНаОбъектФормы", Неопределено);
ОписаниеФормы.Вставить("ТипФормы", "СправочникСписок");
Исключение
КонецПопытки;
Попытка
ОписаниеФормы.Вставить("ТипОбъектаФормы", Метаданные.НайтиПоТипу(ТипЗнч(ФормаКлиента.СправочникОбъект)).Имя);
ОписаниеФормы.Вставить("СсылкаНаОбъектФормы", ФормаКлиента.СправочникОбъект.Ссылка);
ОписаниеФормы.Вставить("ТипФормы", "Справочник");
Исключение
КонецПопытки;
Попытка //если в самой форме описан её тип...
ОписаниеФормы.Вставить("ТипОбъектаФормы", ФормаКлиента.ТипОбъектаФормы);
ОписаниеФормы.Вставить("СсылкаНаОбъектФормы", ФормаКлиента.СсылкаНаОбъектФормы);
ОписаниеФормы.Вставить("ТипФормы", ФормаКлиента.ТипФормы);
Исключение
КонецПопытки;
Возврат ОписаниеФормы;
Более "эвристического" метода чем N попыток аффтар видимо придумать не смог. Всё бы ничего, пытайся на здоровье, просто есть люди которые иногда включают режим отладки "остановка по ошибке"... бесит...
"Чей туфля? О! Моё!"
ТипЗнч(Пх, ТПрнс)?
https://youtu.be/0zg-v5UScg0?t=3m32s
Удали Еву, нахуй, дебил, сук.
Там на таком ужасе конфа построена.