v7: Как разобраться?

Пытаюсь разобраться в обработке МаршрутныйЛист.ert   Дело в том ,что при вводе значения Водитель в форме, лист вообще не формируется. А при вводе значения МОЛ , формируется ,но не выводит в таблице значения Водитель и Автомобиль, т.е. <ПечВодитель> и <ПечАвтомобиль> не работают.Как понимаю,проблема в справочниках и их взаимосвязи?

////////////////////////////////////////////////////////////////////////////////
// ПЕРЕМЕННЫЕ МОДУЛЯ
//
Перем ТекСтрокаВТаблице; // текущая строка в таблице значений  МФ

// используются для стандартного механизма кнопок "Обновить" и "Настройка"
Перем Таб;
Перем Обновить;
Перем Расшифровка;

Перем СписокГруппировок;
Перем КоличествоГруппировок;
Перем НомерГруппировкиПоДоговору;
Перем НомерГруппировкиПоКонтрагенту;
Перем НомерГруппировкиПоВидуДолга;
Перем НомерГруппировкиПоКредДокументу;
Перем НомерГруппировкиПоПроекту;

// списки значений, в которых определены возможные типы операций
Перем СписокОперДебет, СписокОперКредит;

// список, в котором хранятся значения итоговой строки
Перем СписокИтогов;

Перем ВалютаОтчета;

////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ И ФУНКЦИИ МОДУЛЯ
//******************************************************************************
// ВыбратьПоФильтру()
//
// Параметры:
//  Нет
//
// Описание:
//  Открывает обработку отбора элементов по произвольному фильтру
//
Процедура ВыбратьПоФильтру()

    Перем  ВидЗначенияПодбора;

    ВидЗначенияПодбора=СокрЛП(ТаблицаМФ.Вид);

    Если ПустоеЗначение(ВидЗначенияПодбора)=1 Тогда
        Возврат;
    КонецЕсли;

    СписокПараметров=СоздатьОбъект("СписокЗначений");
    СписокПараметров.ДобавитьЗначение("",                "ИмяВызвавшейФормы");
    СписокПараметров.ДобавитьЗначение(ТаблицаМФ.Тип,     "Тип");
    СписокПараметров.ДобавитьЗначение(ВидЗначенияПодбора,"Вид");
    СписокПараметров.ДобавитьЗначение(СписокЭлементовМФ, "Объекты");
    ТаблицаМФ.ФлВкл=2;
    ОткрытьФорму("Обработка.ПодборОбъектов#",СписокПараметров);

КонецПроцедуры    // ВыбратьПоФильтру

//******************************************************************************
// ПерерисовкаНазванийЗакладок
//
// Параметры:
//     Нет
//
// Описание:
//  Добавляет "(!)" в заголовок закладки с множественным фильтром, когда этот фильтр задан
//
Функция ПерерисовкаНазванийЗакладок()

    Форма.Закладки.УстановитьЗначение(2,?(глМножественныйФильтрЗадан(ТаблицаМФ)=1,"(!) ","")+"Множественный фильтр");

КонецФункции // ПерерисовкаНазванийЗакладок

//******************************************************************************
// УправлениеДиалогом()
//
// Параметры:
//    Нет
//
// Возвращаемое значение:
//    Нет
//
// Описание:
//    Управление доступностью элементов диалога.
//
Процедура УправлениеДиалогом()

    Если Форма.Закладки.ТекущаяСтрока() = 1 Тогда
        Форма.ИспользоватьСлой("Шапка,Подвал,Основной1,Основной2,Разделитель"+СокрЛП(ВидРазделителя));
    Иначе
        Форма.ИспользоватьСлой("Шапка,МФ,Подвал");
    КонецЕсли;

КонецПроцедуры //УправлениеДиалогом()

//******************************************************************************
// РасшифровкаОбновить(Обновить)
//
// Параметры:
//  Обновить =     1 - нажата кнопка "Обновить"
//                2 - нажата кнопка "Настройка"
//
// Возвращаемое значение:
//    Расшифровка (список значений)
//
// Вызывается из формул элементов диалога:
//  из таблицы, кнопки "Обновить" и "Настройка"
//
// Описание:
//    функция для стандартного механизма кнопок ""Обновить" и "Настройка""
//  помещает значение параметра в список Расшифровка  и возвращает этот список
//
Функция РасшифровкаОбновить(Обновить)

    Расшифровка.Установить("Обновить", Обновить);

    Возврат Расшифровка;

КонецФункции //РасшифровкаОбновить()

//******************************************************************************
// ИзменениеПорядкаГрупп(НаправлениеСдвига)
//
// Параметры:
//  НаправлениеСдвига =     -1 - вниз
//                             1 - вверх
// Возвращаемое значение:
//    Нет
//
// Вызывается из формул элементов диалога:
//  кнопки "вверх" и "вниз" рядом со списком группировок
//
// Описание:
//    Процедура производит сдвиг текущей группировки в общем
//     списке группировок на "НаправлениеСдвига" позиций
//
Процедура ИзменениеПорядкаГрупп(НаправлениеСдвига)

    ТекСтр = Группировки.ТекущаяСтрока();
    ПервСдвигСтр = 2;
    ПослСдвигСтр = Группировки.РазмерСписка() - 1;
    Если (ТекСтр >= ПервСдвигСтр) и (ТекСтр <= ПослСдвигСтр) Тогда
        Если не((НаправлениеСдвига = 1) и (ТекСтр = ПослСдвигСтр)) Тогда
            Группировки.СдвинутьЗначение(НаправлениеСдвига, ТекСтр);
        КонецЕсли;

    Иначе
        Предупреждение("Группировка ""Накладная"" всегда находится в конце списка и не перемещается.",60);
    КонецЕсли;

КонецПроцедуры // ИзменениеПорядкаГрупп()

//******************************************************************************

Процедура УстановкаГруппировки()

    Если Группировки.ТекущаяСтрока()=1 Тогда
        Группировки.Пометка(Группировки.ТекущаяСтрока(), ?(Группировки.Пометка(Группировки.ТекущаяСтрока()) = 1, 0, 1));
        Сообщить("Изменяем");
    КонецЕсли;

    Если Группировки.ТекущаяСтрока()=2 Тогда
        Предупреждение("Группировка ""Водитель"" всегда включена");

    ИначеЕсли Группировки.ТекущаяСтрока()=3 Тогда
        Предупреждение("Группировка ""Накладная"" всегда включена");

    КонецЕсли;

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

//******************************************************************************
// ПриИзмененииКонтрагента()
//
// Параметры:
//    Нет
//
// Возвращаемое значение:
//    Нет
//
// Описание:
//    Действия, выполняемые при смене контрагента, в форме диалога отчета.
//
Процедура ПриИзмененииВодителя()

КонецПроцедуры // ПриИзмененииКонтрагента()

//******************************************************************************

Процедура ДобПеремЗапроса(ТекстЗапроса,НазвПерем,НазвПеремРег)

    ТекстЗапроса = ТекстЗапроса + РазделительСтрок;
    ТекстЗапроса = ТекстЗапроса +
    НазвПерем+"    = Документ.Реализация."+НазвПеремРег+";";

КонецПроцедуры  //ДобПеремЗапроса()

//******************************************************************************

