УТП для Казахстана 2.0.2.5 , 8.3.4.295

Функция ПечатьЛистУчетаСервисногоВыезда()

    Запрос = Новый Запрос;
    Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);
    Запрос.Текст ="ВЫБРАТЬ
                  |    Событие.Контрагент,
                  |    Событие.КонтактноеЛицо,
                  |    Событие.НачалоСобытия,
                  |    Событие.ОкончаниеСобытия,
                  |    Событие.Ответственный,
                  |    Событие.СодержаниеСобытия,
                  |    Событие.Дата,
                  |    РАЗНОСТЬДАТ(Событие.НачалоСобытия, Событие.ОкончаниеСобытия, ЧАС) КАК Часы,
                  |    РАЗНОСТЬДАТ(Событие.НачалоСобытия, Событие.ОкончаниеСобытия, МИНУТА) КАК Минуты,
                  |    РАЗНОСТЬДАТ(Событие.НачалоСобытия, Событие.ОкончаниеСобытия, ЧАС) * 60 КАК РассчитанныеМинуты,
                  |    ВЫБОР
                  |        КОГДА РАЗНОСТЬДАТ(Событие.НачалоСобытия, Событие.ОкончаниеСобытия, ЧАС) * 60 > РАЗНОСТЬДАТ(Событие.НачалоСобытия, Событие.ОкончаниеСобытия, МИНУТА)
                  |            ТОГДА РАЗНОСТЬДАТ(Событие.НачалоСобытия, Событие.ОкончаниеСобытия, ЧАС) - 1
                  |        ИНАЧЕ РАЗНОСТЬДАТ(Событие.НачалоСобытия, Событие.ОкончаниеСобытия, ЧАС)
                  |    КОНЕЦ КАК ИтоговыеЧасы,
                  |    РАЗНОСТЬДАТ(Событие.НачалоСобытия, Событие.ОкончаниеСобытия, МИНУТА) - ВЫБОР
                  |        КОГДА РАЗНОСТЬДАТ(Событие.НачалоСобытия, Событие.ОкончаниеСобытия, ЧАС) * 60 > РАЗНОСТЬДАТ(Событие.НачалоСобытия, Событие.ОкончаниеСобытия, МИНУТА)
                  |            ТОГДА РАЗНОСТЬДАТ(Событие.НачалоСобытия, Событие.ОкончаниеСобытия, ЧАС) - 1
                  |        ИНАЧЕ РАЗНОСТЬДАТ(Событие.НачалоСобытия, Событие.ОкончаниеСобытия, ЧАС) * 60
                  |    КОНЕЦ КАК ИтоговыеМинуты
                  |ПОМЕСТИТЬ ВТСобытие
                  |ИЗ
                  |    Документ.Событие КАК Событие
                  |;
                  |
                  |////////////////////////////////////////////////////////////////////////////////
                  |ВЫБРАТЬ
                  |    КонтактнаяИнформация.Объект,
                  |    КонтактнаяИнформация.Тип,
                  |    КонтактнаяИнформация.Вид,
                  |    КонтактнаяИнформация.Представление КАК Телефон
                  |ПОМЕСТИТЬ ВТКонтактнаяИнформацияТелефон
                  |ИЗ
                  |    РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
                  |ГДЕ
                  |    КонтактнаяИнформация.Объект В
                  |            (ВЫБРАТЬ
                  |                ВТСобытие.Контрагент
                  |            ИЗ
                  |                ВТСобытие
                  |            СГРУППИРОВАТЬ ПО
                  |                ВТСобытие.Контрагент)
                  |    И КонтактнаяИнформация.Тип = ЗНАЧЕНИЕ(Перечисление.ТипыКонтактнойИнформации.Телефон)
                  |    И КонтактнаяИнформация.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ТелефонКонтрагента)
                  |;
                  |
                  |////////////////////////////////////////////////////////////////////////////////
                  |ВЫБРАТЬ
                  |    КонтактнаяИнформация.Объект,
                  |    КонтактнаяИнформация.Тип,
                  |    КонтактнаяИнформация.Вид,
                  |    КонтактнаяИнформация.Представление КАК Адрес
                  |ПОМЕСТИТЬ ВТКонтактнаяИнформацияАдрес
                  |ИЗ
                  |    РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
                  |ГДЕ
                  |    КонтактнаяИнформация.Объект В
                  |            (ВЫБРАТЬ
                  |                ВТСобытие.Контрагент
                  |            ИЗ
                  |                ВТСобытие
                  |            СГРУППИРОВАТЬ ПО
                  |                ВТСобытие.Контрагент)
                  |    И КонтактнаяИнформация.Тип = ЗНАЧЕНИЕ(Перечисление.ТипыКонтактнойИнформации.Адрес)
                  |    И КонтактнаяИнформация.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ЮрАдресКонтрагента)
                  |;
                  |
                  |////////////////////////////////////////////////////////////////////////////////
                  |ВЫБРАТЬ
                  |    ВТСобытие.Контрагент,
                  |    ВТСобытие.Дата,
                  |    ВТСобытие.НачалоСобытия КАК Начало,
                  |    ВТСобытие.ОкончаниеСобытия КАК Окончание,
                  |    ВТСобытие.Ответственный,
                  |    ВТСобытие.КонтактноеЛицо,
                  |    ВТКонтактнаяИнформацияТелефон.Телефон,
                  |    ВТКонтактнаяИнформацияАдрес.Адрес,
                  |    ВТСобытие.СодержаниеСобытия КАК Содержание,
                  |    ВТСобытие.ИтоговыеЧасы,
                  |    ВТСобытие.ИтоговыеМинуты
                  |ИЗ
                  |    ВТСобытие КАК ВТСобытие
                  |        ЛЕВОЕ СОЕДИНЕНИЕ ВТКонтактнаяИнформацияТелефон КАК ВТКонтактнаяИнформацияТелефон
                  |        ПО ВТСобытие.Контрагент = ВТКонтактнаяИнформацияТелефон.Объект
                  |        ЛЕВОЕ СОЕДИНЕНИЕ ВТКонтактнаяИнформацияАдрес КАК ВТКонтактнаяИнформацияАдрес
                  |        ПО ВТСобытие.Контрагент = ВТКонтактнаяИнформацияАдрес.Объект";

                  ЗапросСобытие=Запрос.Выполнить().Выбрать();
                  
                  Макет=ПолучитьМакет("ЛистУчетаСервисногоВыезда");
                      // Получаем области макета для вывода в табличный документ
                    

    Заголовок        = Макет.ПолучитьОбласть("Заголовок");
    Заказчик         = Макет.ПолучитьОбласть("Заказчик");
    ПереченьРабот    = Макет.ПолучитьОбласть("ПереченьРабот");
    Условия          = Макет.ПолучитьОбласть("Условия");
    Подвал           = Макет.ПолучитьОбласть("Подвал");    
            
    ТабДокумент = Новый ТабличныйДокумент;
    
    // Зададим параметры макета по умолчанию
    ТабДокумент.ПолеСверху              = 10;
    ТабДокумент.ПолеСлева               = 0;
    ТабДокумент.ПолеСнизу               = 0;
    ТабДокумент.ПолеСправа              = 0;
    ТабДокумент.РазмерКолонтитулаСверху = 10;
    ТабДокумент.ОриентацияСтраницы      = ОриентацияСтраницы.Ландшафт;
    
    
    
    Заголовок.Параметры.Ответственный = ЗапросСобытие.Ответственный;
    Заголовок.Параметры.Дата = Формат(ЗапросСобытие.Дата,"ДЛФ=DD");
    Заголовок.Параметры.Начало = ЗапросСобытие.Начало;
    Заголовок.Параметры.Окончание= ЗапросСобытие.Окончание;
    
    ТабДокумент.Вывести(Заголовок);
    
    Заказчик.Параметры.Контрагент = ЗапросСобытие.Контрагент;
    Заказчик.Параметры.Телефон = ЗапросСобытие.Телефон;
    Заказчик.Параметры.Адрес = ЗапросСобытие.Адрес;
    Заказчик.Параметры.КонтактноеЛицо = ЗапросСобытие.КонтактноеЛицо;
    
    ТабДокумент.Вывести(Заказчик);
    
    ПереченьРабот.Параметры.Содержание = ЗапросСобытие.Содержание;
    
    ТабДокумент.Вывести(ПереченьРабот);
    ТабДокумент.Вывести(Условия);
    
    Подвал.Параметры.Ответственный = ЗапросСобытие.Ответственный;
    Подвал.Параметры.Дата = Формат(ЗапросСобытие.Дата,"ДЛФ=DD");
    Подвал.Параметры.Контрагент = ЗапросСобытие.Контрагент;
    
    ТабДокумент.Вывести(Подвал);
    
    
    Возврат ТабДокумент;
    
    
КонецФункции // ПечатьЛистУчетаСервисногоВыезда()

вроде все правильно написал макет формируется с формы документа но ячейки все пустые

ещё добавь, что в коносли запросов виден нужный результат

>Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);
а это зачем?

(3) чтоб взять данные с формы документа

(4) ну, допустим, не с формы, но взял. и даже параметр установил. зачем?

(4)Так ты не к форме а к объекту обращаешься. И если док новый и не записан, то ты получишь как раз фигу с маслом

(6) в прежней теме всё разжёвано

(6) док записан и проведен . пусто

(5) да емае сотый раз обясняю как Я ПО ДРУГОМУ ПОЛУЧУ ДАННЫЕ или свяжу с документом

(7) в какой

нормальный совет не можете дать

(9) установка параметра запроса - отличный план. запрос-то знает, что с ним потом делать?

(12) запрос правильный. получаю данные именно по этому запросу. закидываю их на макет и вывожу неужели это не понятно

эм. я один не вижу .следующий() из выборки?

(13) запрос неправильный. ты только думаешь, что закидываешь их куда-то там -> (14)

(15) но в косноли то показывает верно

(15) и отладчик показывает данные

(14) хэх помог решить)))

можешь не благодарить

(19) ну да конечно, дело в запросе хаха)))

