Пример создания общего журнала с закладками, для 7.7

Создание журнала с закладками, причем в справочнике можно задать каждой закладке любое название. Создавал в конфигурациях «Бухгалтерский учет» и «Торговля и Склад». Выглядит это так:
title

а справочник:
title

1. Создаем новый справочник.Новый1
где, уровень = 1, длина кода = 10, длина наименования = 50. серии кодов = в пределах подчинения, тип кода = текстовый, основное представление = в виде наименования.
Редактируем форму списка:
Добавляем 2 кнопки: Заполнить, Применить.
В модуль:

Код 1C v 7.x

 Процедура Заполнить()
    Спр = СоздатьОбъект("Справочник.Новый1");
    Для Х = 1  По Метаданные.Документ() Цикл
    ИдДок = Метаданные.Документ(Х).Идентификатор;
     Если Спр.НайтиПоНаименованию(ИдДок) = 0 Тогда
     Спр.Новый();
     Спр.Наименование = ИдДок;
     Спр.Записать();
     КонецЕсли;
    КонецЦикла;
КонецПроцедуры

Процедура Применить()
    НачатьТранзакцию();
    Спр = СоздатьОбъект("Справочник.Новый1");
    Х = 0;
    Док = СоздатьОбъект("Документ");
    Док.ВыбратьДокументы();
    Пока Док.ПолучитьДокумент() = 1 Цикл
    ВидДок = Док.Вид();
       Если Спр.НайтиПоНаименованию(ВидДок) = 1 Тогда
            Док.ДляОтбора = Спр.Код;
            Док.Записать();
       КонецЕсли;
     Х = Х + 1;
     Состояние(Х);
     КонецЦикла;
     ЗафиксироватьТранзакцию();
КонецПроцедуры

2. В Документы, Общие реквезиты добавляем «ДляОтбора» где: Тип значения = строка и длина = 10 , в Дополнительные стоит галочка «Отбор».

3. В «Журналах» копируем «Общий» и в его модуле пишем:

Код 1C v 7.x

 Процедура ПриОткрытии()
ЗакладкиОтбора("ДляОтбора");
КонецПроцедуры //ПриОткрытии

4. Заходим в режиме Предприятия, открываем созданный нами справочник и заполняем его. Называем закладки и жмем «Применить», открываем Журнал и пользуемся

Разместил: E_Migachev Версии: | 7.x | Дата: 02.02.2010 Прочитано: 18221

Пример создания общего журнала с закладками, для 7.7

Похожие FAQ

Еще в этой же категории

Ключевые слова и Изображения

Слова упорядочены по частоте использования в тексте

Изображения