//******************************************************************************
// УстановитьГруппировкиЗапроса(ТекстЗапроса, ТекстЗагол)
//
// Параметры:  ТекстЗапроса - переданный по ссылке текст запроса
//                ТекстЗагол   - переданный по ссылке текст заголовка
//
// Возвращаемое значение:
//    Нет
//
// Описание:
//    Дополняет строку запроса и заголовка в соответствии с выбранными группировками.
//
Процедура УстановитьГруппировкиЗапроса(ТекстЗапроса, ТекстЗагол)
    СписокГруппировок = СоздатьОбъект("СписокЗначений");

    Для Сч=1 По Группировки.РазмерСписка() Цикл

        Если Группировки.Пометка(Сч)=1 Тогда
            ПредставлениеГрупп="";
            ТекстГрупп=Группировки.ПолучитьЗначение(Сч,ПредставлениеГрупп);
            ТекстБезГрупп = " без групп";
            ТекстЗапроса     = ТекстЗапроса     + "Группировка "+ТекстГрупп+ТекстБезГрупп+";";
            ТекстЗагол         = ТекстЗагол     + ?(ТекстЗагол="",""," / ")+ПредставлениеГрупп;
            СписокГруппировок.ДобавитьЗначение(ТекстГрупп,ПредставлениеГрупп);
            //Если ТекстГрупп = "Договор" Тогда
            //    НомерГруппировкиПоДоговору = СписокГруппировок.РазмерСписка();
            //ИначеЕсли ТекстГрупп = "Контрагент" Тогда
            //    НомерГруппировкиПоКонтрагенту = СписокГруппировок.РазмерСписка();
            //ИначеЕсли ТекстГрупп = "ВидДолга" Тогда
            //    НомерГруппировкиПоВидуДолга = СписокГруппировок.РазмерСписка();
            //ИначеЕсли ТекстГрупп = "КредДокумент" Тогда
            //    НомерГруппировкиПоКредДокументу = СписокГруппировок.РазмерСписка();
            //ИначеЕсли ТекстГрупп = "Проект" Тогда
            //    НомерГруппировкиПоПроекту = СписокГруппировок.РазмерСписка();
            //КонецЕсли;
        КонецЕсли;
    КонецЦикла;

КонецПроцедуры  //УстановитьГруппировкиЗапроса()

//******************************************************************************

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

