Запрос = Новый Запрос;
	// получение цены реализовано с помощью запроса, но есть процедуры общего модуля, которые
	// могут это сделать самостоятельно
	ТекстЗапроса = "
	|ВЫБРАТЬ ПЕРВЫЕ 1
	|	ЦеныНоменклатурыСрезПоследних.Цена
	|ИЗ
	|	РегистрСведений.ЦеныНоменклатуры.СрезПоследних(
	|			,
	|			Номенклатура = &Номенклатура
	|				И ТипЦен = &ТипЦен) КАК ЦеныНоменклатурыСрезПоследних
	|";
	
	
	Запрос.УстановитьПараметр("Номенклатура", ДанныеСтроки.Ссылка);
	Запрос.УстановитьПараметр("ТипЦен", Константы.ТипЦенЗакупочная.Получить());
	
	Запрос.Текст = ТекстЗапроса;
	РЗ = Запрос.Выполнить();
	Выборка = РЗ.Выбрать();
	ЗакупочнаяЦена = 0;
	Пока Выборка.Следующий() Цикл
		ЗакупочнаяЦена = Выборка.Цена;
	КонецЦикла;
          ОформлениеСтроки.Ячейки.ЗакупочнаяЦена.Значение = ЗакупочнаяЦена;

	Запрос = Новый Запрос;
	
	ТекстЗапроса = "
	|ВЫБРАТЬ 
	|	КурсыВалютСрезПоследних.Курс КАК Курс,
	|	КурсыВалютСрезПоследних.Кратность КАК Кратность
	|ПОМЕСТИТЬ КурсВалюты
	|ИЗ
	|	РегистрСведений.КурсыВалют.СрезПоследних КАК КурсыВалютСрезПоследних
	|ГДЕ
	|	КурсыВалютСрезПоследних.Валюта = &Валюта
	|;
	|
	|////////////////////////////////////////////////////////////////////////////////
	|ВЫБРАТЬ
	|	Продажи.Номенклатура,
	|	Продажи.Количество,
	|	Продажи.Стоимость / КурсВалюты.Курс * КурсВалюты.Кратность КАК СтоимостьВалюта
	|ИЗ
	|	РегистрНакопления.Продажи КАК Продажи,
	|	КурсВалюты КАК КурсВалюты
	|";
	
	Запрос.УстановитьПараметр("Валюта", );// указываем валюту в которой нужно получить стоимость

// C = a!/b = (1*2*3* ... *a)/b 
// a - ЗначениеА, вводится на форме
// b - ЗначениеБ, вводится на форме
// С - РезФормулы.
// РезФакториала - Результат вычисления факториала

Если ЗначениеБ = 0 тогда
	Собщить("Ошибка деления на ноль");
Иначе
	РезФакториала = 1;
	Для Инд = 1 По ЗначениеА Цикл
		РезФакториала  = РезФакториала*Инд;
	КонецЦикла;

	РезФормулы = РезФакториала/ЗначениеБ;
КонецЕсли;	

Запрос = СоздатьОбъект("Запрос");
ТекСотрудник = <твой сотрудник>;
ТекстЗапроса = "
|Док = Документы.ПриказОПриемке.ТекущийДокумент;
|Сотрудник = Документы.ПриказОПриемке.Сотрудник;
|Группировка Док;
|Условие (Сотрудник = ТекСотрудник);
|";
Запрос.Выполнить(ТекстЗапроса);
Пока Запрос.Группировка(1) =1 Цикл
      // выполняем нужные действия
КонецЦикла;