Код

Функция РознСуммаДокумента() Экспорт

	РКЦ=Константа.РозничнаяКатегорияЦен;

    ТабДок=СоздатьОбъект("ТаблицаЗначений");
	Сам(Контекст).ВыгрузитьТабличнуюЧасть(ТабДок,"Товар,Количество,Коэффициент");

	ИтСумРозн=0;

	ТабДок.ВыбратьСтроки();
	Пока ТабДок.ПолучитьСтроку()=1 Цикл

		ЦенРозн=глВернутьЦену(ТабДок.Товар,РКЦ);
		Если ПустоеЗначение(ЦенРозн)=1 Тогда
			Сообщить("Не найдена розничная цена для "+ТабДок.Товар);
			СумРозн=0;
		Иначе
			ЕдЦены=ЦенРозн.Единица.Получить(Сам(Контекст).ДатаДок);
			КоэффициентЕдиницыЦены = ?(ЕдЦены.Коэффициент = 0, 1, ЕдЦены.Коэффициент);
			СумРозн=глПересчет(
				т/КоэффициентЕдиницыЦены,
				ЦенРозн.Валюта.Получить(Сам(Контекст).ДатаДок),
				Сам(Контекст).ДатаДок,
				Рубли,
				Сам(Контекст).ДатаДок);
			ИтСумРозн=ИтСумРозн+СумРозн;
		КонецЕсли;

	КонецЦикла;

	Возврат ИтСумРозн;

КонецФункции