Дипломная работа: Автоматизация проведения и архивации тендеров на примере группы компаний TBN

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
102
ПРИЛОЖЕНИЕ 1
Листинг программного кода
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет = Документы.Тендеры.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Тендеры.Дата,
| Тендеры.Номер,
| Тендеры.Ответственный,
| Тендеры.ЧленКомиссии,
| Тендеры.ТЧ.(
| НомерСтроки,
| Участник,
| ПредлагаемаяУслуга,
| Стоимость,
| Срок,
| Примечание
| )
|ИЗ
| Документ.Тендеры КАК Тендеры
|ГДЕ
| Тендеры.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
103
ОбластьТЧШапка = Макет.ПолучитьОбласть("ТЧШапка");
ОбластьТЧ = Макет.ПолучитьОбласть("ТЧ");
Подвал = Макет.ПолучитьОбласть("Подвал");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьТЧШапка);
ВыборкаТЧ = Выборка.ТЧ.Выбрать();
Пока ВыборкаТЧ.Следующий() Цикл
ОбластьТЧ.Параметры.Заполнить(ВыборкаТЧ);
ТабДок.Вывести(ОбластьТЧ, ВыборкаТЧ.Уровень());
КонецЦикла;
Подвал.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Подвал);
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
104
//}}
КонецПроцедуры
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды,
ПараметрыВыполненияКоманды)
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
ТабДок = Новый ТабличныйДокумент;
Печать(ТабДок, ПараметрКоманды);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
//}}
КонецПроцедуры
Источник: https://baza.diplomsite.ru/previewfile/2012

Смотрите также:

Изложение содержания дела, по которому приняты судебные постановления
_-___-~1
_1-тема-СтрМетал
_10_Эмиль Золя для эл версии