В начало

Процедура «Ввод нового»

 

Процедура ВводНового ()

   // устанавливаем дату документа

   ДатаДок=РабочаяДата ();

   Подразделение = Константа.АУП;

   Валюта = Константа.ДефВалютаЗакупки;

   Валюта.ИспользоватьДату (ДатаДок);

   Дата_Курса = ДатаДок;

   Курс = Валюта.Текущ_курс;

   Фирма = Константа.ДефФирма;

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