Пока Выборка . Следующий () Цикл. Секция . Параметры . Код = Выборка . Код . Секция . Параметры . Код = Выборка . Код

Секция . Параметры . Код = Выборка . Код ;

Секция . Параметры . Наименование = Выборка . Наименование ;

ТабДок . Вывести ( Секция );

КонецЦикла ;

ТабДок . ОтображатьСетку = Ложь ;

ТабДок . Защита = Ложь ;

ТабДок . ТолькоПросмотр = Истина ;

ТабДок . ОтображатьЗаголовки = Ложь ;

ТабДок . Показать ();

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

 

Листинг ю_8.1

 

//ПриОткрытии() - заполняет элемент формы "Дерево"

// конкретными значениями

ВыборкаФирм = Справочники . Фирмы . Выбрать ();

Пока ВыборкаФирм . Следующий () Цикл

СтрокаСФирмой =

ЭлементыФормы . Дерево . Значение . Строки . Добавить ();

СтрокаСФирмой . Ссылка = ВыборкаФирм . Ссылка ;

КонецЦикла;

 

 

Листинг ю_8.2

 

//ПриОткрытии() - заполняет элемент формы "Дерево"

// конкретными значениями

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

ВыборкаФирм = Справочники .Фирмы. Выбрать ();

Пока ВыборкаФирм . Следующий () Цикл

СтрокаСФирмой =

ЭлементыФормы . Дерево . Значение . Строки . Добавить ();

СтрокаСФирмой . Ссылка = ВыборкаФирм . Ссылка ;

ДобавитьУровеньПодразделений (

СтрокаСФирмой ,

Справочники . Подразделения . ПустаяСсылка (),

ВыборкаФирм . Ссылка );

КонецЦикла;

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

//ДобавитьУровеньПодразделений(...) добавляет в "Дерево"

Подраздления

Процедура ДобавитьУровеньПодразделений (

СтрокаДерева , //Строка дерева куда добавляем

Знач РодительПодразделения , //Уровень в справочнике

Знач ВладелецПодразделения ) //Владелец справочника

ВыборкаПодразделений =

Справочники . Подразделения . Выбрать (

РодительПодразделения , ВладелецПодразделения );

Пока ВыборкаПодразделений . Следующий () Цикл

СтрокаСПодразделением = СтрокаДерева . Строки . Добавить ();

СтрокаСПодразделением . Ссылка = ВыборкаПодразделений . Ссылка ;

ДобавитьУровеньПодразделений (

СтрокаСПодразделением ,

ВыборкаПодразделений . Ссылка ,

ВладелецПодразделения );

КонецЦикла;

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

 

 

Листинг ю_9.1

 

// Модуль справочника "ОсновныеСредства"

//УстановитьКод() - устанавливает новый код

//для записи в справочнике

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

Если ЭтоГруппа =Ложь Тогда

// это элемент справочника

УстановитьНовыйКод ( Фирма . Префикс + "-" );

КонецЕсли;

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

Затем исправьте модуль формы:

Процедура ПриИзмененииФирмы ( Элемент )

УстановитьКод ();

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

 

Листинг ю_9.2

 

//ПриИзмененииГруппыОС - управляет видимостью

// реквизита "ЕстьДетали" и страницы "СписокДеталей"

Процедура ПриИзмененииГруппыОС ( Элемент ) Экспорт

_Видимость = ( ГруппаОС

= Перечисления . ГруппыОС . МашиныИОборудование );

ЭлементыФормы . ЕстьДетали . Видимость = _Видимость ;

ЭлементыФормы . Панель1 . Страницы . СписокДеталей . Видимость =

_Видимость ;

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

 

 

Листинг ю_9.3

 

//НаборДанныеОСПередНачаломДобавления – проверяет

// возможность добавления новой строки

⇐ Предыдущая12345678910Следующая ⇒

Поделиться: