Имя: Пароль:
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 пробовал не шло) Комп дохленький ... наперное из за него.
Здесь можно обсудить любую тему при этом оставаясь на форуме для 1Сников, который нужен для работы. Ymryn