1С 7.x : Пример создания общего журнала с закладками, для 7.7

 Процедура Заполнить()

    Спр = СоздатьОбъект("Справочник.Новый1");

    Для Х = 1  По Метаданные.Документ() Цикл

    ИдДок = Метаданные.Документ(Х).Идентификатор;

     Если Спр.НайтиПоНаименованию(ИдДок) = 0 Тогда

     Спр.Новый();

     Спр.Наименование = ИдДок;

     Спр.Записать();

     КонецЕсли;

    КонецЦикла;

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



Процедура Применить()

    НачатьТранзакцию();

    Спр = СоздатьОбъект("Справочник.Новый1");

    Х = 0;

    Док = СоздатьОбъект("Документ");

    Док.ВыбратьДокументы();

    Пока Док.ПолучитьДокумент() = 1 Цикл

    ВидДок = Док.Вид();

       Если Спр.НайтиПоНаименованию(ВидДок) = 1 Тогда

            Док.ДляОтбора = Спр.Код;

            Док.Записать();

       КонецЕсли;

     Х = Х + 1;

     Состояние(Х);

     КонецЦикла;

     ЗафиксироватьТранзакцию();

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

 Процедура ПриОткрытии()

ЗакладкиОтбора("ДляОтбора");

КонецПроцедуры //ПриОткрытии