В начало

Процедура УстФирмы

 

// данная процедура присваивает некоторому реквизиту "Фирма"

// значение из Справочника.Фирмы

 

Процедура УстФирмы ()

   // Создадим объект требуемого справочника

   Фрм = СоздатьОбъект ("Справочник.Фирмы");

   // реквизиты справочника могут быть периодическими

   // поэтому установим дату выборки периодических реквизитов

   Фрм.ИспользоватьДату (ДатаДок);

   // Вызываем диалог выбора элемента Справочника

   Если Фрм.Выбрать ("Выберите фирму", "") > 0 Тогда

      Фирма = Фрм.ТекущийЭлемент ();

   КонецЕсли;

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