Диплом: Автоматизация документооборота ООО «РЕАЛ»

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
98
| ДоговорКуплиПродажиЮЛ.Покупатель,
| ДоговорКуплиПродажиЮЛ.Продавец,
| ДоговорКуплиПродажиЮЛ.Цена
|ИЗ
| Документ.ДоговорКуплиПродажиЮЛ КАК ДоговорКуплиПродажиЮЛ
|ГДЕ
| ДоговорКуплиПродажиЮЛ.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет = Документы.АктАрендыЮЛ.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
99
| АктАрендыЮЛ.АдресНотариуса,
| АктАрендыЮЛ.ВидОбъекта,
| АктАрендыЮЛ.Дата,
| АктАрендыЮЛ.ДатаПолученияПомещения,
| АктАрендыЮЛ.ДатаСоставленияАкта,
| АктАрендыЮЛ.ДолжностьСотрудника,
| АктАрендыЮЛ.ЕжемесячнаяПлата,
| АктАрендыЮЛ.МестоСоставленияАкта,
| АктАрендыЮЛ.НаименованиеОрганизации,
| АктАрендыЮЛ.Номер,
| АктАрендыЮЛ.ОбщаяПлощадь,
| АктАрендыЮЛ.Собственник,
| АктАрендыЮЛ.СрокОкончанияАренды,
| АктАрендыЮЛ.ТипОрганизации,
| АктАрендыЮЛ.ФИОСотрудника
|ИЗ
| Документ.АктАрендыЮЛ КАК АктАрендыЮЛ
|ГДЕ
| АктАрендыЮЛ.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
100
ТабДок.Вывести(Шапка, Выборка.Уровень());
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет = Документы.ВыполненныеУслуги.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ВыполненныеУслуги.ВидОбъекта,
| ВыполненныеУслуги.Дата,
| ВыполненныеУслуги.ДатаВыполнения,
| ВыполненныеУслуги.Договор,
| ВыполненныеУслуги.Заказ,
| ВыполненныеУслуги.Номер,
| ВыполненныеУслуги.Сантехника,
| ВыполненныеУслуги.СтоимостьУслуги
|ИЗ
| Документ.ВыполненныеУслуги КАК ВыполненныеУслуги
|ГДЕ
| ВыполненныеУслуги.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
101
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры

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

"Автоматизация обработки заявок ООО "Проектно-Строительная Компания"
"Автоматизация процесса аттестации персонала для ООО "Нэт Бай Нэт Холдинг"
"Анализ интернет-активности конкурентов ( на примере конкурентов "Газпром нефть")
"Бухгалтерский учёт и аудит расчётов с подотчётними лицами в организации на примере ООО "ЛОЦ 10""
«Психологическое сопровождение персонала в организации на примере ООО «Крокус»
«Управление ресурсами проекта» (на примере организации ООО «ЛАКОСТЭ»)
Agile-методология в управлении проектами на примере ООО «Ресурсный центр «Академия КлассИнфо»
Aвтoмaтизaция пpoцecca вeдeния инфopмaциoннoй бaзы o дoлжнocтяx и вaкaнcияx c укaзaниeм тpeбoвaний к уpoвню знaний и нaвыкoв кaндидaтoв для гpуппы кaдpoв вoйcкoвoй чacти 3474»
Cовершенствование деловой оценки персонала в организации (на примере ООО "Даймонд кейтеринг развитие")
Cовершенствование управления рентабельности предприятия (на примере гуипп «бендерская типография «полиграфист»)