//******************************************************************************
// Сформировать(ЗакрытьДиалог=0)
//
// Параметры:
//   ЗакрытьДиалог - флаг того, что после формирования отчета надо закрыть диалог
//
// Возвращаемое значение:
//    Нет
//
// Вызывается из формул элементов диалога:
//   кнопки "Сформировать" и "ОК"
//
// Описание:
//    Запускает отчет.
//
Процедура Сформировать(ЗакрытьДиалог=0)

    Перем Запрос, ТекстЗапроса, Таб;

    Если глПроверкаДаты(ДатаНачала,ДатаКонца)=0 Тогда
        Возврат;
    КонецЕсли;

    глПриСменеСтрокиТаблицыМФ(1,ТекСтрокаВТаблице,Контекст); // записываем изменения если они были

    // запомним МФ только если он задан
    Если глМножественныйФильтрЗадан(ТаблицаМФ) = 1 Тогда
        Расшифровка.Установить("ТаблицаМФ", ТаблицаМФ);
    КонецЕсли;

    //Создание объекта типа Запрос
    Запрос = СоздатьОбъект("Запрос");
    ТекстЗапроса =
    "
    |Период с ДатаНачала по ДатаКонца;";
    ДобПеремЗапроса(ТекстЗапроса,"Фирма",        "Фирма");
    ДобПеремЗапроса(ТекстЗапроса,"УпрАналитика","Фирма.УпрАналитика");
    ДобПеремЗапроса(ТекстЗапроса,"ЮрЛицо",        "Фирма.ЮрЛицо");
    ДобПеремЗапроса(ТекстЗапроса,"Водитель",    "Водитель");
    ДобПеремЗапроса(ТекстЗапроса,"Автомобиль",    "Автомобиль");
    ДобПеремЗапроса(ТекстЗапроса,"МОЛ",            "МОЛ");
    ДобПеремЗапроса(ТекстЗапроса,"ТекДокумент", "ТекущийДокумент");

    Загол="";
    НетОш = 1; // нет ошибок при наложении фильтров
    Если ВидРазделителя = 1 Тогда
        НетОш = НетОш * глФильтрПоПеременнойЗапроса(ТаблицаМФ, "Фирма",ВыбРазделитель1,"ВыбРазделитель1",ТекстЗапроса,Загол);
        НетОш = НетОш * глФильтрПоПеременнойЗапроса(ТаблицаМФ, "ЮрЛицо",,,ТекстЗапроса,Загол);
        НетОш = НетОш * глФильтрПоПеременнойЗапроса(ТаблицаМФ, "УпрАналитика",,,ТекстЗапроса,Загол);
    ИначеЕсли ВидРазделителя = 2 Тогда
        НетОш = НетОш * глФильтрПоПеременнойЗапроса(ТаблицаМФ, "ЮрЛицо",ВыбРазделитель2,"ВыбРазделитель2",ТекстЗапроса,Загол);
        НетОш = НетОш * глФильтрПоПеременнойЗапроса(ТаблицаМФ, "Фирма",,,ТекстЗапроса,Загол);
        НетОш = НетОш * глФильтрПоПеременнойЗапроса(ТаблицаМФ, "УпрАналитика",,,ТекстЗапроса,Загол);
    ИначеЕсли ВидРазделителя = 3 Тогда
        НетОш = НетОш * глФильтрПоПеременнойЗапроса(ТаблицаМФ, "УпрАналитика",ВыбРазделитель3,"ВыбРазделитель3",ТекстЗапроса,Загол);
        НетОш = НетОш * глФильтрПоПеременнойЗапроса(ТаблицаМФ, "Фирма",,,ТекстЗапроса,Загол);
        НетОш = НетОш * глФильтрПоПеременнойЗапроса(ТаблицаМФ, "ЮрЛицо",,,ТекстЗапроса,Загол);
    КонецЕсли;

    НетОш = НетОш * глФильтрПоПеременнойЗапроса(ТаблицаМФ, "Водитель",ВыбВодитель,"ВыбВодитель",ТекстЗапроса,Загол);
    НетОш = НетОш * глФильтрПоПеременнойЗапроса(ТаблицаМФ, "МОЛ",ВыбМОЛ,"ВыбМОЛ",ТекстЗапроса,Загол);

    Если НетОш = 0 Тогда
        Возврат;
    КонецЕсли;

    ТекстЗапроса = ТекстЗапроса + "Группировка День;";

    ПечЗаголовокСтолбца = "";
    УстановитьГруппировкиЗапроса(ТекстЗапроса, ПечЗаголовокСтолбца);

    // Если ошибка в запросе, то выход из процедуры
    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли;

    Таб = СоздатьОбъект("Таблица");
    ЕстьДанныеНаЛисте = 0;

    Пока Запрос.Группировка(1)=1 Цикл // По дню
        Пока Запрос.Группировка(2)=1 Цикл // По Фирме
            Пока Запрос.Группировка(3)=1 Цикл // По водителю
                Пока Запрос.Группировка(4)=1 Цикл // По автомобилю

                    Если ЕстьДанныеНаЛисте = 0 Тогда
                        ЕстьДанныеНаЛисте = 1;
                    Иначе
                        Таб.НоваяСтраница();
                    КонецЕсли;

                    ДатаЛиста = Запрос.День;
                    ПечОрганизация     = СокрЛП(Запрос.Фирма.ЮрЛицо.ПолнНаименование);
                    ПечАдрес         = глПредставлениеАдреса(Запрос.Фирма.ЮрЛицо.ФактАдрес);
                    ПечВодитель     = глФамилияИмяОтчество(Запрос.Водитель);
                    ПечАвтомобиль     = СокрЛП(Запрос.Автомобиль.Модель)+" "+СокрЛП(Запрос.Автомобиль.ГосНомер);

                    Таб.ВывестиСекцию("Заголовок");

                    НомерСтроки = 0;
                      Пока Запрос.Группировка(5)=1 Цикл // По накладной
                          НомерСтроки = НомерСтроки + 1;
                          ПечНомерНакладной = глНомерНаПечать(Запрос.ТекДокумент);
                          ПечДатаНакладной = Запрос.ТекДокумент.ДатаДок;
                          ПечКонтрагент = Запрос.ТекДокумент.Контрагент;
                          Если Запрос.ТекДокумент.Контрагент.Сеть=1 Тогда
                              ПечМаршрут = глПредставлениеАдреса(Запрос.ТекДокумент.Договор.ФактАдрес);
                          Иначе
                              ПечМаршрут = глПредставлениеАдреса(Запрос.ТекДокумент.Контрагент.ЮрФизЛицо.ФактАдрес);
                          КонецЕсли;
                          ПечКМ = "";
                        Таб.ВывестиСекцию("Строка");
                    КонецЦикла;
                    Таб.ВывестиСекцию("Подвал");
                КонецЦикла;
            КонецЦикла;
        КонецЦикла;
    КонецЦикла;

    Таб.ТолькоПросмотр(1);
    Таб.Показать();

