Заглавная страница

Сведения о компании

• О компании
• Требования
• Список клиентов

Теоретические сведения

• Теория ведения учета в 1С
• Теория бизнес-анализа
• Теория разработки ИТ-систем 1С
• Теория тестирования ИТ-систем 1С

Кейсы и готовые решения

• Готовые рецепты (How-To) по работе с 1С
• Готовые рецепты (How-To) по разработке 1С
• Готовые рецепты (How-To) по решениям 1С
• Готовые рецепты (How-To) по бизнес-анализу
• Готовые рецепты (How-To) по тестированию

Техническое описание реализаций компании

• Экспедитор
• РСВ
• Описание функционала БЛС

 
Функция РассчитатьЦенуСтрокиУПД(СтрокаТабличнойЧасти)

	//Инициализация ссылок
	Заказ = СтрокаТабличнойЧасти.Ссылка.Заказ;
	РасходнаяНакладная = СтрокаТабличнойЧасти.Ссылка;
	//Инициализация строки из реализации
	ТЧЗапасыРасходнаяНакладная = РасходнаяНакладная.Запасы.Выгрузить();
	СтрокаТЧ = ТЧЗапасыРасходнаяНакладная.Найти(СтрокаТабличнойЧасти.Номенклатура, "Номенклатура");
	//Цена на дату реализации 
	Цена = СтрокаТЧ.Цена * РегистрыСведений.КурсыВалют.ПолучитьПоследнее(РасходнаяНакладная.Дата,Новый Структура("Валюта", РасходнаяНакладная.ВалютаДокумента)).Курс;
	СтрокаТабличнойЧасти.Цена = СтрокаТЧ.Цена;
	
	//Процент отгрузки
	Коэф = ТЧЗапасыРасходнаяНакладная.Итог("Сумма") / Заказ.Запасы.Итог("Сумма");
	
	//Документы оплат
	ТЗОплаты = РасчетыРаботаСФормамиВызовСервера.ПолучитьДанныеОбОплатеПоДокументуОтгрузки(СтрокаТабличнойЧасти.Ссылка.Заказ,Ложь,Ложь);
	
	//Если нет авансов и оплат то цена на момент реализации
	Если ТЗОплаты.Количество() = 0 Тогда
		Возврат Цена;
	КонецЕсли;
	
КонецФункции