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 тогда
Сум=Сум+Рег.СуммаРуб;
Иначе
Сум=Сум-Рег.СуммаРуб;
КонецЕсли;
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс