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