v7: проблема открытия Журнала общего

Перем ИмяФормы;

//*****************************************************************************
// Описание переменных
Перем СписокДействий;  // Список действий по документу

Перем ЖурналПоДоговору;

Перем СписокВидовДокументов, ТипыУчета;

Перем КонтрагентДляОтбора,ФирмаДляОтбора,ВидДокументаДляОтбора,АвторДляОтбора,ТипДляОтбора,АгентДляОтбора;

Перем ЗначениеВВидеСтроки;

//*****************************************************************************
// функции и процедуры, вызываемые из формул элементов диалога

// ===============================
Функция Валюта()
    Если глЕстьРеквизитШапки("Валюта",ТекущийДокумент.Вид()) = Да Тогда
        Возврат ТекущийДокумент.Валюта.Кратко;
    Иначе
        Возврат "";
    КонецЕсли;
КонецФункции

//******************************************************************************
Процедура ПриВыбореКонтрагента()

    Если КонтрагентДляОтбора.Выбран()>0 Тогда
    {Журнал.ЖурналОбщий.Форма.ФормаСписка.Модуль(30)}: Значение не представляет агрегатный объект (Выбран)
    Иначе
        УстановитьОтбор("");
    КонецЕсли;

КонецПроцедуры
//******************************************************************************
Процедура ПриВыбореАгента()

    Если АгентДляОтбора.Выбран()>0 Тогда
        УстановитьОтбор("Агент", АгентДляОтбора);
        АгентДляОтбора = АгентДляОтбора.ТекущийЭлемент();
    Иначе
        УстановитьОтбор("");
    КонецЕсли;

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

//******************************************************************************
Процедура ПриВыбореВидаДокумента()

    Если ПустоеЗначение(ВидДокументаДляОтбора) = 1 Тогда
        ВидДокументаДляОтбора=1;
    КонецЕсли;
    УстановитьОтбор(СписокВидовДокументов.ПолучитьЗначение(ВидДокументаДляОтбора), );

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

//******************************************************************************
Процедура ПриВыбореАвтора()

    Если АвторДляОтбора.Выбран()>0 Тогда
        УстановитьОтбор("Автор", АвторДляОтбора);
        АвторДляОтбора = АвторДляОтбора.ТекущийЭлемент();
    Иначе
        УстановитьОтбор("");
    КонецЕсли;

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

//******************************************************************************
Процедура ПриВыбореТипа()

    Если ПустоеЗначение(ТипДляОтбора)>0 Тогда
        ТипДляОтбора=1;
    КонецЕсли;

    УстановитьОтбор("ТипУчета", ТипДляОтбора-1);

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

//******************************************************************************
Процедура ПриВыбореФирмы()

    Если ФирмаДляОтбора.Выбран()>0 Тогда
        УстановитьОтбор("Фирма", ФирмаДляОтбора);
        ФирмаДляОтбора = ФирмаДляОтбора.ТекущийЭлемент();
    Иначе
        УстановитьОтбор("");
    КонецЕсли;

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

//******************************************************************************
//
Процедура ПриУстановкеБыстрогоОтбора()
    Перем ТекущДок;

    ТекущДок = ТекущийДокумент;

    Если ВидОтбора.ТекущаяСтрока() = 7 Тогда    // нет быстрого отбора

        ЗначениеВВидеСтроки = "";

        Форма.кнЗначение.Доступность(0);
        УстановитьОтбор("");
        ВидыОтбора("*");

    Иначе        // есть быстрый отбор

        Форма.кнЗначение.Доступность(1);

        Если ВидОтбора.ТекущаяСтрока() = 1 Тогда
            ПриВыбореКонтрагента();
            ЗначениеВВидеСтроки=Строка(КонтрагентДляОтбора);

        ИначеЕсли ВидОтбора.ТекущаяСтрока() = 2 Тогда
            ПриВыбореВидаДокумента();
            СписокВидовДокументов.ПолучитьЗначение(ВидДокументаДляОтбора,ЗначениеВВидеСтроки);

        ИначеЕсли ВидОтбора.ТекущаяСтрока() = 3 Тогда
            ПриВыбореАвтора();
            ЗначениеВВидеСтроки=Строка(АвторДляОтбора);

        ИначеЕсли ВидОтбора.ТекущаяСтрока() = 4 Тогда
            ПриВыбореТипа();
            ТипыУчета.ПолучитьЗначение(ТипДляОтбора,ЗначениеВВидеСтроки);

        ИначеЕсли ВидОтбора.ТекущаяСтрока() = 5 Тогда
            ПриВыбореФирмы();
            ЗначениеВВидеСтроки=Строка(ФирмаДляОтбора);

        ИначеЕсли ВидОтбора.ТекущаяСтрока() = 6 Тогда
            ПриВыбореАгента();
            ЗначениеВВидеСтроки=Строка(АгентДляОтбора);

        КонецЕсли;

        ВидыОтбора("");

    КонецЕсли;

    Попытка
        АктивизироватьОбъект(ТекущДок);
    Исключение
    КонецПопытки;

КонецПроцедуры // ПриУстановкеБыстрогоОтбора

//******************************************************************************
Процедура ПриУстановкеИнтервала(ДатаНач,ДатаКон)     // Предопределенная
    Если НазваниеНабораПрав()="Пользователь" Тогда
        Если ДатаНач<Константа.ДатаЗапретаРедактирования Тогда
        ДатаНач=Константа.ДатаЗапретаРедактирования;
        Если ДатаКон<Константа.ДатаЗапретаРедактирования Тогда
        ДатаКон=Константа.ДатаЗапретаРедактирования;
        КонецЕсли;
        УстановитьИнтервал(ДатаНач,ДатаКон);
        СтатусВозврата(0);
        КонецЕсли;
    КонецЕсли;
КонецПроцедуры
//******************************************************************************
//
Процедура ВыборЗначения()
    Перем ЗначениеИзменилось,СтароеЗначение,ВыбЗначение;

    Если ВидОтбора.ТекущаяСтрока() = 7 Тогда    // нет быстрого отбора
        Возврат;
    КонецЕсли;

    ЗначениеИзменилось=0;

    Если ВидОтбора.ТекущаяСтрока() = 1 Тогда
        СтароеЗначение=КонтрагентДляОтбора;
        ВыбЗначение = СоздатьОбъект("Справочник.Контрагенты");
        Если ВыбЗначение.Выбрать("Выбор контрагента","Форма списка")=1 Тогда
            КонтрагентДляОтбора = ВыбЗначение;
            Если ВыбЗначение<>СтароеЗначение Тогда
                ЗначениеИзменилось=1;
            КонецЕсли;
        КонецЕсли;

    ИначеЕсли ВидОтбора.ТекущаяСтрока() = 2 Тогда
        СтароеЗначение=ВидДокументаДляОтбора;
        Если ПустоеЗначение(ВидДокументаДляОтбора)>0 Тогда
            ВыбЗначение = "";
        Иначе
            ВыбЗначение = СписокВидовДокументов.ПолучитьЗначение(ВидДокументаДляОтбора);
        КонецЕсли;
        СписокВидовДокументов.ВыбратьЗначение(ВыбЗначение,"Выбор вида документов",,,0);
        ВидДокументаДляОтбора = СписокВидовДокументов.НайтиЗначение(ВыбЗначение);
        Если ВидДокументаДляОтбора<>СтароеЗначение Тогда
            ЗначениеИзменилось=1;
        КонецЕсли;

    ИначеЕсли ВидОтбора.ТекущаяСтрока() = 3 Тогда
        СтароеЗначение=АвторДляОтбора;
        ВыбЗначение = СоздатьОбъект("Справочник.Пользователи");
        Если ВыбЗначение.Выбрать("Выбор автора","Форма списка")=1 Тогда
            АвторДляОтбора = ВыбЗначение;
            Если ВыбЗначение<>СтароеЗначение Тогда
                ЗначениеИзменилось=1;
            КонецЕсли;
        КонецЕсли;

    ИначеЕсли ВидОтбора.ТекущаяСтрока() = 4 Тогда
        СтароеЗначение=ТипДляОтбора;
        Если ПустоеЗначение(ТипДляОтбора)>0 Тогда
            ВыбЗначение = "";
        Иначе
            ВыбЗначение = ТипыУчета.ПолучитьЗначение(ТипДляОтбора);
        КонецЕсли;
        ТипыУчета.ВыбратьЗначение(ВыбЗначение,"Выбор типа учета",,,0);
        ТипДляОтбора = ТипыУчета.НайтиЗначение(ВыбЗначение);
        Если ТипДляОтбора<>СтароеЗначение Тогда
            ЗначениеИзменилось=1;
        КонецЕсли;

    ИначеЕсли ВидОтбора.ТекущаяСтрока() = 5 Тогда
        СтароеЗначение=ФирмаДляОтбора;
        ВыбЗначение = СоздатьОбъект("Справочник.Фирмы");
        Если ВыбЗначение.Выбрать("Выбор фирмы","Форма списка")=1 Тогда
            ФирмаДляОтбора = ВыбЗначение;
            Если ВыбЗначение<>СтароеЗначение Тогда
                ЗначениеИзменилось=1;
            КонецЕсли;
        КонецЕсли;
    ИначеЕсли ВидОтбора.ТекущаяСтрока() = 6 Тогда
        СтароеЗначение=АгентДляОтбора;
        ВыбЗначение = СоздатьОбъект("Справочник.Сотрудники");
        Если ВыбЗначение.Выбрать("Выбор агента","Форма списка")=1 Тогда
            АгентДляОтбора = ВыбЗначение;
            Если ВыбЗначение<>СтароеЗначение Тогда
                ЗначениеИзменилось=1;
            КонецЕсли;
        КонецЕсли;

    КонецЕсли;

    Если ЗначениеИзменилось=1 Тогда
        ПриУстановкеБыстрогоОтбора();
    КонецЕсли;

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

//******************************************************************************
Процедура ПриОткрытииЖурналаПоДоговору()

    УстановитьОтбор("Договор",Форма.Параметр.ТекущийДокумент());
    ВидыОтбора("");

    Форма.текстБыстрыйОтбор.Видимость(0);
    Форма.ВидОтбора.Видимость(0);
    Форма.кнЗначение.Видимость(0);
    ЗначениеВВидеСтроки = "";

    Форма.Заголовок("Журнал документов по договору """+СокрЛП(Строка(Форма.Параметр))+"""");

    глАктивныйДоговор = Форма.Параметр.ТекущийДокумент();

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

//******************************************************************************
Процедура ПриОткрытииЖурналаСПозиционированиемНаДокументе(Док)

    АвторДляОтбора = Док.Автор;
    ТипДляОтбора = Док.ТипУчета+1;
    ВидДокументаДляОтбора = СписокВидовДокументов.НайтиЗначение(Док.Вид());
    КонтрагентД=глКонтрагентДок(Док);
    Если ПустоеЗначение(КонтрагентД)=0 Тогда
        КонтрагентДляОтбора = КонтрагентД;
    КонецЕсли;

    ФирмаДляОтбора = Док.Фирма;

    Если (НачалоИнтервала()>Док.ДатаДок)ИЛИ(КонецИнтервала()<Док.ДатаДок) Тогда
        УстановитьИнтервал(НачКвартала(Док.ДатаДок),ПолучитьДатуТА());
    КонецЕсли;

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

//******************************************************************************
Процедура ПриОбычномОткрытииЖурнала()

    // определение контрагента для отбора
    КонтрагентДляОтбора = глВосстановитьЗначение(ИмяФормы, "КонтрагентОтбораЖурнала", ПолучитьПустоеЗначение("Справочник.Контрагенты"));
    // определение фирмы для отбора
    ФирмаДляОтбора = глВосстановитьЗначение(ИмяФормы, "ФирмаОтбораЖурнала", ПолучитьПустоеЗначение("Справочник.Фирмы"));
    // определение вида документа для отбора
    ВидДокументаДляОтбора = глВосстановитьЗначение(ИмяФормы, "ВидДокументаДляОтбораЖурнала", 1);
    // определение автора документа для отбора
    АвторДляОтбора = глВосстановитьЗначение(ИмяФормы, "АвторДляОтбораЖурнала", ПолучитьПустоеЗначение("Справочник.Пользователи"));
    // определение типа учета для отбора
    ТипДляОтбора = глВосстановитьЗначение(ИмяФормы, "ТипДляОтбораЖурнала", 1);
    // агент
    АгентДляОтбора = глВосстановитьЗначение(ИмяФормы, "АгентОтбораЖурнала", ПолучитьПустоеЗначение("Справочник.Сотрудники"));
КонецПроцедуры

//******************************************************************************
Процедура ПриОткрытииИЛИПереоткрытииЖурнала(Режим)


    ЖурналПоДоговору = 0;



    Если Режим="Открытие" Тогда
        // Позиционируемся на последнем документе
        ТекДок= глВосстановитьЗначение(ИмяФормы, "ТекДок", ПолучитьПустоеЗначение("Документ"));

        Форма.Заголовок("",1);

        ПриОбычномОткрытииЖурнала();

    ИначеЕсли Режим="Переоткрытие" Тогда
        ТекДок = ТекущийДокумент;
    КонецЕсли;

    Если ПустоеЗначение(Форма.Параметр)=0 Тогда
        Если ВРег(ТипЗначенияСтр(Форма.Параметр))="ДОКУМЕНТ" Тогда
            // НАДО ПОЗИЦИОНИРОВАТЬСЯ НА ЭТОМ ДОКУМЕНТЕ
            Док = Форма.Параметр.ТекущийДокумент();
            Если Док.Выбран()>0 Тогда
                ТекДок = Док;
                ПриОткрытииЖурналаСПозиционированиемНаДокументе(Док);
            КонецЕсли;
        КонецЕсли;
    КонецЕсли;

    ПриУстановкеБыстрогоОтбора();

    Попытка
        АктивизироватьОбъект(ТекДок);
    Исключение
    КонецПопытки;

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

//******************************************************************************
// Предопределенные процедуры

//******************************************************************************
Процедура ПриПовторномОткрытии()

    ПриОткрытииИЛИПереоткрытииЖурнала("Переоткрытие");

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


//******************************************************************************
Процедура ПриОткрытии()
    // Определение был ли быстрый отбор
    ТекСтр = глВосстановитьЗначение(ИмяФормы, "ВидОтбораЖурнала", 1);
    ВидОтбора.ТекущаяСтрока(ТекСтр);

    ПриОткрытииИЛИПереоткрытииЖурнала("Открытие");

    // будем отслеживать только реальные изменения этих реквизитов
    Форма.ВидОтбора.ВыполнятьФормулуТолькоПриИзменении(1);

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

//******************************************************************************
Процедура ИзмЗакладки();
    Если тЗакладки=1 Тогда
        ЗакладкиОтбора("ВидДокумента");
        Форма.ВидОтбора.Доступность(0);
    Иначе
        ЗакладкиОтбора("");
        Форма.ВидОтбора.Доступность(1);
    КонецЕсли;
КонецПроцедуры
//******************************************************************************
Процедура ПриЗакрытии()   // Предопределенная процедура

    Если ЖурналПоДоговору=0 Тогда

        глСохранитьЗначение(ИмяФормы,"ТекДок",ТекущийДокумент);

        глСохранитьЗначение(ИмяФормы,"КонтрагентОтбораЖурнала",КонтрагентДляОтбора);
        глСохранитьЗначение(ИмяФормы,"ФирмаОтбораЖурнала",ФирмаДляОтбора);
        глСохранитьЗначение(ИмяФормы,"ВидДокументаДляОтбораЖурнала", ВидДокументаДляОтбора);
        глСохранитьЗначение(ИмяФормы,"АвторДляОтбораЖурнала",АвторДляОтбора);
        глСохранитьЗначение(ИмяФормы,"ТипДляОтбораЖурнала",ТипДляОтбора);
        глСохранитьЗначение(ИмяФормы,"ВидОтбораЖурнала",ВидОтбора.ТекущаяСтрока());
        глСохранитьЗначение(ИмяФормы,"АгентОтбораЖурнала",АгентДляОтбора);

    Иначе

        глАктивныйДоговор = "";

    КонецЕсли;

КонецПроцедуры // ПриЗакрытии
//******************************************************************************

//*****************************************************************************
//Инициализирум список действий по кнопке "Действия"
СписокДействий = глПолучитьСписокДействий("
    |СтруктураПодчиненности,
    |ДвиженияДокумента,
    |ДвиженияДокументаФин,
    |ДвиженияДокументаУпр,
    |ВводНаОсновании,
    |Подчиненные");

ТипыУчета = СоздатьОбъект("СписокЗначений");
ТипыУчета.ДобавитьЗначение("Упр.","Упр.");
ТипыУчета.ДобавитьЗначение("Общ.","Общ.");
ТипыУчета.ДобавитьЗначение("Фин.","Фин.");

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

ВидОтбора.ДобавитьЗначение("по контрагенту");
ВидОтбора.ДобавитьЗначение("по виду документов");
ВидОтбора.ДобавитьЗначение("по автору");
ВидОтбора.ДобавитьЗначение("по типу учета");
ВидОтбора.ДобавитьЗначение("по фирме");
ВидОтбора.ДобавитьЗначение("по агенту");
ВидОтбора.ДобавитьЗначение("отсутствует");

ЖурналПоДоговору = 0;

КонтрагентДляОтбора = СоздатьОбъект("Справочник.Контрагенты");
ФирмаДляОтбора = СоздатьОбъект("Справочник.Фирмы");
АвторДляОтбора = СоздатьОбъект("Справочник.Пользователи");
АгентДляОтбора = СоздатьОбъект("Справочник.Сотрудники");

ТипДляОтбора = 1;
ВидДокументаДляОтбора = 1;

ЗначениеВВидеСтроки = "";

ИмяФормы = "Журнал.ЖурналОбщий.Форма.ФормаСписка";