Имя: Пароль:
1C
1C 7.7
v7: Как определить тип движения регистра?
0 SeregaMW
 
06.04.12
14:11
Процедура Сформировать()
   ТаблицаИтогов = СоздатьОбъект("ТаблицаЗначений");
   Рег           = СоздатьОбъект("Регистры");
   Продавец      = ПолучитьПустоеЗначение("Справочник.Сотрудники");

Рег.Актуальность(1);
       РегТовары = Рег.Товары;
       СписокТоваров = СоздатьОбъект("СписокЗначений");
//
       РегТовары.УстановитьЗначениеФильтра("Товар",Товар.ТекущийЭлемент(),2);
       РегТовары.УстановитьЗначениеФильтра("Склад",Склад.ТекущийЭлемент(),1);
       РегТовары.ВременныйРасчет(1);
         Рег.РассчитатьРегистрыНа(ТекущаяДата());
       
   РегТовары.ВыгрузитьИтоги(ТаблицаИтогов, 1);

           ТаблицаИтогов.ВыбратьСтроки();
   
           Пока ТаблицаИтогов.ПолучитьСтроку() = 1 Цикл
                Сообщить(Строка(ТаблицаИтогов.ДокПрихода)+" "+Строка(ТаблицаИтогов.Товар)+"  количество  "+Строка(ТаблицаИтогов.НаСкладе));

           КонецЦикла;
КонецПроцедуры

Подскажите метод?
1 zak555
 
06.04.12
14:12
Приход
2 zak555
 
06.04.12
14:12
а как ты в итогах найдёшь движения ?
3 SeregaMW
 
06.04.12
14:14
(2) Да я вот тоже об этом подумал ))) Как перебрать регистр?
4 zak555
 
06.04.12
14:15
(3) ты хоть напиши, что ты хочешь получить в конечном итоге
5 SeregaMW
 
06.04.12
14:16
(4) хочу получить все записи регистра по номенклатуре и складу
6 zak555
 
06.04.12
14:16
(5) запрос
7 пипец
 
06.04.12
14:20
Рег.ВыбратьДвиженияДокумента(Док1.ТекущийДокумент());  
                   Пока рег.ПолучитьДвижение()>0 цикл
                       
                       
                       Если рег.Приход = 1 тогда
                           
                           Сум=Сум+Рег.СуммаРуб;    
                       Иначе          
                           
                           Сум=Сум-Рег.СуммаРуб;    
                           
                       КонецЕсли;
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс