public void УстановитьТекущиеРеквизитыФормаЦеныВалюты(/*ФормаЦеныВалюты, ДокументОбъект,
СтруктураРеквизитовДокумента, ИмяТабличнойЧасти,
ВалютаРегламентированногоУчета,
НовыйТипЦенДляУстановки = Неопределено*/)
{
/*// если хоть в одной табличной части есть хотя бы одна строка, надо пересчитывать
*/
//МетаданныеДокумента = ДокументОбъект.Метаданные();
//НадоПересчитывать = Ложь;
//ФормаЦеныВалюты.ТабличнаяЧастьПуста = Не НадоПересчитывать;
/*// Для получения курса на дату
*/
//ФормаЦеныВалюты.ДатаКурса = ДокументОбъект.Дата;
/*// определим текущую валюту взиморасчетов
*/
//ТекущийВалютаВзаиморасчетов = "";
//Контрагент = "";
if(true/*СтруктураРеквизитовДокумента.Свойство("БезКонтроляВалютыВзаиморасчетов")*/)
{
//ТекущийВалютаВзаиморасчетов = СтруктураРеквизитовДокумента.БезКонтроляВалютыВзаиморасчетов;
//ФормаЦеныВалюты.ТекущийВалютаВзаиморасчетов = ТекущийВалютаВзаиморасчетов;
//ФормаЦеныВалюты.ПересчитатьЦеныПоВалюте = Истина;
//Запрос = Новый Запрос;
/*Запрос.Текст = "
|ВЫБРАТЬ
| Валюты.Ссылка КАК Валюта
|ИЗ
| Справочник.Валюты КАК Валюты
|УПОРЯДОЧИТЬ ПО
| Валюта";*/
//Выборка = Запрос.Выполнить().Выбрать();
if(true/*Выборка.Следующий()*/)
{
//ФормаЦеныВалюты.ЭлементыФормы.НовыйВалютаДокумента.СписокВыбора.Добавить(Выборка.Валюта);
}
//ФормаЦеныВалюты.ЭлементыФормы.НовыйВалютаДокумента.КнопкаОчистки = Ложь;
}
/*// Установить текущий курс и кратность
*/
if(true/*МетаданныеДокумента.Реквизиты.Найти("ВалютаДокумента") <> Неопределено*/)
{
//ФормаЦеныВалюты.ТекущийКурсДокумента = ЗаполнениеДокументов.КурсДокумента(ДокументОбъект, ВалютаРегламентированногоУчета);
//ФормаЦеныВалюты.ТекущийКратностьДокумента = ЗаполнениеДокументов.КратностьДокумента(ДокументОбъект, ВалютаРегламентированногоУчета);
}
/*// Вызов при изменении значения договора
*/
if(true/*СтруктураРеквизитовДокумента.Свойство("ВызовПриИзмененииЗначенияДоговора")*/)
{
//ФормаЦеныВалюты.НовыйВалютаДокумента = ТекущийВалютаВзаиморасчетов;
//ФормаЦеныВалюты.ПересчитатьЦеныПоВалюте = Истина;
}
/*// Вызов при изменении учетной политики розничная торговля облагается ЕНВД
*/
//ЗначениеВызова = Неопределено;
if(true/*СтруктураРеквизитовДокумента.Свойство("ВызовПриИзмененииУчетнойПолитикиЕНВД", ЗначениеВызова)*/)
{
if(true/*ЗначениеВызова = "Покупка"*/)
{
//ФормаЦеныВалюты.НовыйНДСВключенВСтоимость = Истина;
}
}
/*// если в списке есть тип цен
*/
/*// и
*/
/*// если ТипЦен в документе имеет тип ТипЦенКонтрагентов, надо установить владельца
*/
/*// предполагаем, что если существует реквизит ТипЦен, то он может принимать два значения -
*/
/*// типы цен номенклатуры и типы цен контрагентов
*/
if(true/*СтруктураРеквизитовДокумента.Свойство("ТипЦен")
и Метаданные.НайтиПоТипу(ТипЗнч(ДокументОбъект.ТипЦен)).Имя = "ТипыЦенНоменклатурыКонтрагентов"*/)
{
//Контрагент = Справочники.Контрагенты.ПустаяСсылка();
if(true/*ДокументОбъект.Метаданные().Реквизиты.Найти("Контрагент") <> Неопределено*/)
{
//Контрагент = ДокументОбъект.Контрагент;
}
//ФормаЦеныВалюты.ЭлементыФормы.НовыйТипЦен.ВыборПоВладельцу = Контрагент;
/*// сохраним владельца для дальнейшего использования
*/
//ФормаЦеныВалюты.ВладелецТипаЦен = Контрагент;
}
/*// если уже при открытии новый тип цен отличается от текущего, надо обработать изменения реквизитов формы
*/
if(true/*ФормаЦеныВалюты.НовыйТипЦен <> ФормаЦеныВалюты.ТекущийТипЦен
и ЗначениеЗаполнено(ФормаЦеныВалюты.НовыйТипЦен)*/)
{
/*// надо установить флаг СуммаВключаемНДС из типа цены
*/
//ФормаЦеныВалюты.НовыйСуммаВключаетНДС = ФормаЦеныВалюты.НовыйТипЦен.ЦенаВключаетНДС;
}
/*// если мы используем режим выбора из списка для новой валюты документа
*/
/*// и в списке нет нужной валюты, установим новую валюту в валюту взаиморасчетов
*/
if(true/*ФормаЦеныВалюты.ЭлементыФормы.НовыйВалютаДокумента.РежимВыбораИзСписка = Истина
И ФормаЦеныВалюты.ЭлементыФормы.НовыйВалютаДокумента.СписокВыбора.НайтиПоЗначению(ФормаЦеныВалюты.НовыйВалютаДокумента) = Неопределено*/)
{
//ФормаЦеныВалюты.НовыйВалютаДокумента = ФормаЦеныВалюты.ЭлементыФормы.НовыйВалютаДокумента.СписокВыбора[0].Значение;
}
/*// Если передан НовыйТипЦенДляУстановки и он подходит по параметрам, установим его в форме
*/
if(true/*НовыйТипЦенДляУстановки <> Неопределено
И СтруктураРеквизитовДокумента.Свойство("ТипЦен")
И Метаданные.НайтиПоТипу(ТипЗнч(ДокументОбъект.ТипЦен)).Имя = НовыйТипЦенДляУстановки.Метаданные().Имя*/)
{
//ФормаЦеныВалюты.НовыйТипЦен = НовыйТипЦенДляУстановки;
}
}
