Создание отчета по справочнику

[Kivals]

Код:

ТекстЗапроса = "
|Без итогов;
|ТекущийЭлемент = Справочник.Альбомы.ТекущийЭлемент;
|ГодВыпуска = Справочник.Альбомы.ГодВыпуска;
|Альбом = Справочник.Альбомы.Наименование;
|Условие (ГодВыпуска>1999); 
|Группировка(ТекущийЭлемент);
|"; 

Ну а дальше доступайся в цикле к нужным реквизитам через
Запрос.ТекущийЭлемент.<НазваниеРеквизита>

[Ольга111]

Простите, пожалуйста, но я не совсем понимаю. Дело в том, что я не программист, вы не могли бы мне по-подробней показать, как надо делать. Пока я только ТекстЗапроса написала, как вы сказали.

Код:

Процедура Сформировать()
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса = "
|Без итогов;
|ТекущийЭлемент = Справочник.Альбомы.ТекущийЭлемент;
|ГодВыпуска = Справочник.Альбомы.ГодВыпуска;
|Альбом = Справочник.Альбомы.Наименование;
|Условие (ГодВыпуска>1999); 
|Группировка(ТекущийЭлемент);
|";  
Запрос.Выполнить(ТекстЗапроса);
Таблица  = СоздатьОбъект("Таблица");
Таблица.ВывестиСекцию("Заголовок");

А дальше никак не разберусь...

[Ольга111]

Kivals, помогите мне, пожалуйста, мне больше и спросить-то не у кого, а нужно очень-очень 

[Kivals]

Ольга111, при всем желании не смогу тебе помочь подредактировать Таблицу, которую ты выводишь, так что разбираться все равно придется...
Вот что получается дальше:

Код:

Запрос.Выполнить(ТекстЗапроса);
Пока Запрос.Группировка() Цикл
	//Таб.ВывестиСекцию("Данные");
	Сообщить(Запрос.ТекущийЭлемент.Наименование);
	Сообщить(Запрос.ТекущийЭлемент.Группа);
КонецЦикла;

Как это прикрутить к таблице - попробуй разобраться сама

[Ольга111]

Большое вам спасибо, но в строке 

Код:

Пока Запрос.Группировка() Цикл

ошибка: Выражение должно иметь логический тип.
Когда я пишу

Код:

Пока Запрос.Группировка()=1 Цикл

Выдаёт ошибку - Запрос.Выполнить(ТекстЗапроса);
{Обработка.ПопулярноеЗа5лет.Форма.Модуль(22)}: Группировка <<?>> (ТекущийЭлемент);
Запро�

[Ольга111]

Запрос.Выполнить(ТекстЗапроса);
{Обработка.ПопулярноеЗа5лет.Форма.Модуль(22)}: Группировка <<?>> (ТекущийЭлемент);
Запро�

[Dest]

Код:

|ТекущийЭлемент = Справочник.Альбомы.ТекущийЭлемент;

"ТекущийЭлемент" - зарезервированное слово. Попробуй поменять, например на "ТекущийЭл"

Код:

|ТекущийЭл = Справочник.Альбомы.ТекущийЭлемент;

[Ольга111]

Спасибо, буду пробовать...

[Kivals]

Ольга111, я не проверял код - писал прямо в форуме.
Про цикл - абсолютно верно, там должно быть "=1"
Про группировку - по-моему там скобок не нужно, вот так:

Код:

	|Группировка ТекущийЭлемент упорядочить по ТекущийЭлемент.Наименование без групп;

[Ольга111]

Большое спасибо, с тем заданием разобралась... Если можно, подскажите, пожалуйста, как из табличной части записать данные в справочник? т.е. в табл. части документа есть название и количество, надо, чтобы в справочнике у нужного элемента менялось количество.

[Ольга111]

Я попробовала сделать так:

Код:

Процедура ОбработкаПроведения()
СпрКниги = СоздатьОбъект("Справочник.Книги");
СпрКниги.Новый(); 
ДокПост = СоздатьОбъект("Документ.ПоступлениеКниг");

  ДокПост. ВыбратьСтроки();
