ustavit_ceny_po_vidu_cen_soglashenija_na_servere [wiki.hostingcloud.com.ua]

Эта страница только для чтения. Вы можете посмотреть её исходный текст, но не можете его изменить. Сообщите администратору, если считаете, что это неправильно.

Установить цены по виду цен соглашения на сервере

<code>
Функция ЗаполнитьЦеныПоСоглашениюСервер(ПоВсемСтрокам = Истина,НовыйДокумент)
	
	Если ПоВсемСтрокам Тогда
		МассивСтрок = Неопределено;
	Иначе
		//МассивСтрок = Новый Массив;
		//Для Каждого Строка Из Элементы.Товары.ВыделенныеСтроки Цикл
		//	МассивСтрок.Добавить(Объект.Товары.НайтиПоИдентификатору(Строка));
		//КонецЦикла;
	КонецЕсли;
	
	НаборыВызовСервера.ДополнитьДоПолногоНабора(НовыйДокумент.Товары, МассивСтрок);
	
	СтруктураПересчетаСуммы = ОбработкаТабличнойЧастиКлиентСервер.ПолучитьСтруктуруПересчетаСуммыНДСВСтрокеТЧ(НовыйДокумент);
	
	СтруктураДействий = Новый Структура;
	СтруктураДействий.Вставить("ПересчитатьСумму");
	СтруктураДействий.Вставить("ПересчитатьСуммуНДС", СтруктураПересчетаСуммы);
	СтруктураДействий.Вставить("ПересчитатьСуммуСНДС", СтруктураПересчетаСуммы);
	СтруктураДействий.Вставить("ПересчитатьСуммуРучнойСкидки");
	СтруктураДействий.Вставить("ПересчитатьСуммуСУчетомРучнойСкидки", Новый Структура("Очищать", Ложь));
	СтруктураДействий.Вставить("ОчиститьАвтоматическуюСкидку");
	
	ЦеныРассчитаны = ПродажиСервер.ЗаполнитьЦены(
		НовыйДокумент.Товары,
		МассивСтрок, // Массив строк или структура отбора
		Новый Структура( // Параметры заполнения
			"Дата, Валюта, Соглашение, Организация, РасчитыватьНаборы, ПоляЗаполнения",
			НовыйДокумент.Дата,
			НовыйДокумент.Валюта,
			НовыйДокумент.Соглашение,
			НовыйДокумент.Организация,
			Истина,
			"Цена, СтавкаНДС, ВидЦены, СрокПоставки"
		),
		СтруктураДействий);
	
	Возврат ЦеныРассчитаны;
	
КонецФункции

</code>