СписокДляПроверки = СоздатьОбъект("СписокЗначений");
Для СчЖурналов = 1 По Метаданные.Журнал() Цикл
МетаЖурнал = Метаданные.Журнал(СчЖурналов);
ИдЖурнала = МетаЖурнал.Идентификатор;
Для СчФорм = 1 По МетаЖурнал.ФормаСписка() Цикл
ИдФормы = МетаЖурнал.ФормаСписка(СчФорм).Идентификатор;
СписокДляПроверки.УдалитьВсе();
Для СчОбщихРеквизитов = 1 По Метаданные.ОбщийРеквизитДокумента() Цикл
СписокДляПроверки.ДобавитьЗначение(Метаданные.ОбщийРеквизитДокумента(СчОбщихРеквизитов).Идентификатор);
КонецЦикла;
Для СчГраф = 1 По МетаЖурнал.Графа() Цикл
СписокДляПроверки.ДобавитьЗначение(МетаЖурнал.Графа(СчГраф).Идентификатор);
КонецЦикла;
Конт = "";
ОткрытьФорму("Журнал."+ИдЖурнала+"."+ИдФормы+"#",Конт);
Если ТипЗначения(Конт) = 100 Тогда
Для Сч = 1 По СписокДляПроверки.РазмерСписка() Цикл
ИмяКолонки = СписокДляПроверки.ПолучитьЗначение(Сч);
Попытка
Конт.Форма.ПолучитьАтрибут(ИмяКолонки);
Исключение
Продолжить;
КонецПопытки;
Конт.Форма.ПолучитьАтрибут(ИмяКолонки).Видимость(1);
Конт.Активизировать(ИмяКолонки,1);
Если Конт.Форма.ТекущаяКолонка() <> ИмяКолонки Тогда
Сообщить("Проблема отображения: "+"Журнал."+ИдЖурнала+"."+ИдФормы+"."+ИмяКолонки);
КонецЕсли;
КонецЦикла;
Конт.Форма.Закрыть(0);
Конт="";
КонецЕсли;
КонецЦикла;
КонецЦикла;
Сообщить("Проверка завершена.");
Цитата: Харлампий Дымба от 30 октября 2025, 12:48Отлично!
Ещё бы от подобных "торговцев спреями" избавиться:
https://forum.dorex.pro/index.php?action=profile;u=109
https://forum.dorex.pro/index.php?action=profile;u=125
Цитата: GSoft от 30 октября 2025, 17:58Ух... Мне самому очень хотелось бы, но пока не получается.Цитата: АЛьФ от 16 января 2025, 12:10Когда-нибудь в этом году обязательноАльф, а ждать ли в этом году новую сборку Formex
последняя датирована 6 октября прошлого года
Цитата: АЛьФ от 16 января 2025, 12:10Когда-нибудь в этом году обязательноАльф, а ждать ли в этом году новую сборку Formex