Процедура ПриВыбореЗакладки(НомЗак,ЗначЗак)
глЖурналОбработкаФормы(Контекст,"Закладка",ЗначЗак);
Если НомЗак=1 Тогда
Если ТипЗначения(АналитикаОтбора)=10 Тогда
Аналит_Прежн=АналитикаОтбора;
АналитикаОтбора=Перечисление.СостояниеЗаказНаряда.Заявка;
ПриВыбореЗначения("АналитикаОтбора");
КонецЕсли;
Иначе
Если ТипЗначения(АналитикаОтбора)=10 Тогда
Если ПустоеЗначение(Аналит_Прежн)=0 Тогда
АналитикаОтбора=Аналит_Прежн;
ПриВыбореЗначения("АналитикаОтбора");
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецПроцедуры // ПриВыбореЗакладки
Может, эта процедура?
Это модуль журнала Заказ-наряды.
Если Право [85]=0 Тогда
Форма.тФлагЭкспорта.Видимость(0);
КонецЕсли;
ИначеЕсли ОбрСтолбец="Начало" Тогда
Форма.ДатаНач.Видимость(спВидимости.Пометка(К));
Форма.ВремяНачала.Видимость(спВидимости.Пометка(К));
ИначеЕсли ОбрСтолбец="Окончание" Тогда
Форма.ДатаОкончания.Видимость(спВидимости.Пометка(К));
Форма.ВремяОкончания.Видимость(спВидимости.Пометка(К));
ИначеЕсли ОбрСтолбец="Автомобиль" Тогда
Форма.Автомобиль.Видимость(спВидимости.Пометка(К));
Форма.колVIN.Видимость(спВидимости.Пометка(К));
Форма.колГосНомер.Видимость(спВидимости.Пометка(К));
ИначеЕсли ОбрСтолбец="ВидРемонтаЦех" Тогда
Форма.ВидРемонта.Видимость(спВидимости.Пометка(К));
Форма.Подразделение.Видимость(спВидимости.Пометка(К));
ИначеЕсли ОбрСтолбец="АвторФирма" Тогда
Форма.тАвтор.Видимость(спВидимости.Пометка(К));
Форма.тФирма.Видимость(спВидимости.Пометка(К));
КонецЕсли;
Иначе Сообщить("Удалите идентификатор в списке видимости <"+ОбрСтолбец+"> из модуля формы списка - журнала заказ-нарядов");
КонецЕсли;
КонецЦикла;
КонецПроцедуры //УстановитьВидимостьКолонок
//-----------------------------------------------
Функция ПриВыбореЗначения(Об="")
// Рекурсивная Функция обработки всех экранных объектов.
Если Об="" Тогда Об=Форма.АктивныйЭлемент(); КонецЕсли;
Если Об="" Тогда
ИначеЕсли Об="кнПоиск" Тогда// Здесь должны быть обработчики реквизитов
ПоискПоКритериям();
ИначеЕсли Об="СпВар" Тогда
Если СпВар.ТекущаяСтрока()=7 Тогда
Форма.СтрПоиск.НазначитьТип("Справочник.ВидРемонта");
Иначе
Форма.СтрПоиск.НазначитьТип("Строка",30);
СтрПоиск="";
КонецЕсли;
ИначеЕсли Об="кнПодчиненные" Тогда
Если ПустоеЗначение(ТекущийДокумент)=0 Тогда
ОткрытьФорму("Журнал.Подчиненные",,ТекущийДокумент);
КонецЕсли;
ИначеЕсли Об="кнДействия" Тогда
спДопДействия=СоздатьОбъект("СписокЗначений");
глЖурналОткрытьОтчет(Контекст, глЖурналОбработкаФормы(Контекст,Об,спДопДействия), "Подразделение", "Подразделения");
Возврат 1;
ИначеЕсли Об="кнВидимость" Тогда
Попытка // А вдруг значение видимости не сохранено
спВидимости=ВосстановитьЗначение("ВидимостьСтолбцовЖурналЗН");
спВидимости.ДобавитьЗначение("Отметьте отображаемые столбцы ...");
ОткрытьФормуМодально("Обработка.ПометкаСписка",спВидимости);
СохранитьЗначение("ВидимостьСтолбцовЖурналЗН",спВидимости);
УстановитьВидимостьКолонок(спВидимости);
Исключение
КонецПопытки;
Иначе Возврат глЖурналОбработкаФормы(Контекст,Об);
КонецЕсли;
Возврат 1;
КонецФункции // ПриВыбореЗначения
//-----------------------------------------------
Функция ПоказатьХО()
// Показывает сокращенное наименование хоз.операции
Если ПустоеЗначение(ТекущийДокумент)=1 Тогда Возврат "";
Иначе Возврат СокрЛ(СтрЗаменить(ТекущийДокумент.ХозОперация,"Отгрузка",""));
КонецЕсли;
КонецФункции // ПоказатьХО
//_____________________________________________________________________________
Функция ПоказатьВидРемонта()
Если ПустоеЗначение(ТекущийДокумент)=1 Тогда Возврат "";
Иначе Возврат глПолучитьАтрибут(ТекущийДокумент,"ВидРемонта");
КонецЕсли;
КонецФункции //ПоказатьВИдРемонта
///////////////////////////////////////////////////////////////////////////
// ПРЕДОПРЕДЕЛЕННЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ МОДУЛЯ
///////////////////////////////////////////////////////////////////////////
//-----------------------------------------------
Процедура ПриНачалеВыбораЗначения(Идент,Флаг)
Флаг=глЖурналОбработкаФормы(Контекст,"ПриНачалеВыбораЗначения",Идент);
КонецПроцедуры // ПриНачалеВыбораЗначения
//-----------------------------------------------
Процедура ПриПовторномОткрытии()
Если ПустоеЗначение(Форма.Параметр)=1 Тогда Возврат;
ИначеЕсли ТипЗначения(Форма.Параметр)=12 Тогда // Поиск
глЖурналНайтиДокумент(Контекст,Форма.Параметр);
КонецЕсли;
КонецПроцедуры // ПриПовторномОткрытии
//-----------------------------------------------
Процедура ПриОткрытии()
ИмяЖурнала="ЗаказНаряды";
глЖурналПриОткрытии(Контекст,Форма.Параметр);
спВидимостиКолонок=СоздатьОбъект("СписокЗначений");
спВидимостиКолонок=ВосстановитьЗначение("ВидимостьСтолбцовЖурналЗН");
УстановитьВидимостьКолонок(спВидимостиКолонок);
ПриПовторномОткрытии();
Если Форма.Закладки.ТекущаяСтрока()=2 Тогда
Если ТипЗначения(АналитикаОтбора)=10 Тогда
АналитикаОтбора=Перечисление.СостояниеЗаказНаряда.ВРаботе;
ПриВыбореЗначения("АналитикаОтбора");
КонецЕсли;
КонецЕсли;
СпВар.ДобавитьЗначение("НомерДок","по номеру документа");//1
СпВар.ДобавитьЗначение("Код","по VIN автомобиля");//2
СпВар.ДобавитьЗначение("ГосНомер","по гос. № автомобиля");//3
СпВар.ДобавитьЗначение("Хозяин","по фамилии хозяина");//4
СпВар.ДобавитьЗначение("Заказчик","по фамилии заказчика");//5
СпВар.ДобавитьЗначение("НомерКузова","по номеру кузова");//6
СпВар.ДобавитьЗначение("ВидРемонта","по виду ремонта");//7
ВидПоиска=ВосстановитьЗначение("ВидПоиска");
Если ПустоеЗначение(ВидПоиска)=1 Тогда
ВидПоиска=1;
КонецЕсли;
СпВар.ТекущаяСтрока(ВидПоиска);
ПриВыбореЗначения("СпВар");
ДатаНачала=НачалоИнтервала();
КонецПроцедуры // ПриОткрытии
//-----------------------------------------------
Процедура ПриЗакрытии()
глЖурналПриЗакрытии(Контекст);
СохранитьЗначение("ВидПоиска",СпВар.ТекущаяСтрока());
КонецПроцедуры // ПриЗакрытии
//-----------------------------------------------
Процедура ПриВыбореЗакладки(НомЗак,ЗначЗак)
глЖурналОбработкаФормы(Контекст,"Закладка",ЗначЗак);
Если НомЗак=1 Тогда
Если ТипЗначения(АналитикаОтбора)=10 Тогда
Аналит_Прежн=АналитикаОтбора;
АналитикаОтбора=Перечисление.СостояниеЗаказНаряда.Заявка;
ПриВыбореЗначения("АналитикаОтбора");
КонецЕсли;
Иначе
Если ТипЗначения(АналитикаОтбора)=10 Тогда
Если ПустоеЗначение(Аналит_Прежн)=0 Тогда
АналитикаОтбора=Аналит_Прежн;
ПриВыбореЗначения("АналитикаОтбора");
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецПроцедуры // ПриВыбореЗакладки
//-----------------------------------------------
спВидимостиРеквизитов=СоздатьОбъект("СписокЗначений");
спВидимостиРеквизитов.ДобавитьЗначение("Экспорт","Флажок экспорта в бухг-рию");
спВидимостиРеквизитов.ДобавитьЗначение("Начало","Начало выполнения работ");
спВидимостиРеквизитов.ДобавитьЗначение("Окончание","Оконч. выполнения работ");
спВидимостиРеквизитов.ДобавитьЗначение("Автомобиль","Модель, VIN, гос.№");
спВидимостиРеквизитов.ДобавитьЗначение("ВидРемонтаЦех","Вид ремонта и цех (пост)");
спВидимостиРеквизитов.ДобавитьЗначение("АвторФирма","Автор документа и фирма");
глСписокДействие(спВидимостиРеквизитов,"ВсеПометить");
спСохрВидимости=ВосстановитьЗначение("ВидимостьСтолбцовЖурналЗН");
Попытка
Если спСохрВидимости.РазмерСписка()<>спВидимостиРеквизитов.Размерсписка() Тогда
// Сохраним список для работы процедур
СохранитьЗначение("ВидимостьСтолбцовЖурналЗН",спВидимостиРеквизитов);
КонецЕсли;
Исключение СохранитьЗначение("ВидимостьСтолбцовЖурналЗН",спВидимостиРеквизитов);
КонецПопытки;
Извиняюсь за объём информации, но вычленить из этого текста именно ту процедуру, которая осуществляет отбор документов в этом журнале, для меня оказалось сложной задачей
