В начало

Процедура УстДокОснования

 

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

// значение конкретного документа

 

Процедура УстДокОснования ()

   // Создадим объект типа «Документ» неопределенного вида

   Дкм = СоздатьОбъект ("Документ");

   Дкм.ВидыДляВыбора ("РасходнаяНакл, Счет");

   // Вызываем диалог выбора документа

   Если Дкм.Выбрать ("Выберите документ основания", "") > 0 Тогда

      НаОсновании = Дкм.ТекущийЭлемент ();

   КонецЕсли;

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