Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Процедура Печать(ТабДок, Ссылка) Экспорт
- //{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
- Макет = Документы.ЗаявкаНаДоставку.ПолучитьМакет("Печать");
- Запрос = Новый Запрос;
- Запрос.Текст =
- "ВЫБРАТЬ
- | ЗаявкаНаДоставку.АдресДоставки,
- | ЗаявкаНаДоставку.Водитель,
- | ЗаявкаНаДоставку.ВремяДоставки,
- | ЗаявкаНаДоставку.Грузополучатель,
- | ЗаявкаНаДоставку.Грузчик1,
- | ЗаявкаНаДоставку.Грузчик2,
- | ЗаявкаНаДоставку.Дата,
- | ЗаявкаНаДоставку.ДатаДоставки,
- | ЗаявкаНаДоставку.Номер,
- | ЗаявкаНаДоставку.ПробегКонечный,
- | ЗаявкаНаДоставку.СтатусДоставки,
- | ЗаявкаНаДоставку.ТелефонКонтактногоЛица,
- | ЗаявкаНаДоставку.ТС
- |ИЗ
- | Документ.ЗаявкаНаДоставку КАК ЗаявкаНаДоставку
- | ГДЕ
- | ЗаявкаНаДоставку.Ссылка В (&Ссылка) ";
- Запрос2 = Новый Запрос;
- Запрос2.Текст =
- "ВЫБРАТЬ
- | РеализацияТоваров1.Товары.(
- | НомерСтроки,
- | НаименованиеТовара,
- | ЕдИзм,
- | Количество,
- | Цена,
- | Сумма
- | )
- |ИЗ
- | Документ.РеализацияТоваров1 КАК РеализацияТоваров1
- |ГДЕ
- | РеализацияТоваров1.Ссылка В (&ДокументОснование)";
- Запрос.Параметры.Вставить("Ссылка", Ссылка);
- Запрос2.Параметры.Вставить("Ссылка", Ссылка);
- Выборка = Запрос.Выполнить().Выбрать();
- Выборка2 = Запрос2.Выполнить().Выбрать();
- ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
- Шапка = Макет.ПолучитьОбласть("Шапка");
- ОбластьТоварыШапка = Макет.ПолучитьОбласть("ТоварыШапка");
- ОбластьТовары = Макет.ПолучитьОбласть("Товары");
- ТабДок.Очистить();
- ВставлятьРазделительСтраниц = Ложь;
- Пока Выборка.Следующий() ИЛИ Выборка2.Следующий() Цикл
- Если ВставлятьРазделительСтраниц Тогда
- ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
- КонецЕсли;
- ТабДок.Вывести(ОбластьЗаголовок);
- Шапка.Параметры.Заполнить(Выборка);
- ТабДок.Вывести(Шапка, Выборка.Уровень());
- ТабДок.Вывести(ОбластьТоварыШапка);
- ВыборкаТовары = Выборка2.Товары.Выбрать();
- Пока ВыборкаТовары.Следующий() Цикл
- ОбластьТовары.Параметры.Заполнить(ВыборкаТовары);
- ТабДок.Вывести(ОбластьТовары, ВыборкаТовары.Уровень());
- КонецЦикла;
- ВставлятьРазделительСтраниц = Истина;
- КонецЦикла;
- //}}
- КонецПроцедуры
- РезультатЗапроса = Запрос.Выполнить();
- ВыборкаДокументВозвратДенег = РезультатЗапроса.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
- Пока ВыборкаДокументВозвратДенег.Следующий() Цикл
- // Вставить обработку выборки ВыборкаДокументВозвратДенег
- ВыборкаДетальныеЗаписи = ВыборкаДокументВозвратДенег.Выбрать();
- Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
- // Вставить обработку выборки ВыборкаДетальныеЗаписи
- КонецЦикла;
- КонецЦикла;
Add Comment
Please, Sign In to add comment