ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / 1С [игнор отключен] [закрыт для гостей] / разработка внешней печатной формы
17 сообщений из 17, страница 1 из 1
разработка внешней печатной формы
    #37235990
Yeahkaterina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Yeahkaterina
Гость
Есть документ, для которого необходимо сформировать печатную форму. примерно такой:
Номенклатура Содержание
ремонт ремонт забора
ремонт ремонт окна
Покраска покраска стен
Покраска покраска пола

мой запрос:

ЗапросТЧ.Текст = "ВЫБРАТЬ
| РеализацияТоваровУслугУслуги.Номенклатура КАК Номенклатура,
| ВЫРАЗИТЬ(РеализацияТоваровУслугУслуги.Содержание КАК СТРОКА(1000)) КАК Содержание,
| СУММА(РеализацияТоваровУслугУслуги.Количество) КАК Количество,
| СУММА(РеализацияТоваровУслугУслуги.Сумма) КАК Сумма,
| СУММА(РеализацияТоваровУслугУслуги.Цена) КАК Цена,
| СУММА(РеализацияТоваровУслугУслуги.СуммаНДС) КАК СуммаНДС
|ИЗ
| Документ.РеализацияТоваровУслуг.Услуги КАК РеализацияТоваровУслугУслуги
|ГДЕ
| РеализацияТоваровУслугУслуги.Ссылка = &ТекущийДокумент
|
|СГРУППИРОВАТЬ ПО
| РеализацияТоваровУслугУслуги.Номенклатура,
| ВЫРАЗИТЬ(РеализацияТоваровУслугУслуги.Содержание КАК СТРОКА(1000))";

ТЧ = ЗапросТЧ.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Область = Макет.ПолучитьОбласть("Строка");
Пока Тч.Следующий() Цикл
Область.Параметры.Номенклатура = ТЧ.Номенклатура;
Область.Параметры.Содержание = ТЧ.Содержание;
КонецЦикла;

Необходимо,чтоб печатная форма выглядела так:

номенклатура Содержание

Ремонт
ремонт забора
ремонт окна
Покраска
Покраска стен
покраска пола

никак не получается так сделать. подскажите пожалуйста!
...
Рейтинг: 0 / 0
27.04.2011, 14:47
| Ответить | Цитировать | Написать  
разработка внешней печатной формы
    #37236176
Товарищ ЖоПэ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Товарищ ЖоПэ
Гость
В цикл добавить: ТабДок.Вывести(Область);
...
Рейтинг: 0 / 0
27.04.2011, 15:35
| Ответить | Цитировать | Написать  
разработка внешней печатной формы
    #37236200
Yeahkaterina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Yeahkaterina
Гость
Спасибо, но это не то, что мне нужно. проблема, как я думаю, в неправильной группировке...
...
Рейтинг: 0 / 0
27.04.2011, 15:45
| Ответить | Цитировать | Написать  
разработка внешней печатной формы
    #37236256
DmitriyZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DmitriyZ
Участник
YeahkaterinaСпасибо, но это не то, что мне нужно. проблема, как я думаю, в неправильной группировке... Воспользоваться итогами. Далее обход результата запроса по группировкам.
...
Рейтинг: 0 / 0
27.04.2011, 16:04
| Ответить | Цитировать | Написать  
разработка внешней печатной формы
    #37236292
