Имя: Пароль:
1C
 
ПоступлениеТМЦИмпорт
0 zak555
 
25.09.09
14:25
док делает лишнее движение по регистру ПартииНаличие на копейку
это происходит из-за неокругления ОбщаяСуммаДокумента

будет ли корректно, если эту переменную округлить?

Процедура СкорретироватьДвиженияПартийПоАвансам()

   ОбщаяСуммаДокумента = глПересчет(глОбщаяСуммаДокумента(Контекст), Валюта, Курс, глРубли, 1, Кратность, 1);
   ОбщаяСуммаПоУчету = 0;
   
   РегистрВзаиморасчетов = СоздатьОбъект("Регистр.Поставщики");
   Если РегистрВзаиморасчетов.ВыбратьДвиженияДокумента(ТекущийДокумент()) = 1 Тогда
       Пока РегистрВзаиморасчетов.ПолучитьДвижение() = 1 Цикл
           Если РегистрВзаиморасчетов.КодОперации <> глКО.ТаможенныеПлатежи Тогда
               Если РегистрВзаиморасчетов.Приход = 1 Тогда
                    ОбщаяСуммаПоУчету = ОбщаяСуммаПоУчету - РегистрВзаиморасчетов.ОценкаРуб;
               Иначе
                    ОбщаяСуммаПоУчету = ОбщаяСуммаПоУчету + РегистрВзаиморасчетов.ОценкаРуб;
               КонецЕсли;
           КонецЕсли;
       КонецЦикла;
   КонецЕсли;

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

КонецПроцедуры // СкорретироватьДвиженияПартийПоАвансам()
1 zak555
 
25.09.09
14:26
матофильтру не нравится слово из таблицы и корректировки !!!
2 Дядя Васька
 
25.09.09
14:28
Не понял, каким образом связанна общая сумма документа и регистр ПартииНаличие? Первое взаиморасчеты, второе партионный учет...
3 zak555
 
25.09.09
14:32
(2) так делается корректировка движений в модуле дока ПоступлениеТМЦИмпорт
4 Дядя Васька
 
25.09.09
14:45
(3) Это в типовой? Странно как-то... Может с курсовыми разницами попутал?
5 zak555
 
25.09.09
14:57
(4) нет - это типовая комплексная!!!
6 zak555
 
25.09.09
16:04
сделал округление - остаток на 15 счете не весит...
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.