pafikus
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ребят помогите пожалуйста накатать отчет.... Не пойму что именно не так, видимо уже голова не соображает. Вот код:
Процедура СформироватьНаСервере()
Ном = 0;
Макет = Отчеты.ДвижениеТМЦ.ПолучитьМакет("Макет");
Тов = Отчет.Товар;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ПРЕДСТАВЛЕНИЕ(ОстаткиТМЦОстаткиИОбороты.ТМЦ),
| ОстаткиТМЦ.Регистратор КАК Док,
| ОстаткиТМЦОстаткиИОбороты.КоличествоНачальныйОстаток КАК НачОст,
| ОстаткиТМЦОстаткиИОбороты.КоличествоКонечныйОстаток КАК КонОст,
| ОстаткиТМЦОстаткиИОбороты.КоличествоПриход КАК КвоПриход,
| ОстаткиТМЦОстаткиИОбороты.КоличествоРасход КАК КвоРасход,
| ОстаткиТМЦОстаткиИОбороты.СебестоимостьПриход КАК СебПриход,
| ОстаткиТМЦОстаткиИОбороты.СебестоимостьРасход КАК СебРасход,
| ОстаткиТМЦОстаткиИОбороты.СуммаНачальныйОстаток КАК СуммаНачОст,
| ОстаткиТМЦОстаткиИОбороты.СуммаКонечныйОстаток КАК СуммаКонОст,
| ОстаткиТМЦОстаткиИОбороты.ТМЦ КАК ТМЦ1,
| ОстаткиТМЦОстаткиИОбороты.Склад КАК Склад1
| ОстаткиТМЦ.ВидДвижения Как ВидДвижения
|ИЗ
| РегистрНакопления.ОстаткиТМЦ.ОстаткиИОбороты(&НачалоПериода, &КонецПериода, , , ) КАК ОстаткиТМЦОстаткиИОбороты,
| РегистрНакопления.ОстаткиТМЦ КАК ОстаткиТМЦ
|ГДЕ
| ОстаткиТМЦОстаткиИОбороты.ТМЦ.Ссылка = &Товар,
| ОстаткиТМЦОстаткиИОбороты.ТМЦ.Счет = &Счет";
Запрос.УстановитьПараметр("НачалоПериода",Период.ДатаНачала);
Запрос.УстановитьПараметр("КонецПериода",Период.ДатаОкончания);
Запрос.УстановитьПараметр("Ном",Ном);
Запрос.УстановитьПараметр("Товар",Тов);
Запрос.УстановитьПараметр("Счет",Тов.Счет);
Результат = Запрос.Выполнить();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
ОбластьШапка = Макет.ПолучитьОбласть("Шапка");
ОбластьПодвалТаб = Макет.ПолучитьОбласть("ПодвалТабл");
ОбластьСтрок = Макет.ПолучитьОбласть("Строка_1");
ТабДок.Очистить();
ТабДок.Вывести(ОбластьЗаголовок);
ТабДок.Вывести(ОбластьШапка);
ТабДок.НачатьАвтогруппировкуСтрок();
Выборка = Результат.Выбрать();
Пока Выборка.Следующий() Цикл
Ном = Ном + 1;
ОбластьСтрок.Параметры.Заполнить(Выборка);
ТабДок.Вывести(ОбластьСтрок,Выборка.Уровень());
КонецЦикла;
ТабДок.ЗакончитьАвтогруппировкуСтрок();
ТабДок.Вывести(ОбластьПодвал);
КонецПроцедуры // СформироватьНаСервере()
Хочу вывести движение (приход/расход) по конкретному ТМЦ за период.
Зарание спасибо за правильный "пинок"  |
Всего записей: 22 | Зарегистр. 16-04-2007 | Отправлено: 18:29 25-01-2012 | Исправлено: pafikus, 13:13 26-01-2012 |
|
Программы » 
Варезник » 