Yeahkaterina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Yeahkaterina
Гость
DmitriyZ, спасибо, как раз сейчас это делаю. но только на данном этапе могу получить Номенклатуру, содержание почему-то не выводится:
ЗапросТЧ.Текст = "ВЫБРАТЬ
| РеализацияТоваровУслугУслуги.Номенклатура КАК Номенклатура,
| ВЫРАЗИТЬ(РеализацияТоваровУслугУслуги.Содержание КАК СТРОКА(1000)) КАК Содержание,
| СУММА(РеализацияТоваровУслугУслуги.Количество) КАК Количество,
| СУММА(РеализацияТоваровУслугУслуги.Сумма) КАК Сумма,
| СУММА(РеализацияТоваровУслугУслуги.Цена) КАК Цена,
| СУММА(РеализацияТоваровУслугУслуги.СуммаНДС) КАК СуммаНДС
|ИЗ
| Документ.РеализацияТоваровУслуг.Услуги КАК РеализацияТоваровУслугУслуги
|ГДЕ
| РеализацияТоваровУслугУслуги.Ссылка = &ТекущийДокумент
|
|СГРУППИРОВАТЬ ПО
| РеализацияТоваровУслугУслуги.Номенклатура,
| ВЫРАЗИТЬ(РеализацияТоваровУслугУслуги.Содержание КАК СТРОКА(1000))
|ИТОГИ
| СУММА(Количество),
| СУММА(Сумма),
| МАКСИМУМ(Цена),
| СУММА(СуммаНДС)
|ПО
| Номенклатура,
| Содержание";


ТЧ = ЗапросТЧ.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Номенклатура");
Область = Макет.ПолучитьОбласть("Строка");

Пока Тч.Следующий() Цикл
Область.Параметры.Номенклатура = ТЧ.Номенклатура;
Область.Параметры.Содержание = ТЧ.Содержание;
ТабДок.Вывести(Область);
КонецЦикла;

Результат:
Покраска
Ремонт


Подскажите пожалуйста, что неправильно? Почему нет содержания?
...
Рейтинг: 0 / 0
27.04.2011, 16:13
| Ответить | Цитировать | Написать  
разработка внешней печатной формы
    #37236347
Товарищ ЖоПэ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Товарищ ЖоПэ
Гость
потому как нужно еще одну группировку организовать:
ТЧ = ЗапросТЧ.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Номенклатура");
Область = Макет.ПолучитьОбласть("Строка");

Пока Тч.Следующий() Цикл
Область.Параметры.Номенклатура = ВыборкаТЧ.Номенклатура;
ТабДок.Вывести(Область);
ВыборкаТч.Выбрать();
Пока выборка.следующий() цикл
Область.Параметры.Номенклатура = ВыборкаТЧ.Номенклатура;
Область.Параметры.Содержание = ВыборкаТЧ.Содержание;
ТабДок.Вывести(Область);
КонецЦикла;
КонецЦикла;
...
Рейтинг: 0 / 0
27.04.2011, 16:32
| Ответить | Цитировать | Написать  
разработка внешней печатной формы
    #37236355
Товарищ ЖоПэ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Товарищ ЖоПэ
Гость
ссори, куча ошибок...

потому как нужно еще одну выборку организовать:
ТЧ = ЗапросТЧ.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Номенклатура");
Область = Макет.ПолучитьОбласть("Строка");

Пока Тч.Следующий() Цикл

Область.Параметры.Номенклатура = ТЧ.Номенклатура;
ТабДок.Вывести(Область);
Выборка = ТЧ.Выбрать();

Пока выборка.следующий() цикл
Область.Параметры.Номенклатура = Выборка.Номенклатура;
Область.Параметры.Содержание = Выборка.Содержание;
ТабДок.Вывести(Область);
КонецЦикла;

КонецЦикла;
...
Рейтинг: 0 / 0
27.04.2011, 16:34
| Ответить | Цитировать | Написать  
разработка внешней печатной формы
    #37236373
Yeahkaterina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Yeahkaterina
Гость
Товарищ ЖоПэ, спасибо, попробовала сделать так, но все-равно получаю только номенклатуру....
...
Рейтинг: 0 / 0
27.04.2011, 16:40
| Ответить | Цитировать | Написать  
разработка внешней печатной формы
    #37236388
Yeahkaterina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Yeahkaterina
Гость
исправила, но не все))))
теперь получается вообще все подряд.....
...
Рейтинг: 0 / 0
27.04.2011, 16:44
| Ответить | Цитировать | Написать  
разработка внешней печатной формы
    #37236411
Товарищ ЖоПэ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Товарищ ЖоПэ
Гость
итоги по содержанию уберите из запроса
...
Рейтинг: 0 / 0
27.04.2011, 16:52
| Ответить | Цитировать | Написать  
разработка внешней печатной формы
    #37236415
