Запрос из регистра сведений

Форум Программирование Общие вопросы программирования (Dev)

Платформа 1С v8.3

1. bajik 12.08.07 10:52 Сейчас в теме

Как сделать запрос из регистра сведений по 3 измерениям двух последних двух значений и поместить значения в табличную часть документа. Регистр сведений периодический.
Насколько я понимаю решения этой задачки:
1. ПолучтьПоследние (Конец месяца, ....)
2. Присвоить значение ячейке документа табличной части (Вопрос: Как это сделать? Еще не опробывал, но как я понял, создается структура, а в ней все реквизиты и значение. Или получаем само значение, которое потом можно присвоить?
2 Взять дату значения из регистра сведений (Вопрос: Как это сделать?)
3. Полученную дату вставляем в следующий метод ПолучитьПоследние (Полученная дата - 1, .......)
Помогите с данной задачей, и если можете поправьте алгоритм получения двух последних значений.
Спасибо!

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. lamort 13.08.07 11:29 Сейчас в теме

Попробуй так:

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ ПЕРВЫЕ 2
| РегистрСведений.<Поле1>,
| РегистрСведений.<Поле2>,
| РегистрСведений.<Поле3>,
| ......................
| РегистрСведений.<ПолеN>
|ИЗ
| РегистрСведений.<ИмяРегистраСведений> КАК РегистрСведений
|ГДЕ
| РегистрСведений.Период <= &Дата
| И РегистрСведений.<Измерение1> = &Параметр1
| И РегистрСведений.<Измерение2> = &Параметр2
| И РегистрСведений.<Измерение3> = &Параметр3
|
|УПОРЯДОЧИТЬ ПО
| РегистрСведений.Период УБЫВ";

Запрос.УстановитьПараметр("Дата", Дата);
Запрос.УстановитьПараметр("Параметр1", <Параметр1> );
Запрос.УстановитьПараметр("Параметр2", <Параметр2> );
Запрос.УстановитьПараметр("Параметр3", <Параметр3> );

Выборка = Запрос.Выполнить().Выбрать();

Пока Выборка.Следующий() Цикл
НоваяСтрока = <ТабличнаяЧасть>.Добавить();
НоваяСтрока.<Поле1> = Выборка.<Поле1>;
.....................................
НоваяСтрока.<ПолеN> = Выборка.<ПолеN>;
КонецЦикла;
Вместо того что в угловых скобка вставляй соответствующие значения.

Оставьте свое сообщение

E-mail: