"Добрый день. В конторе потребовалась табличка вида: Номер Акта --- полное наименование услуги<br> <br>полное наименование услуги спокойно можно увидеть в печатной форме выбранного документа, но мне нужно получить табличку за нужный период а точнее за квартал<br> <br>вот код, сделал мастером<br>при выполнении выдает ошибку:<br><br>Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда<br>{Отчет.ГТДе.Форма.модуль(24)}: Наименование2 = Документ.ОказаниеУслуг.Услуга.полнНаименование <<?>>);<br>Запрос[7]: Запрос не оперирует величинами типа "Строка" неопределенной длины<br><br>Что-то можно сделать?<br> <br>Процедура Сформировать()<br> Перем Запрос, ТекстЗапроса, Таб;<br> //Создание объекта типа Запрос<br> Запрос = СоздатьОбъект("Запрос");<br> ТекстЗапроса = <br> "//{{ЗАПРОС(Сформировать)<br> |с ВыбНачПериода по ВыбКонПериода;<br> |ОбрабатыватьДокументы все;<br> |ОказаниеУслуг = Документ.ОказаниеУслуг.ТекущийДокумент;<br> |Услуга = Документ.ОказаниеУслуг.Услуга;<br> |Наименование = Документ.ОказаниеУслуг.Услуга.Наименование;<br> |Наименование2 = Документ.ОказаниеУслуг.Услуга.ПолнНаименование;<br> |Группировка ОказаниеУслуг;<br> |Группировка Услуга;<br> |Группировка Наименование;<br> |"//}}ЗАПРОС <br> <br><br> ;<br> // Если ошибка в запросе, то выход из процедуры<br> Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда<br> Возврат;<br> КонецЕсли;<br><br> // Подготовка к заполнению выходных форм данными запроса<br> Таб = СоздатьОбъект("Таблица");<br> Таб.ИсходнаяТаблица("Сформировать");<br> // Заполнение полей "Заголовок"<br> Таб.ВывестиСекцию("Заголовок");<br> Состояние("Заполнение выходной таблицы...");<br> Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);<br> Пока Запрос.Группировка(1) = 1 Цикл<br> // Заполнение полей ОказаниеУслуг<br> Таб.ВывестиСекцию("ОказаниеУслуг");<br> Пока Запрос.Группировка(2) = 1 Цикл<br> // Заполнение полей Услуга<br> Таб.ВывестиСекцию("Услуга");<br> Пока Запрос.Группировка(3) = 1 Цикл<br> // Заполнение полей Наименование<br> Таб.ВывестиСекцию("Наименование");<br> КонецЦикла;<br> КонецЦикла;<br> КонецЦикла;<br> // Вывод заполненной формы<br> Таб.ТолькоПросмотр(1);<br> Таб.Показать("Сформировать", """");<br>КонецПроцедуры"
Сообщений: 3
Сообщений: 2649
"<pre>В шаблоне таблицы в разделе "Услуга" где выводится наименование услуги пишешь:<br>Услуга.ПолнНаименование //для полного<br>Услуга.Наименование //для краткого<br>и запрос делаешь так:<br><br>Процедура Сформировать()<br>Перем Запрос, ТекстЗапроса, Таб;<br>//Создание объекта типа Запрос<br>Запрос = СоздатьОбъект("Запрос");<br>ТекстЗапроса = <br>"//{{ЗАПРОС(Сформировать)<br>|с ВыбНачПериода по ВыбКонПериода;<br>|ОказаниеУслуг = Документ.ОказаниеУслуг.ТекущийДокумент;<br>|Услуга = Документ.ОказаниеУслуг.Услуга;<br>|Группировка ОказаниеУслуг;<br>|Группировка Услуга;<br>|"//}}ЗАПРОС<br>;<br>// Если ошибка в запросе, то выход из процедуры<br>Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда<br>Возврат;<br>КонецЕсли;<br><br>// Подготовка к заполнению выходных форм данными запроса<br>Таб = СоздатьОбъект("Таблица");<br>Таб.ИсходнаяТаблица("Сформировать");<br>// Заполнение полей "Заголовок"<br>Таб.ВывестиСекцию("Заголовок");<br>Состояние("Заполнение выходной таблицы...");<br>Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);<br>Пока Запрос.Группировка(1) = 1 Цикл<br>// Заполнение полей ОказаниеУслуг<br>Таб.ВывестиСекцию("ОказаниеУслуг");<br>Пока Запрос.Группировка(2) = 1 Цикл<br>// Заполнение полей Услуга<br>Таб.ВывестиСекцию("Услуга");<br>КонецЦикла;<br>КонецЦикла;<br>// Вывод заполненной формы<br>Таб.ТолькоПросмотр(1);<br>Таб.Показать("Сформировать", """");<br>КонецПроцедуры</pre>"
Сообщений: 3
"Vladko, помощь твоя неоценима!<br> <br>Выполнил. Думаю все правильно понял. Посмотри пожалуйста скриншоты, циклично вылезают ошибки:<br> <br>Переменная не определена (Запрос)<br>переменная не определена (Таб)<br> <br>Хотя как я понял мы же их определили строками<br>Запрос = СоздатьОбъект("Запрос");<br>и<br>Таб = СоздатьОбъект("Таблица");"
Сообщений: 657
Текст процедуры не тот, в ошибках ругается на<br>Пока Запрос.Группировка(3) = 1 Цикл<br>а в тексте процедуры такого нет.
Сообщений: 2649
1. поправка: я писал:<br>В шаблоне таблицы в разделе "Услуга" где выводится наименование услуги пишешь:<br>Услуга.ПолнНаименование //для полного<br>Услуга.Наименование //для краткого<br>надо так:<br>В шаблоне таблицы в разделе "Услуга" где выводится наименование услуги пишешь:<br>Запрос.Услуга.ПолнНаименование //для полного<br>Запрос.Услуга.Наименование //для краткого<br>В свойстах ячейки проверяешь, чтоб было не "Текст", а "Выражение"<br> <br>2. ошибки точно не от этой процедуры, которая у тебя получилась.<br>И ещё, откуда в макете:<br>Запрос.ОперацииВыбытияИмущества?<br>У тебя в запросе нигде не определяется такая переменная ОперацииВыбытияИмущества
Сообщений: 3
Vladko, огромное тебе человеческое Спасибо! Разобрался, все работает как надо.<br> <br>//Ошибки были потому что я за кадром кусок кода старого оставил, и не заметил.