Имя: Пароль:
1C
1С v8
Вывод на печать
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 пробовал не шло) Комп дохленький ... наперное из за него.