Вітаю!
В док ППВ в форме решили перерисовать процедуру:
Процедура РассчитатьСуммуВзаиморасчетов()
ПроверкаКурсовВалют(СтрокаПлатеж);
мТекущаяВалютаВзаиморасчетов = СтрокаПлатеж.ДоговорКонтрагента.ВалютаВзаиморасчетов;
СтрокаПлатеж.СуммаВзаиморасчетов=МодульВалютногоУчета.ПересчитатьИзВалютыВВалюту(СтрокаПлатеж.СуммаПлатежа, ВалютаДокумента,
мТекущаяВалютаВзаиморасчетов,
КурсДокумента, СтрокаПлатеж.КурсВзаиморасчетов,
КратностьДокумента, СтрокаПлатеж.КратностьВзаиморасчетов);
Если СтрокаПлатеж.КурсВзаиморасчетовПлан>0 Тогда
РассчитатьСуммуПлатежаПлан();
КонецЕсли;
КонецПроцедуры // РассчитатьСуммуВзаиморасчетов()
на процеДуру:
Процедура РассчитатьСуммуВзаиморасчетов()
ПроверкаКурсовВалют(СтрокаПлатеж);
Если ЕстьРасчетыСКонтрагентами ИЛИ ВидОперации = Перечисления.ВидыОперацийПоступлениеБезналичныхДенежныхСредств.РасчетыПоКредитамИЗаймам Тогда
мТекущаяВалютаВзаиморасчетов = СтрокаПлатеж.ДоговорКонтрагента.ВалютаВзаиморасчетов;
Иначе
СтрокаПлатеж.СуммаПлатежа = СтрокаПлатеж.СуммаВзаиморасчетов;
Возврат;
КонецЕсли;
Если мТекущаяВалютаВзаиморасчетов = ВалютаДокумента Тогда
СтрокаПлатеж.СуммаПлатежа = СтрокаПлатеж.СуммаВзаиморасчетов;
ИначеЕсли (КурсДокумента <> 0) И (СтрокаПлатеж.КратностьВзаиморасчетов <> 0) И (СтрокаПлатеж.КурсВзаиморасчетов <> 0) Тогда
СтрокаПлатеж.СуммаВзаиморасчетов=МодульВалютногоУчета.ПересчитатьИзВалютыВВалюту(СтрокаПлатеж.СуммаПлатежа, ВалютаДокумента,
мТекущаяВалютаВзаиморасчетов,
КурсДокумента, СтрокаПлатеж.КурсВзаиморасчетов,
КратностьДокумента, СтрокаПлатеж.КратностьВзаиморасчетов);
Иначе
СтрокаПлатеж.СуммаПлатежа = 0;
КонецЕсли;
Если СтрокаПлатеж.КурсВзаиморасчетовПлан > 0 Тогда
РассчитатьСуммуПлатежаПлан();
КонецЕсли;
КонецПроцедуры // РассчитатьСуммуВзаиморасчетов()
Теперь ППВ в грн вводиться або тіко списком, предварительно проставив СуммаВзаиморасчетов або вместо строки:
СтрокаПлатеж.СуммаПлатежа = СтрокаПлатеж.СуммаВзаиморасчетов;
пилим строку:
СтрокаПлатеж.СуммаВзаиморасчетов=МодульВалютногоУчета.ПересчитатьИзВалютыВВалюту(СтрокаПлатеж.СуммаПлатежа, ВалютаДокумента,
мТекущаяВалютаВзаиморасчетов,
КурсДокумента, СтрокаПлатеж.КурсВзаиморасчетов,
КратностьДокумента, СтрокаПлатеж.КратностьВзаиморасчетов);
Сообщение отредактировал Vofka - 01.02.18, 14:51