Yeahkaterina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Yeahkaterina
Гость
Вот, что получается, если сделать так, как Вы говорите:

Покраска


Покраска

Покраска стен
ремонт

Покраска стен
ремонт

ооо
ремонт

ремонтррррр
Уборка

ремонтррррр
Уборка

Уборка во дворе

(((((((((((((
...
Рейтинг: 0 / 0
27.04.2011, 16:53
| Ответить | Цитировать | Написать  
разработка внешней печатной формы
    #37236422
Товарищ ЖоПэ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Товарищ ЖоПэ
Гость
ЗапросТЧ.Текст = "ВЫБРАТЬ
| РеализацияТоваровУслугУслуги.Номенклатура КАК Номенклатура,
| ВЫРАЗИТЬ(РеализацияТоваровУслугУслуги.Содержание КАК СТРОКА(1000)) КАК Содержание,
| СУММА(РеализацияТоваровУслугУслуги.Количество) КАК Количество,
| СУММА(РеализацияТоваровУслугУслуги.Сумма) КАК Сумма,
| СУММА(РеализацияТоваровУслугУслуги.Цена) КАК Цена,
| СУММА(РеализацияТоваровУслугУслуги.СуммаНДС) КАК СуммаНДС
|ИЗ
| Документ.РеализацияТоваровУслуг.Услуги КАК РеализацияТоваровУслугУслуги
|ГДЕ
| РеализацияТоваровУслугУслуги.Ссылка = &ТекущийДокумент
|
|СГРУППИРОВАТЬ ПО
| РеализацияТоваровУслугУслуги.Номенклатура,
| ВЫРАЗИТЬ(РеализацияТоваровУслугУслуги.Содержание КАК СТРОКА(1000))
|ИТОГИ
| СУММА(Количество),
| СУММА(Сумма),
| МАКСИМУМ(Цена),
| СУММА(СуммаНДС)
|ПО
| Номенклатура";

ТЧ = ЗапросТЧ.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Номенклатура");
Область = Макет.ПолучитьОбласть("Строка");

Пока Тч.Следующий() Цикл

Область.Параметры.Номенклатура = ТЧ.Номенклатура;
ТабДок.Вывести(Область);
Выборка = ТЧ.Выбрать();

Пока выборка.следующий() цикл
Область.Параметры.Номенклатура = Выборка.Номенклатура;
Область.Параметры.Содержание = Выборка.Содержание;
ТабДок.Вывести(Область);
КонецЦикла;

КонецЦикла;

код такой?
...
Рейтинг: 0 / 0
27.04.2011, 16:58
| Ответить | Цитировать | Написать  
разработка внешней печатной формы
    #37236439
Yeahkaterina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Yeahkaterina
Гость
Да, вот:
ЗапросТЧ = Новый Запрос;
ЗапросТЧ.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект);

ЗапросТЧ.Текст = "ВЫБРАТЬ
| РеализацияТоваровУслугУслуги.Номенклатура КАК Номенклатура,
| ВЫРАЗИТЬ(РеализацияТоваровУслугУслуги.Содержание КАК СТРОКА(1000)) КАК Содержание,
| СУММА(РеализацияТоваровУслугУслуги.Количество) КАК Количество,
| СУММА(РеализацияТоваровУслугУслуги.Сумма) КАК Сумма,
| СУММА(РеализацияТоваровУслугУслуги.Цена) КАК Цена,
| СУММА(РеализацияТоваровУслугУслуги.СуммаНДС) КАК СуммаНДС
|ИЗ
| Документ.РеализацияТоваровУслуг.Услуги КАК РеализацияТоваровУслугУслуги
|ГДЕ
| РеализацияТоваровУслугУслуги.Ссылка = &ТекущийДокумент
|
|СГРУППИРОВАТЬ ПО
| РеализацияТоваровУслугУслуги.Номенклатура,
| ВЫРАЗИТЬ(РеализацияТоваровУслугУслуги.Содержание КАК СТРОКА(1000))
|ИТОГИ
| СУММА(Количество),
| СУММА(Сумма),
| МАКСИМУМ(Цена),
| СУММА(СуммаНДС)
|ПО
| Номенклатура";


ТЧ = ЗапросТЧ.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Область = Макет.ПолучитьОбласть("Строка");

Пока Тч.Следующий() Цикл
Область.Параметры.Номенклатура = ТЧ.Номенклатура;
ТабДок.Вывести(Область);
Выборка = ТЧ.Выбрать();
Пока Выборка.следующий() цикл
Область.Параметры.Номенклатура = Выборка.Номенклатура;
Область.Параметры.Содержание = Выборка.Содержание;
ТабДок.Вывести(Область);
КонецЦикла;

КонецЦикла;
...
Рейтинг: 0 / 0
27.04.2011, 17:03
| Ответить | Цитировать | Написать  
разработка внешней печатной формы
    #37236460
Товарищ ЖоПэ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Товарищ ЖоПэ
Гость
а теперь то что в печатной форме выходит запостите, пжл.
...
Рейтинг: 0 / 0
27.04.2011, 17:07
| Ответить | Цитировать | Написать  
разработка внешней печатной формы
    #37236472
DmitriyZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DmitriyZ
Участник
Yeahkaterina, уберите группировку, оставьте только итоги. Или вам нужно одинаковые строки схлоповать?
...
Рейтинг: 0 / 0
27.04.2011, 17:10
| Ответить | Цитировать | Написать  
разработка внешней печатной формы
    #37236494
Yeahkaterina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Yeahkaterina
Гость
Спасибо, разобралась!
...
Рейтинг: 0 / 0
27.04.2011, 17:16
| Ответить | Цитировать | Написать  
разработка внешней печатной формы
    #37236505
Yeahkaterina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Yeahkaterina
Гость
ЗапросТЧ = Новый Запрос;
ЗапросТЧ.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект);

ЗапросТЧ.Текст = "ВЫБРАТЬ
| РеализацияТоваровУслугУслуги.Номенклатура КАК Номенклатура,
| ВЫРАЗИТЬ(РеализацияТоваровУслугУслуги.Содержание КАК СТРОКА(1000)) КАК Содержание,
| СУММА(РеализацияТоваровУслугУслуги.Количество) КАК Количество,
| СУММА(РеализацияТоваровУслугУслуги.Сумма) КАК Сумма,
| СУММА(РеализацияТоваровУслугУслуги.Цена) КАК Цена,
| СУММА(РеализацияТоваровУслугУслуги.СуммаНДС) КАК СуммаНДС
|ИЗ
| Документ.РеализацияТоваровУслуг.Услуги КАК РеализацияТоваровУслугУслуги
|ГДЕ
| РеализацияТоваровУслугУслуги.Ссылка = &ТекущийДокумент
|
|СГРУППИРОВАТЬ ПО
| РеализацияТоваровУслугУслуги.Номенклатура,
| ВЫРАЗИТЬ(РеализацияТоваровУслугУслуги.Содержание КАК СТРОКА(1000))
|ИТОГИ
| СУММА(Количество),
| СУММА(Сумма),
| МАКСИМУМ(Цена),
| СУММА(СуммаНДС)
|ПО
| Номенклатура";


ТЧ = ЗапросТЧ.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Область = Макет.ПолучитьОбласть("Строка");

Пока Тч.Следующий() Цикл
Область = Макет.ПолучитьОбласть("СтрокаНоменклатура");
Область.Параметры.Номенклатура = ТЧ.Номенклатура;
ТабДок.Вывести(Область);
Выборка = ТЧ.Выбрать();
Пока Выборка.следующий() цикл
Область = Макет.ПолучитьОбласть("СтрокаСодержание");
//Область.Параметры.Номенклатура = Выборка.Номенклатура;
Область.Параметры.Содержание = Выборка.Содержание;
ТабДок.Вывести(Область);
КонецЦикла;

КонецЦикла;
...
Рейтинг: 0 / 0
27.04.2011, 17:20
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / 1С [игнор отключен] [закрыт для гостей] / разработка внешней печатной формы
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]