Пока ДокПост.ПолучитьСтроку()=1 Цикл  
	СпрКниги.ВыбратьСтроки();
	  Пока СпрКниги.ПолучитьСтроку()=1 Цикл
                Если СпрКниги.Наименование = НазКниги Тогда
	   	СпрКниги.Количество = Количество;
//Скажите, пожалуйста, можно ли написать СпрКниги.Количество = СпрКниги.Количество + Количество ?
//а то мне надо увеличивать количество в справочнике
	   КонецЕсли;   
	  КонецЦикла;
КонецЦикла;
КонецПроцедуры

Но в справочнике ничего не меняется, правда и ошибок тоже нет...

[Kivals]

Ну что не меняется - неудивительно: цикл не выполняется ни разу, т.к. табличной части для вновь созданного объекта нет.
Если ты это делаешь в ОбработкеПроведения, то нужно приблизительно так:

Код:

	ВыбратьСтроки();
	Пока ПолучитьСтроку()=1 Цикл
		...
	КонецЦикла;

А у тебя в табличной части документа только названия, а не ссылка на элемент справочника?

[Ольга111]

Спасибо Вам. НазКниги (из табличной части документа) имеет тип Справочник.Книги.
Примерно так, как вы показали я уже пробовала:

Код:

Процедура ОбработкаПроведения()
  СпрКниги = СоздатьОбъект("Справочник.Книги");
     ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл   //цикл по таб. части документа
	//перебираю элементы справочника и ищу нужные, чтобы увеличить в них количество
	 //Пока СпрКниги.ПолучитьСтроку()=1 Цикл    //когда раскомментировано - ругается, на эту строку: Поле агрегатного 
                                                                                        //объекта не   обнаружено (ПолучитьСтроку) 
       Если СпрКниги.Наименование = НазКниги Тогда
	   	СпрКниги.Количество = Количество;
	   КонецЕсли;   
	 // КонецЦикла;
КонецЦикла;
КонецПроцедуры

[Ольга111]

Т.е. для перебора справочника надо использовать ВыбратьЭлементы() и ПолучитьЭлементы(), тогда ошибок нет, но количество в справочнике всё равно не меняется... Что же делать?     

[Kivals]

Код:

	СпрКниги = СоздатьОбъект("Справочник.Книги");
	ВыбратьСтроки();
	Пока ПолучитьСтроку()=1 Цикл
		СпрКниги.НайтиЭлемент(НазКниги); // НазКниги - это реквизит табл.части
		СпрКниги.Количество = СпрКниги.Количество + Количество; // Можно.
		// Только: 1. При каждом проведении одного и того же документа к-во будет добавляться
		// 2. Не забудь отнять назад в процедуре ОбработкаУдаленияПроведения()
		СпрКниги.Записать();
	КонецЦикла;

[AndyG]

Ольга111,
Та дались вам эти запросы!:(
Не обязательно использовать их для всего и вся.

Вот вам решение

Таб = СоздатьОбъект("Таблица");
Таб.ВывестиСекцию("Заголовок");
Спр=СоздатьОбъект("Справочник.Альбомы");
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент()=1 Цикл
ТекЭл=Спр.ТекущийЭлемент();    
    Если ТекЭл.ПометкаУдаления()=1 Тогда Продолжить; КонецЕсли;
    Если ТекЭл.ГодВыпуска<1999 Тогда Продолжить; КонецЕсли;
    //ОПРЕДЕЛИМ Ваши переменные
    альбом=ТекЭл.Альбом;
    ГодВыпуска=ТекЭл.ГодВыпуска;
    //или в таблице заполняем переменными  ТекЭл.Альбом и ТекЭл.ГодВыпуска
    ТаБ.ВывестиСекцию("ТаЧёХочешьВыводи"); //тут точное название горизонтальной секции Вашей таблицы
КонецЦикла;