(20) не спорь с бородатыми. на (3) и (12) ещё не ответил

поправьте, если не прав, но я категорически избегал бы конструкций "где в (выбрать из)".

(22) а что вместо использовать?

(22) поправлять не буду. ему надо просто выбрать из трёх таблиц без всяких изощрений

(24) хотелось бы конкретики хотя бы в общих чертах - я прав или нет?)

(24) ну вот макет формирует только по одному документу((( хоть какой из списка не открывал

(25) в общем случае нет. мало ли какая задача встретится. здесь - явный г-код. особенно конструкция вида
в (выбрать [ни фига не различные] контрагенты событий)

(26) как ты этого добился, и зачем твоему запросу параметр?

(27) надо было добавить в моем месседже, что абстрагируясь от конкретного запроса ТС.

(28) я незнаю. утсановил потому что другие макеты которые выводят данные в Ворд установлен этот параметр. вот и решил что этот параметр и связывает

(26) сложно ванговать Ваши цели и задачи, но выборка из результатов запроса - это  коллекция. и, о чудо, эту коллекцию иногда можно да и нужно перебирать.

(30) ох ты ж)))

(31) как

в запросе ставил Событие.Ссылка=&Ссылка он ничего не выводил

(33) предлагаю Вам взять методички в руки и изучать мат.часть.
(27) ну иногда бывают ситуации, когда приходиться так делать. но не лучше ли соединением? хоть проиндексировать большие выборки можно

(29) найти производителей яблок, которые также производят и пылесосы

(36) а может и соединением. тут надо погружаться в пучины планов запросов. меня как-то миновало ;)

(35) методичку то прочел ничего толкового было бы, я б сюда не писал

(37) я знаю тебе как всегда лень))

(35) ну ж и так соединяю ВТ в конце

(38) да ладно) видимо быстрый старт в профессию не удался)

(40) ну уж если в конце соединяете, тогда ок)))

(36) шутку оценил, но не понял привязки к сообщению)

(41) так вот поможете исправить запрос?

(43) это была не шутка, частный пример удобства использования <в (выбрать)

(44) выбрать из твой документ левое регистр левое регистр. и всё

(45) хм. об этом не подумал
(44) в скайп стукнись. будет свободно - помогу

(41) ну да я ж тока полгода как начал))) учебники прочел . легкие отчеты делал

(46) я так понимаю советуете выбрать реквизиты с документа потом с регистра сведений и указать условие ну или соединение. ну дмаю это поможет ускорить запрос. но поможет ли это выбрать нужные данные а не выводить все нескольько тыс документов

(49) я советую взять три таблицы, соединить их вместе, наложить условие про текущий документ, выбрать из этой пачки нужные поля
кидайте в меня какашками

(50) у я и так делаю же. в первом выбираю поля доступные с этого документа. во втором получаю телефон, в третьем адрес. а в последнем их соединяю чтоб получить адрес и телефон того контрагента

помещаю первые 3 в ВТ чтоб ускорить запрос

(52) воот

+(53) а в эти ВТ ты складываешь кучу лишнего

консоль запросов не предлагали ещё?

(55) посостязаемся в оригинальности предложения? у тебя хорошая фора ;)

(56) какая фора? ты уже предложил

(50) (57) так получилось. Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка); + в запросе прописал Где Событие.Ссылка=&ТекущийДокумент

(56)