1C Программирование и поддержка - [63] :: Прикладное программирование

ZanderZ
Да. Опишу структуру справочников
1. Реквизиты справочника Договора
- ДатаНачала тип Дата
- ДатаОкончания тип Дата
- Этапы тип СправочникСсылка.ЭтапыДоговора

Содержит в себе форму ввода элемента с табличной частью (тип данных ДеревоЗначений), в которой должна отображаться иерархия этапов Договора.

2. Реквизиты справочника Договора
- Наименование тип строка

Справочник подчинен справочнику Договора.

Имеею следующий код, который получает список этапов, но проблема в том как заставить его создавать иерархию в табличной часть.

Код:

Процедура Кнопка1Нажатие(Элемент)
    ТексЗапрос = "ВЫБРАТЬ
                     |    ЭтапыДоговора.Ссылка КАК Ссылка,
                    |    ЭтапыДоговора.Наименование КАК Этап,
                    |    ЭтапыДоговора.Родитель
                     | ИЗ
                     |     Справочник.ЭтапыДоговора КАК ЭтапыДоговора
                     | УПОРЯДОЧИТЬ ПО
                     |     Ссылка ИЕРАРХИЯ";

    Запрос = Новый Запрос();
    Запрос.Текст = ТексЗапрос;

    Результат = Запрос.Выполнить().Выбрать();
    ДеревоЭтапов.Колонки.Очистить();
    ДеревоЭтапов.Колонки.Добавить("НаименованиеЭтапа");

    уровень = Неопределено;

    пока Результат.Следующий() цикл
        Сообщить("Ввыводимый этап: " + Результат.Этап);
        если Результат.Родитель.Наименование <> "" тогда
            Сообщить("Подчинен этапу: " + Результат.Родитель);
            Колво = ДеревоЭтапов.Строки.Количество();

            ПодчиненнаяСтрока = ДеревоЭтапов.Строки[1].Строки.Добавить();
            ПодчиненнаяСтрока.НаименованиеЭтапа = Результат.Этап;
        иначе
            НоваяСтрока = ДеревоЭтапов.Строки.Добавить();
            НоваяСтрока.НаименованиеЭтапа = Результат.Этап;
            Уровень = уровень
        конецесли;
    конецЦикла;
    ЭлементыФормы.ДеревоЭтапов.СоздатьКолонки();
КонецПроцедуры

Модерирует : ShIvADeSt
ShIvADeSt (30-10-2009 09:51): http://forum.ru-board.com/topic.cgi?forum=33&topic=10715	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101