![]() |
|
Вывод на печать | ☑ | ||
---|---|---|---|---|
0
Начинающий_13
04.02.14
✎
17:31
|
Здравствуйте
Хочу вывести на печать Выводит только наименование Договор комиссии № Все остальное пусто. Что не дописал НЕ ВИЖУ. В отладчике данные есть. Функция ПечатьДоговорСКомитентом() ТабДокумент = Новый ТабличныйДокумент; ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ПоступлениеТоваров_ДоговорСКомитентом"; ТабДокумент.ПолеСлева = 25; ТабДокумент.ПолеСправа = 5; ТабДокумент.ПолеСверху = 5; ТабДокумент.ПолеСнизу = 5; ТабДокумент.АвтоМасштаб = Истина; ТабДокумент.ОтображатьСетку = Ложь; ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Портрет; Макет = ПолучитьМакет("ДоговорСКомитентом"); Запрос = Новый Запрос; Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка); Запрос.УстановитьПараметр("ДатаДокумента", Дата); Запрос.Текст = "ВЫБРАТЬ | Док.Номер КАК НомерДокумента, | Док.Дата КАК ДатаДокумента, | Док.Склад.Организация, | Док.Склад КАК СкладНаименование, | Док.Магазин КАК МагазинНаименование, | Док.Склад.Организация КАК Руководители, | Док.Склад.Организация КАК Поставщик, | Док.УчитыватьНДС, | Док.СуммаВключаетНДС, | Док.Склад.Организация.НаименованиеПолное КАК ОрганизацияНаименование, | Док.Склад.Организация.ИНН КАК ОрганизацияИНН, | Док.Склад.Организация.ПоУмолчаниюРасчетныйСчет КАК БанкОрганизации, | Док.Склад.Организация.Лицензия КАК ЛицензияОрганизации, | Док.Контрагент КАК Получатель, | Док.Контрагент.НаименованиеПолное КАК КонтрагентНаименование, | Док.Контрагент.ИНН КАК КонтрагентИНН, | Док.Контрагент.ПоУмолчаниюРасчетныйСчет КАК РасчетныйСчетКонтрагента, | Док.Договор КАК ДоговорКонтрагента, | Док.Договор.ДатаС КАК ДоговорКонтрагентаДатаС, | АдресКонтрагента.Представление КАК ЮрАдресКонтрагента, | АдресОрганизации.Представление КАК ЮрАдресОрганизации, | АдресСклада.Представление КАК ЮрАдресСклада, | ТелефонКонтрагента.Представление КАК ТелефонКонтрагента, | ТелефонОрганизации.Представление КАК ТелефонОрганизации, | ТелефонСклада.Представление КАК ТелефонСклада |ИЗ | Документ.ПоступлениеТоваров КАК Док | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК АдресОрганизации | ПО Док.Склад.Организация = АдресОрганизации.Объект | И (АдресОрганизации.Тип = ЗНАЧЕНИЕ(Перечисление.ТипыКонтактнойИнформации.Адрес)) | И (АдресОрганизации.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ЮрАдресОрганизации)) | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК АдресКонтрагента | ПО Док.Контрагент = АдресКонтрагента.Объект | И (АдресКонтрагента.Тип = ЗНАЧЕНИЕ(Перечисление.ТипыКонтактнойИнформации.Адрес)) | И (АдресКонтрагента.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ЮрАдресКонтрагента)) | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК ТелефонОрганизации | ПО Док.Склад.Организация = ТелефонОрганизации.Объект | И (ТелефонОрганизации.Тип = ЗНАЧЕНИЕ(Перечисление.ТипыКонтактнойИнформации.Телефон)) | И (ТелефонОрганизации.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ТелефонОрганизации)) | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК ТелефонКонтрагента | ПО Док.Контрагент = ТелефонКонтрагента.Объект | И (ТелефонКонтрагента.Тип = ЗНАЧЕНИЕ(Перечисление.ТипыКонтактнойИнформации.Телефон)) | И (ТелефонКонтрагента.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ТелефонКонтрагента)) | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК АдресСклада | ПО Док.Склад = АдресСклада.Объект | И (АдресСклада.Тип = ЗНАЧЕНИЕ(Перечисление.ТипыКонтактнойИнформации.Адрес)) | И (АдресСклада.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ЮрАдресСклада)) | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК ТелефонСклада | ПО Док.Склад = ТелефонСклада.Объект | И (ТелефонСклада.Тип = ЗНАЧЕНИЕ(Перечисление.ТипыКонтактнойИнформации.Телефон)) | И (ТелефонСклада.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ТелефонСклада)) |ГДЕ | Док.Ссылка = &ТекущийДокумент"; Шапка = Запрос.Выполнить().Выбрать(); //Шапка = Запрос.Выполнить().Выгрузить(); //Шапка.Следующий(); ОбластьМакетаШапка = Макет.ПолучитьОбласть("Шапка"); ОбластьМакетаШапка.Параметры.Заголовок = "Договор комиссии № "; ОбластьМакетаШапка.Параметры.ОрганизацияМагазин = СокрЛП(Шапка.ОрганизацияНаименование) + " " + СокрЛП(Шапка.МагазинНаименование); ОбластьМакетаШапка.Параметры.ОрганизацияАдресТелефон = СокрЛП(Шапка.ЮрАдресСклада); ОбластьМакетаШапка.Параметры.ДатаДокумента = Формат(Шапка.ДатаДокумента, "ДФ=""дд ММММ гггг"""); ТабДокумент.Вывести(ОбластьМакетаШапка); Возврат ТабДокумент; КонецФункции |
|||
1
salvator
04.02.14
✎
17:37
|
//Шапка.Следующий();
раскомментируй |
|||
2
Начинающий_13
04.02.14
✎
17:39
|
СПАСИБО ПОШЛО, а раньше выкидывало ошибку. Но я только что выключал программу может завис какой нибудь был.
|
|||
3
salvator
04.02.14
✎
17:42
|
(2) Подозреваю, что метод Следующий() вызывался для
//Шапка = Запрос.Выполнить().Выгрузить(); а это не выборка, а ТЗ |
|||
4
Начинающий_13
04.02.14
✎
17:49
|
НЕ НЕ Это я проверял перед тем как задать вопрос.(Минут 20 пробовал не шло) Комп дохленький ... наперное из за него.
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |