Имя: Пароль:
1C
1C 7.7
v7: "обнуление" итогов регистра
,
0 dbehterev
 
12.01.12
22:02
Всем привет. Стоит задача переброски выданного на комиссию товара обратно, на склад. Из-за того, что базу криво обрезали, и прочих моментов, регистр ПартииОтданные содержит ерунду.
Если я хочу "обнулить" итоги по регистру, могу ли поступить таким образом:
ВремРегистры                    = СоздатьОбъект("Регистры");
ВремПартииОтданные              = ВремРегистры.ПартииОтданные;    
// ...
ВремПартииОтданные.ВыгрузитьИтоги(ТЗ,1,1);

Дальше "прохожусь" по ТЗ с итогами и делаю "обратное" движение регистра:
ТЗ.ВыбратьСтроки();      
       Пока ТЗ.ПолучитьСтроку()=1 Цикл
           
           // Регистр ПартииОтданные
           Регистр.ПартииОтданные.Фирма            = ТЗ.Фирма;
           Регистр.ПартииОтданные.Контрагент        = ТЗ.Клиент;
           Регистр.ПартииОтданные.Товар            = ТЗ.Товар;
           Регистр.ПартииОтданные.Поставка            = ТЗ.Поставка;
           Регистр.ПартииОтданные.ДокументПередачи    = ТЗ.ДокументПередачи;
           Регистр.ПартииОтданные.Количество        = ТЗ.Количество;
           Регистр.ПартииОтданные.СуммаУпр            = ТЗ.СуммаУпр;
           Регистр.ПартииОтданные.СуммаРуб            = ТЗ.СуммаРуб;
           Регистр.ПартииОтданные.СуммаБезНДС        = ТЗ.СуммаБезНДС;
           Регистр.ПартииОтданные.ПродСтоимость    = ТЗ.ПродСтоимость;
           Регистр.ПартииОтданные.КодОперации        = ТЗ.ВозвратОтРеализатора;
           
           Регистр.ПартииОтданные.ДвижениеРасходВыполнить();  

       КонецЦикла;  

Т.е. после всех движений я получаю нулевые итоги. Всем спасибо за ответы.
1 Джинн
 
12.01.12
22:04
Обнуляй. Только итоги на позицию документа бери. А то перепроведение документа сюрприз принесет.
2 andrewks
 
12.01.12
22:04
делай.

а что там с бух.учётом?
3 Ёпрст
 
12.01.12
22:06
(0) а если отрицательное значение ресурсов ? То надо приход, если че..
:))
4 dbehterev
 
12.01.12
22:08
(1) спасибо, буду брать на позицию.
(2) завтра буду мучить бухию, как лучше провести по бухучету.
(3) да, есть отрицательные значения. Вы уверенны, что в зависимости от знака, надо инвертить?
5 zak555
 
12.01.12
22:10
(4) ты "закрыть" хочешь или что ?
6 andrewks
 
12.01.12
22:12
(3) какая разница? ему просто обнулить надо
7 dbehterev
 
12.01.12
22:13
да, хочу закрыть документооборот с контрагентом
8 Ёпрст
 
12.01.12
22:14
(4) -100 расход 100 = -100-100 = -200 как бэ, если что.
9 andrewks
 
12.01.12
22:15
(8) неправильная у тебя арифметика какая-то
10 dbehterev
 
12.01.12
22:15
(8) запустил универсальный отчет печати регистра (ПартииОтданные), как раз чтобы проверить это... Показывает нулевые итоги, как я и хочу.
11 ДенисЧ
 
12.01.12
22:15
(8) делаем расход на -100 и всё в шоколаде
12 Джинн
 
12.01.12
22:15
(8) Тормозишь к вечеру. -(-100)
13 zak555
 
12.01.12
22:16
(9) чё ?
14 zak555
 
12.01.12
22:16
у Ёпрст4 в (8) в начале остаток в регистре -100
далее он вычитает ещё 100
получил -200
15 medved_kot
 
12.01.12
22:18
(14) надо вычитать не 100, а -100
16 Джинн
 
12.01.12
22:19
(14) Вычитается ТЗ.Количество. Или -(-100).
17 zak555
 
12.01.12
22:20
ВремПартииОтданные.ВыгрузитьИтоги(ТЗ,1,1);

в ТЗ выгрузит остаток -100

далее идёт выполнитьРАсход

кто пьёт ? =)
18 andrewks
 
12.01.12
22:21
(17) ты, конечно
19 medved_kot
 
12.01.12
22:21
(17) наверное Вы, т.к. расход -100. т.е. 100 - (-100) = 0!
20 Ёпрст
 
12.01.12
22:22
(16) ага
:)
21 andrewks
 
12.01.12
22:23
(19) у тебя тоже неверная арифметика. вы чё, уже HONY отмечаете? :)
22 zak555
 
12.01.12
22:23
- 100 - (- 100 )

пля
23 medved_kot
 
12.01.12
22:24
(21) просто у остатка минус забыл
24 zak555
 
12.01.12
22:25
всех с напупающим старым новым годом =)
25 dbehterev
 
12.01.12
22:30
всем спасибо за ответы и за дискуссию :)
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн