Версия для печати темы (https://pro1c.org.ua/index.php?s=5178fb96ea57e058ed7de3043acb8afc&showtopic=43827)

Автор: Trintintin 01.02.18, 14:20

Вітаю!
В док ППВ в форме решили перерисовать процедуру:

Процедура РассчитатьСуммуВзаиморасчетов()
    
    ПроверкаКурсовВалют(СтрокаПлатеж);
    мТекущаяВалютаВзаиморасчетов = СтрокаПлатеж.ДоговорКонтрагента.ВалютаВзаиморасчетов;
    
    СтрокаПлатеж.СуммаВзаиморасчетов=МодульВалютногоУчета.ПересчитатьИзВалютыВВалюту(СтрокаПлатеж.СуммаПлатежа, ВалютаДокумента,
                                    мТекущаяВалютаВзаиморасчетов,
                                    КурсДокумента, СтрокаПлатеж.КурсВзаиморасчетов,
                                    КратностьДокумента, СтрокаПлатеж.КратностьВзаиморасчетов);
                                    
    Если СтрокаПлатеж.КурсВзаиморасчетовПлан>0 Тогда
        РассчитатьСуммуПлатежаПлан();
    КонецЕсли;
    
КонецПроцедуры // РассчитатьСуммуВзаиморасчетов()

на процеДуру:

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

Теперь ППВ в грн вводиться або тіко списком, предварительно проставив СуммаВзаиморасчетов або вместо строки:

СтрокаПлатеж.СуммаПлатежа = СтрокаПлатеж.СуммаВзаиморасчетов;

пилим строку:

СтрокаПлатеж.СуммаВзаиморасчетов=МодульВалютногоУчета.ПересчитатьИзВалютыВВалюту(СтрокаПлатеж.СуммаПлатежа, ВалютаДокумента,
                                        мТекущаяВалютаВзаиморасчетов,
                                        КурсДокумента, СтрокаПлатеж.КурсВзаиморасчетов,
                                        КратностьДокумента, СтрокаПлатеж.КратностьВзаиморасчетов);

Автор: Vofka 01.02.18, 14:51

Только я ничего не понял?

Автор: logist 01.02.18, 15:10

+

Автор: Gazulo 01.02.18, 18:02

Vofka @ Сегодня, 14:51 ,
Напевно йде мова про новий реліз УТП 1.2.45.1 де переробили процедуру, але в чому питання не відомо)

Автор: kihor 01.02.18, 18:16

Gazulo @ Сегодня, 18:02 ,

Я тоже не полностью понял ТС, но сегодня мои пользователи уже начали жаловаться на "геморой" с вводом платежных поручений в новой версии 1.2.45.1. Я вернул указанную выше процедуру на старую версию.

Автор: Vofka 02.02.18, 9:41

Gazulo, вот оно что

Автор: logist 02.02.18, 10:57

И какой там геморой?

Автор: kihor 05.02.18, 18:13

logist @ 02.02.18, 10:57 ,

Пользователи создавали платежные поручения как обычно, но при проведении появлялось сообщение, что сумма документа не соответствует итоговой сумме в расшифровке (табличная часть документа). Решалось "шаманским" способом перевыбора суммы документа - таким образом переустанавливалась сумма в строке расшифровки. Я не стал тратить время на отладку и детально вчитываться в изменения вышеуказанной процедуры, т.к. там изменения, которые не были заявлены в описании новшеств обновления (заявлено просто - сброс флажка "Оплачено" при копировании платежки), и вернул предыдущую версию. Сейчас проблем у пользователей не возникает.