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

[ge4r]

Добрый день.
проблема следующая:
есть подчиненный справочник УсловияДоговораАренды в котором содержится инфо о имени арендатора,арендуемой точке,ее площади,сумме оплаты,начале и конце срока.
по этому справочнику нужно создать отчет...
таблица отчета должна содержать те же столбцы что и поля в справочнике

вот код

Код:

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

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

Таб = СоздатьОбъект("Таблица");
Таб.ВывестиСекцию ("Шапка");
Таб.ВывестиСекцию ("Строка")
    Таб.Показать();


КонецПроцедуры

Сначала выполню запрос к нужному справочнику...а вот как потом все это перенести в таблицу?

[Kivals]

Таблица - имеется в виду печатная форма?

Код:

Пока Запрос.Группировка() Цикл
Таб.ВывестиСекцию("Строка");
КонецЦикла;

Только боюсь запрос в том виде, как он написан, не выполниться...

[ge4r]

да,имеется в виду печатная форма...сейчас попробую

[ge4r]

у меня еще вопрос назрел..меняю в конфигураторе диалоговое окно,сохраняю отчет,но при запуске в обычном режиме мне все равно выдает окно без тех изменений,которые я в носил...возможно глупый вопрос,но знаком с 1с всего неделю ...)

[ge4r]

Код:

//*******************************************
Процедура Сформировать()
Перем Запрос, Таб, ТекстЗапроса;
Запрос = СоздатьОбъект("Запрос");     .//Запрос к справочнику
ТекстЗапроса = "
|Аренда = Справочник.УсловияДоговораАренды.Наименование;
|Группировка Аренда Упорядочить по Аренда.Наименование;
|ТорговаяТочка = Справочник.УсловияДоговораАренды.ТорговаяТочка;
|Площадь = Справочник.УсловияДоговораАренды.Площадь;
|СуммаОплаты = Справочник.УсловияДоговораАренды.СуммаОплаты;
|ДатаНачала = Справочник.УсловияДоговораАренды.ДатаНачалаДействия;
|ДатаКонца = Справочник.УсловияДоговораАренды.ДатаКонцаОплаты;
|Комментарий = Справочник.УсловияДоговораАренды.Комментарий;
|"
Запрос.Выполнить(ТекстЗапроса);

Таб = СоздатьОбъект("Таблица");
Таб.ВывестиСекцию ("Шапка");
Пока Запрос.Группировка(1) = 1 Цикл
Таб.ВывестиСекцию("Строка")
КонецЦикла;
    Таб.Показать();


КонецПроцедуры

выдает ошибки:
Запрос = СоздатьОбъект("Запрос");     <<?>>.//Запрос к справочнику
{D:\Базы\nikel20090717\Условия договора аренды.ert(4)}: Неопознанный оператор
Пока Запрос<<?>>.Группировка(1) = 1 Цикл
{D:\Базы\nikel20090717\Условия договора аренды.ert(19)}: Переменная не определена (Запрос)
Таб<<?>>.ВывестиСекцию("Строка")
{D:\Базы\nikel20090717\Условия договора аренды.ert(20)}: Переменная не определена (Таб)
Таб<<?>>.Показать();
{D:\Базы\nikel20090717\Условия договора аренды.ert(22)}: Переменная не определена (Таб)
Таб.Показать();<<?>>

не пойму, почему пишет ,что переменные не определены....

[ge4r]

оу,нашел косяк)

[Kivals]

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

Исправлять ошибки всегда нужно начинать с первой. У тебя в строке определения переменной Запрос синтаксическая ошибка (лишня точка перед комментарием). Исправишь эту ошибку - и переменная будет уже определена

[ge4r]

да,точку я нашел....)

Код:

Пока Запрос.Группировка() Цикл
Таб.ВывестиСекцию("Строка");
КонецЦикла;

а так действительно форма не заполняется...

[ge4r]

вот отчет...

[Kivals]

Перенес группировку в конец,
поменял реквизит запроса Аренда:
Аренда = Справочник.УсловияДоговораАренды.ТекущийЭлемент;
исправил таблицу вывода (в ячейках не надо ставить символы "<" и ">" - надо в совйствах ячейки указать Тип - Выражение)
У меня работает

[Kivals]

Запрос.Группировка() используется когда в запросе присутствует ключевая фраза "Без итогов", в противном случае правильно использовать вложенные циклы Запрос.Группировка(<Номер группировки>)

[Kivals]

А, еще - простую ошибку в выбоде таблицы оставил умышленно
Разбирайся как исправить...

[ge4r]

ошибка я так понимаю это
в таблице ячейку запрос.наименование  нужно заменить на запрос.аренда?)

[Kivals]

Угу. Но лучше: Запрос.Аренда.Наименование

[ge4r]

спасибо,пойду дальше читать маны)

[ge4r]

делитед,разобрался

[ge4r]

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

То есть ,например,выводится отчет,смотрим,а "площадь" выводится не та,кликаем на нее,открывается диалоговое окно редактирования справочника для этого контрагента,изменяем площадь и эти изменения сохраняются в БД

[Kivals]

Смотри в сторону расшифровки ячейки. Чтобы расшифровка была на всю строку - нужно добавить символ # в начало либо конец выражения расшифровки

[ge4r]

Сейчас пытаюсЬ,пишу в расшифровке Справочник.УсловияДоговораАренды.ТекущийЭлемент() ,но 1с пишет, что переменные не объявлены
Текущий вариант отчета выглядит так:

[ge4r]

иль нужно в код добавить что то вроде этого:

Код:

Спр = СоздатьОбъект("Справочник.УсловияДоговораАренды")

и расшифровке писать спр.текущийэлемент()
?

[Kivals]

Естественно не объявлены...
В расшифроке нужно указать существующий объект, в твоем случае: Запрос.Аренда

[Kivals]

Можно конечно почти так, как ты написал, но будет сложнее:
После Спр = СоздатьОбъект("Справочник.УсловияДоговораАренды") и перед выводом секции с расшифровкой спр.текущийэлемент() тебе еще нужно спозиционироваться на нужный элемент:
Спр.НайтиЭлемент(Запрос.Аренда);

[ge4r]

все,понял...спасибо

[ge4r]

Еще вопрос...)
В сей отчет нужно добавить колонку контрагенты,то есть есть справочник контрагенты,ему подчинен справочник договора,и в свою очередь ему подчинен справочник условия договора аренды...
вся информация в отчете берется из "условия договора аренды"...и теперь инфо для одного столбца должна браться из "контрагенты"
что делаю я:
в запрос добавляю строку

Код:

Контрагент = Справочник.Контрагенты.Наименование

и в таблице в нужной ячейке прописываю Запрос.Контрагент

но при выводе отчета ячейка контрагент пуста...в чем косяк?

[Kivals]

В тексте запроса вместо

Код:

Контрагент = Справочник.Контрагенты.Наименование;

нужно писать

Код:

Контрагент = Справочник.УсловияДоговораАренды.Владелец.Владелец.Наименование;

Иначе 1С не знает как нужно связать данные запроса

[ge4r]

спасибо

[ge4r]

еще косяк нашел....
у меня стоит группировка по торговой точке,по наименованию,но если есть повторяющаяся торговая точка,подчиненая разным контрагентам, то выводится только одна из них....

[ge4r]

разобрался,сделал двойную группировку и всё ок

[Ольга111]

Здравствуйте, у меня простое задание, и мне даже стыдно обращаться к вам с таким вопросом, но помощь ОЧЕНЬ нужна
Конфигурация элементарня, самописная. Есть справочник Альбомы. Нужен отчет, который выведет Наименование и Группу (оба они реквизиты справочника Альбомы) альбома, вышедшего позже 2005 года. Я написала так:

Код:

Процедура Сформировать()
 Запрос = СоздатьОбъект("Запрос");

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

В секции данные выводит только ГодВыпуска первого попавшегося элемента, который подходит под условие... Чувствую, что надо выводить векцию в цикле, но не могу понять как именно... Помогите, пожалуйста...

[Ольга111]

Пока Запрос.Группировка() Цикл
   Таб.ВывестиСекцию("Данные");
КонецЦикла;
Если выводить таким образом, что написать в условии цикла, у меня же нет Группировки в ТекстеЗапроса? Ну, пожалуйста, помогите! (((

[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 Тогда Продолжить; КонецЕсли;
    //ОПРЕДЕЛИМ Ваши переменные
    альбом=ТекЭл.Альбом;
    ГодВыпуска=ТекЭл.ГодВыпуска;
    //или в таблице заполняем переменными  ТекЭл.Альбом и ТекЭл.ГодВыпуска
    ТаБ.ВывестиСекцию("ТаЧёХочешьВыводи"); //тут точное название горизонтальной секции Вашей таблицы
КонецЦикла;