КонецПроцедуры  // Сформировать()

////////////////////////////////////////////////////////////////////////////////
// ПРЕДОПРЕДЕЛЕННЫЕ ПРОЦЕДУРЫ
//
//******************************************************************************
// Предопределенная процедура
Процедура ПриОткрытии(ФлагВосстановленияНастройки)
    //                  тип          вид           переменная  название
    глДобавитьВТаблицуМФ(ТаблицаМФ,"Справочник","ФизЛица", "Водитель",  "По водителям");
//    глДобавитьВТаблицуМФ(ТаблицаМФ,"Справочник","ФизЛица", "МОЛ",  "По МОЛам");
    глДобавитьВТаблицуМФ(ТаблицаМФ,"Справочник","Фирмы",   "Фирма",  "По фирмам");
    глДобавитьВТаблицуМФ(ТаблицаМФ,"Справочник","СвоиЮрЛица", "ЮрЛицо",  "По юр. лицам");
    глДобавитьВТаблицуМФ(ТаблицаМФ,"Справочник","УпрАналитика", "УпрАналитика",  "По упр. аналитике");

    Если ФлагВосстановленияНастройки = 0 Тогда
        ВидРазделителя = 1;
        //ДатаНачала      = глЗначениеПоУмолчанию("ОсновнаяДатаНачалаОтчетов");
        //Если ПустоеЗначение(ДатаНачала) = 1 Тогда
        //    ДатаНачала    = НачМесяца(ДатаКонца);
        //КонецЕсли;
    Иначе
        //Если Группировки.НайтиЗначение("Проект") = 0 Тогда
        //    Группировки.ВставитьЗначение(8, "Проект", "Проекты");
        //КонецЕсли;
    КонецЕсли;

    Если глФлагРасшифровки = 1 Тогда
        Обновить = глОбновить;

        // восстанавливаем настройки из списка
        ДатаНачала         = глРасшифровка.Получить("ДатаНачала");
        ДатаКонца         = глРасшифровка.Получить("ДатаКонца");
        ВидРазделителя    = глРасшифровка.Получить("ВидРазделителя");
        ВыбРазделитель1    = глРасшифровка.Получить("ВыбРазделитель1");
        ВыбРазделитель2    = глРасшифровка.Получить("ВыбРазделитель2");
        ВыбРазделитель3    = глРасшифровка.Получить("ВыбРазделитель3");

        ВыбВодитель     = глРасшифровка.Получить("ВыбВодитель");
        ВыбМОЛ             = глРасшифровка.Получить("ВыбМОЛ");

        глРасшифровка.Получить("Группировки").Выгрузить(Группировки);

        Если ТипЗначенияСтр(глРасшифровка.Получить("ТаблицаМФ"))="ТаблицаЗначений" Тогда
            ТаблицаМФ.Загрузить(глРасшифровка.Получить("ТаблицаМФ"));
        КонецЕсли;

         Если Обновить <> 0 Тогда
            Таб = глТаблица;
        КонецЕсли;

        Если Обновить <> 2 Тогда
            Сформировать();
            СтатусВозврата(0);
            Возврат;
        КонецЕсли;
    Иначе
        Обновить = 0;
    КонецЕсли;

    ПерерисовкаНазванийЗакладок();

    ТаблицаМФ.ВидимостьКолонки("Тип",0);
    ТаблицаМФ.ВидимостьКолонки("Вид",0);
    ТаблицаМФ.ВидимостьКолонки("СписокЭлементов",0);
    ТаблицаМФ.ВидимостьКолонки("ТипМФ",0);
    ТаблицаМФ.ВидимостьКолонки("ИмяПеременной",0);

    ТаблицаМФ.ВыводитьПиктограммы("ФлВкл");

    УправлениеДиалогом();

    Если СокрЛП(ВремяОтправления)="" Тогда
        ВремяОтправления = "08:00";
    КонецЕсли;

    Если СокрЛП(ВремяВозвращения)="" Тогда
        ВремяВозвращения = "17:00";
    КонецЕсли;

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

//******************************************************************************
// Предопределенная процедура.
//
Процедура ПриЗакрытии()

    // записываем изменения если они были
    глПриСменеСтрокиТаблицыМФ(1,ТекСтрокаВТаблице,Контекст);

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

//******************************************************************************
// Предопределенная процедура.
Процедура ВводНового()

    // эта предопределенная процедура выполняется при восстановлении настройки
    ПерерисовкаНазванийЗакладок();
    УправлениеДиалогом();
    ТаблицаМФ.ВыводитьПиктограммы("ФлВкл");

КонецПроцедуры // ВводНового()

//******************************************************************************
Процедура ПриВыбореЗакладки(Номер,Значение)    // Предопределенная процедура
    // закладки
    Если Номер=1 Тогда
        глПриСменеСтрокиТаблицыМФ(1,ТекСтрокаВТаблице,Контекст); // записываем изменения если они были
    КонецЕсли;
    УправлениеДиалогом();
    ПерерисовкаНазванийЗакладок();

КонецПроцедуры    // ПриВыбореЗакладки

//******************************************************************************
// Предопределенная процедура
//
Процедура ОбработкаПодбора(Значение)

    Если (СписокЭлементовМФ.НайтиЗначение(Значение)=0) Тогда
        Представление=""+Значение;
        Если ТипЗначенияСтр(Значение)="Справочник" Тогда
            Если СокрЛП(Метаданные.Справочник(Значение.Вид()).Владелец) <> "Метаданные" Тогда
                Представление=Представление+" ("+Значение.Владелец+")";
            КонецЕсли;
        КонецЕсли;
        СписокЭлементовМФ.ДобавитьЗначение(Значение,Представление);
        ТаблицаМФ.ФлВкл=2;
    КонецЕсли;

    СписокЭлементовМФ.Выгрузить(ТаблицаМФ.СписокЭлементов);

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

////////////////////////////////////////////////////////////////////////////////
// ОПЕРАТОРЫ ОСНОВНОЙ ПРОГРАММЫ
//

// инициализация переменных множественного фильтра
ТипМФ.УдалитьВсе();
ТипМФ.ДобавитьЗначение("одно из");
ТипМФ.ДобавитьЗначение("все кроме");

ТаблицаМФ.УдалитьСтроки();
Пока ТаблицаМФ.КоличествоКолонок()>0 Цикл
    ТаблицаМФ.УдалитьКолонку(1);
КонецЦикла;

ТаблицаМФ.НоваяКолонка("Тип");
ТаблицаМФ.НоваяКолонка("Вид");
ТаблицаМФ.НоваяКолонка("ИмяПеременной");
ТаблицаМФ.НоваяКолонка("СписокЭлементов"); // список элементов, по которым производим фильтрацию
ТаблицаМФ.НоваяКолонка("ТипМФ"); // текущая строка списка ТипМФ
ТаблицаМФ.НоваяКолонка("ФлВкл","Число",1,,"Вкл",5,,); // фильтр включен ("1" или "0")
ТаблицаМФ.НоваяКолонка("Представление",,,,"Вид фильтра:");
ТаблицаМФ.ВыводитьПиктограммы("ФлВкл");

ТекСтрокаВТаблице="";

ДатаНачала = ПолучитьДатуТА();
ДатаКонца = ПолучитьДатуТА();

// Инициализируем закладки
Форма.ИспользоватьЗакладки(1);
Форма.Закладки.ДобавитьЗначение(1,"Основная");
Форма.Закладки.ДобавитьЗначение(2,"Множественный фильтр");
Форма.Закладки.ТекущаяСтрока(1);

Группировки.ДобавитьЗначение("Фирма",        "Фирма");
Группировки.ДобавитьЗначение("Водитель",        "Водитель");
Группировки.ДобавитьЗначение("Автомобиль",      "Автомобиль");
//Группировки.ДобавитьЗначение("МОЛ",            "МОЛ");
Группировки.ДобавитьЗначение("ТекДокумент",  "Накладная");

Группировки.Пометка(1, 1);
Группировки.Пометка(2, 1);
Группировки.Пометка(3, 1);
Группировки.Пометка(4, 1);