Е - норма дисконта;

K - капиталовложения при внедрении программного продукта.

В соответствии с формулой (6.25) чистый дисконтированный доход за 4 года использования программного продукта (срок до морального старения данной разработки) при норме дисконта Е = 20% составит:

Делаем вывод, что ЧДД - положителен, т.е. проект эффективен.

Внутреннюю норму доходности проекта определяют по формуле

, (6.26)

где - максимальное значение внутренней нормы дисконта, при которой ЧДД является положительной величиной (ЧДД > 0);

- минимальное значение внутренней нормы дисконта, при которой ЧДД является отрицательной величиной (ЧДД < 0);

- ЧДД, вычисленный по формуле (6.26) при подстановке нормы дисконта ;

- ЧДД, вычисленный по формуле (6.26) при подстановке нормы дисконта.

Определим внутреннюю норму доходности используя формулу (6.26).

Предполагаем, что Евн лежит в диапазоне 40 ... 50%. При норме дисконта Евн = 40% ЧДД = 1824,95 руб. (положителен), при Евн = 50% получаем ЧДД = -664,71руб. (отрицателен).

Сужая диапазон нахождения Евн до 47 ... 48%, уточним значение ВНД

Срок окупаемости проекта можно найти по формуле

, (6.27)

гдеN - максимальное количество лет, прошедших с начала эксплуатации программного продукта, в течение которых, величина дохода от его использования не превысила величины капиталовложения при внедрении программного продукта;

- величины приведенных (дисконтированных) годовых эффектов за j-й год, прошедший с начала эксплуатации программного продукта, вычисленные по формуле (6.27) при подстановке нормы дисконта E = 20%.

Рассчитаем срок окупаемости проекта.

В соответствии с формулой (6.21) величины приведенных (дисконтированных) годовых эффектов по годам расчетного периода равны:

Величина дохода за первый год меньше величины капиталовложений (17022,71 руб.).

Величина дохода за первые 2 года составит

что больше величины капиталовложений (17022,71 руб.).

Тогда в соответствии с формулой (6.27) срок окупаемости проекта составит

6.5 Основные технико-экономические показатели проекта

Основными технико-экономическими показателями проекта являются следующие величины: итоговая трудоемкость разработки, Полные затраты на создание программного продукта, годовой эффект от внедрения программного продукта, чистый дисконтированный доход за 4 года использования программного продукта, внутренняя норма доходности, и срок окупаемости проекта. Значения всех перечисленных показателей и ранее рассчитанных в главе представлены в таблицах 6.5 и 6.6.

Таблица 6.5 ? Экономические показатели проекта

Статьи затрат	Единицы измерения	Значения
Основная заработная плата	руб.	10197,96
Дополнительная заработная плата	руб.	2039,59
Отчисления на социальные нужды	руб.	4185,15
Затраты на потребляемую электроэнергию	руб.	256,47
Расходы на материалы и запасные части	руб.	200
Затраты на техническое обслуживание и текущий ремонт	руб.	143,54
Итого	17022,71

Таблица 6.6 ? Основные технико-экономические показатели проекта

Основные характеристики	Единицы измерения	Проект
Итоговая трудоемкость разработки	чел.-ч.	295,40
Полные затраты на создание программного продукта	руб.	17022,71
Годовой эффект от внедрения программного продукта	руб.	14185,59
Чистый дисконтированный доход за 4 года использования программного продукта	руб.	9362,68
Внутренняя норма доходности	%	46,82
Срок окупаемости проекта	год	2,76

Выводы по главе

Необходимость облегчить работу учебного отдела привели к созданию специальной подсистемы «1С: Центр Сертифицированного Образования».

На выполнение своих обязанностей без автоматизации специалист учебного отдела тратил в среднем 16,3 ч. в месяц. После внедрения программного продукта ожидается, что затраты времени на эти обязанности составят 3,26 ч. в месяц, что на 7,4% меньше чем без использования программного продукта. Итоговая трудоемкость разработки составила 295,4 чел.-ч.

С учётом всех показателей полные затраты на создание программного продукта составили 17022,71 руб.

Годовые затраты трех специалистов при ручной обработке информации (затраты времени на ручную обработку информации составляют 16,3 ч в месяц) составляют 13003,49 руб., при автоматизированной обработке информации (затраты времени 3,26 ч в месяц) они равны 2600,72 руб., что практически в 5 раз меньше чем при ручной обработке.

ЗАКЛЮЧЕНИЕ

Крупные компании стремятся моментально реализовать технические новшества в аппаратных средствах, однако для успешной реализации крупных систем управления требуется применить нестандартный подход, творческое решение. Использование основ эргономики при проектировании, реализации и внедрении системы управления позволит решить многие «психологические» и «технологические» проблемы предприятий.

В результате проделанной работы была создана информационная подсистема, позволяющая автоматизировать процесс создания отчетности на предприятии НОУ ДПО «Бизнес Образование». Стало возможным снижение числа служащих, занятых в процессе. Значительно уменьшилось количество допускаемых ошибок при проведении стандартных операций.

Проведен диагностический анализ предприятия, выявлены основные направления деятельности организации и пути их развития. На основании полученных данных были выявлены несколько проблемных ситуаций, одну из которых и призван решить данный дипломный проект.

На основе анализа АСУ предприятия были определенны основные составляющие обеспечивающей и функциональной подсистемы, и место, занимаемое в этой системе разрабатываемым программным продуктом.

На этапе проектирования информационной подсистемы было предложено обоснование необходимой автоматизации, описана функциональная структура подсистемы и среда разработки. В ходе проектирования информационной подсистемы учета построены инфологическая и даталогическая модели и дано их описание.

Описание программного продукта затронуло условие применения, а именно требования, предъявляемые к подсистеме, описание применения, руководство пользователя, в котором рассмотрен также контрольный пример работы программы.

В разделе «Безопасность и экологичность проекта» описаны общая характеристика опасных и вредных факторов на рабочем месте, мероприятия по обеспечению безопасности на рабочем месте, расчет искусственного освещения и заземления системного блока оператора.

Проводится техническо-экономическое обоснование проекта, рассчитываются основные технико-экономические показатели проекта.

Положительный эффект от внедрения информационной подсистемы заключается в следующем:

- автоматизация процесса составления отчетности по обучению на авторских курсах фирмы «1С» - сокращение трудозатратности 80%, сокращение ошибок - 90%;

- автоматизация свода показателей, применяемых для расчета сдельной оплаты труда - сокращение трудозатратности процесса начисления сдельной заработной платы - 40%.

Перспективой развития информационной подсистемы является её интегрирование на других предприятиях отрасли, а так же использование в открываемых впоследствии филиалах предприятия НОУ ДПО «Бизнес Образование».

БИБЛИОГРАФИЧЕСКИЙ СПИСОК

1. Павлов, А.А., Гриша, С.Н., Томашевский, В.Н. «Основы системного анализа и проектирования АСУ» [Текст]/ Под общ. ред. А.А. Павлова. - К.:Высш.шк., 2003. - 367 с.

2. Мамиконов, А.Г. «Проектирование АСУ»: Учебник для спец. «АСУ» вузов. [Текст]/ А.Г. Мамиконов. - М.: Высш. шк., 1997. -303 с.

3. Радченко, М.Г. «1С:Предприятие 8.2 Практическое пособие разработчика. Примеры и типовые приемы» [Текст]/ М.Г. Радченко, Е.Ю. Хрусталева. - М.: ООО «1С: Паблишинг», 2009. - 874 с.

4. Богачева, Т.Г. «1С: Предприятие 8.0 Управление торговлей в вопросах и ответах: Практическое пособие» [Текст]/ Т.Г. Богачева. - М.: ООО «1С: Паблишинг», 2004. - 252 с.

5. Хрусталева, Е.Ю. «Разработка сложных отчетов в 1С: Предприятие 8. Схема компоновки данных» [Текст]/ Е.Ю. Хрусталева. - М.: ООО «1С: Паблишинг», 2008. - 513 с.

6. Габец, А.П., Гончаров, Д.И., Козырев, Д.В., Радченко, М.Г. «Профессиональная разработка в системе 1С: Предприятие 8» [Текст]/ Под ред. М.Г. Радченко. - М.: ООО «1С: Паблишинг»; СПб.: Питер, 2006. - 808 с.

7. Габец, А.П., Гончаров, Д.И. «1С: Предприятие 8.0. Простые примеры разработки» [Текст]/ Под ред. А.П. Габец. - М.: ООО «1С: Паблишинг», 2005. - 420 с.

8. Кашаев, С.В. «1С: Предприятие 8. Учимся программировать на примерах» [Текст]/ С.В. Кашаев. -СПб.: БВХ-Петербург, 2008. - 336 с.

9. Сорокин, А.А. «Проектирование автоматизированных систем обработки информации и управления»: учебное пособие [Текст]/ А.А. Сорокин. Часть 2. - Ставрополь: СевКавГТУ, 2009. - 293 с.

10. Сорокин, А.А. «Проектирование автоматизированных систем обработки информации и управления»: учебное пособие [Текст]/ А.А. Сорокин. Часть 3. - Ставрополь: СевКавГТУ, 2010. - 362 с.

11. Сорокин, А.А. «Проектирование автоматизированных систем обработки информации и управления»: учебное пособие [Текст]/ А.А. Сорокин. Часть 1. - Ставрополь: СевКавГТУ, 2009. - 248 с.

12. Бойко, В.В., Савинков, В.М. «Проектирование информационной базы автоматизированной системы на основе СУБД» [Текст]/ В.В. Бойко. М.: Финансы и статистика, 2005г. - 238 с.

13. Волков, С.И., Романов А.И. «Организация машинной обработки экономической информации» [Текст]/ С.И. Волков. - М.: Финансы и статистика, 2003. - 315 с.

14. Смирнова, Г.Н. «Проектирование экономических информационных систем»: учебник [Текст]/ Г.Н. Смирнова, А.А. Сорокин, Ю. Ф. Тельнов; под ред. Ю.Ф. Тельнова. - М.: Финансы и статистика, 2001. - 512 с.

15. Вендров, А.М. «Проектирование программного обеспечения экономических систем»: учебник [Текст]/ А.М. Вендров. - М.: Финансы и статистика, 2000. - 352 с.

16. Баронов, В.В. «Автоматизация управления предприятием» [Текст]/ В.В. Баронов. - М.: ИНФА-М, 2000. - 239 с.

17. Трубилин, И.Т., Семенов, М.И., Лойко, В.И., Барановская, Т.П. Автоматизированные информационные технологии в экономике [Текст]/ И.Т. Трибулин, М.И. Семенов /Под ред. В.И. Лойко, Т.П. Барановская. - М.: Экономика, 2007. - 112 с.

18. Федоренко, Н.П., Карибский, В.В. Справочник разработчика АСУ [Текст] /Под ред. Федоренко Н.П. и Карибского В.В., М.: Экономика, 2007. - 410 с.

19. Бузаева, М.В., Козлова В.В. Безопасность и экологичность объекта дипломного проекта [Текст]/ М.В. Бузаева, В.В. Козлова/Под ред. В.В. Савиных. - Ульяновск: УлГТУ, 2005.-52 с.

20. Зеленков, Ю.А. «Введение в базы данных» [Текст]/Ю.А. Зеленков. Центр Интернет ЯрГУ, 2006. - 352 с.

ПРИЛОЖЕНИЕ А. ЛИСТИНГ ПРОГРАММЫ

Процедура «ВидимостьЭлементовФормы» документа «Событие»

Процедура ВидимостьЭлементовФормы()

//Обучение

Если (ВидСобытия = Перечисления.ВидыСобытий.ПрошелОбучение) Тогда

ЭлементыФормы.Панель1.Страницы.Обучение.Видимость = Истина;

ЭлементыФормы.НазваниеКурса.Видимость= Истина;

ЭлементыФормы.НазваниеКурса_ПолеВвода.Видимость= Истина;

Иначе

ЭлементыФормы.Панель1.Страницы.Обучение.Видимость = Ложь;

ЭлементыФормы.Панель1.Страницы.Прочие.Видимость= Истина;

КонецЕсли;

НаименованиеКонтрагента = Контрагент;

Результат = Справочники.Контрагенты.НайтиПоНаименованию(НаименованиеКонтрагента);

Если Результат.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ФизЛицо Тогда

ЭлементыФормы.ПанельКонтрагента.Страницы.СтраницаФизЛицо.Видимость = Истина;

ЭлементыФормы.ПанельКонтрагента.Страницы.Контрагенты.Видимость = Ложь;

КонецЕсли;

//Обучение

КонецПроцедуры

Процедура «ЗаписьВРегистрОбучение» документа «Событие»

Процедура ЗаписьВРегистрОбучение()

НаборЗаписей = РегистрыСведений.Обучение.СоздатьНаборЗаписей();

НоваяЗапись = НаборЗаписей.Добавить();

НоваяЗапись.Период= Дата;

НоваяЗапись.НазваниеКурса = НазваниеКурса;

НоваяЗапись.ФамилияПреподавателя = Преподаватель;

НоваяЗапись.ДатаНачала= НачалоСобытия;

НоваяЗапись.ДатаОкончания= ОкончаниеСобытия;

//Проверка принадлежности контрагента к физическому или юридическому лицам

//И в зависимости от результата, запись в регистр

НаименованиеКонтрагента = Контрагент;

РезультатПоиска = Справочники.Контрагенты.НайтиПоНаименованию(НаименованиеКонтрагента);

Если РезультатПоиска.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ФизЛицо Тогда

НоваяЗапись.ФИОСлушателя = Контрагент;

НоваяЗапись.СерияПаспорта= РезультатПоиска.СерияПаспорта;

НоваяЗапись.НомерПаспорта= РезультатПоиска.НомерПаспорта;

НоваяЗапись.ДатаРождения= ДатаРожденияКонтрагента;

Иначе

НоваяЗапись.ФИОСлушателя= КонтактноеЛицо;

Запрос = Новый Запрос;

Запрос.УстановитьПараметр("КонтактноеЛицо",КонтактноеЛицо.КонтактноеЛицо);

Запрос.Текст = "Выбрать

|ПаспортныеДанныеФизЛиц.ДокументСерия КАК ДокументСерия,

|ПаспортныеДанныеФизЛиц.ДокументНомер КАК ДокументНомер

|ИЗ

| РегистрСведений.ПаспортныеДанныеФизЛиц КАК ПаспортныеДанныеФизЛиц

|ГДЕ

|ПаспортныеДанныеФизЛиц.ФизЛицо=&КонтактноеЛицо";

Выборка = Запрос.Выполнить().Выбрать();

Сообщить(Выборка.Количество());

Пока Выборка.Следующий()>0 Цикл

НоваяЗапись.СерияПаспорта = Строка(Выборка.ДокументСерия);

НоваяЗапись.НомерПаспорта= Строка(Выборка.ДокументНомер);

КонецЦикла;

НаименованиеКонтактногоЛица = КонтактноеЛицо;

РезультатПоиска2 = Справочники.КонтактныеЛицаКонтрагентов.НайтиПоНаименованию(НаименованиеКонтактногоЛица);

НоваяЗапись.ДатаРождения = РезультатПоиска2.ДатаРождения;

НоваяЗапись.МестоРаботы= РезультатПоиска2.Владелец;

КонецЕсли;

НаборЗаписей.Записать(Ложь);

КонецПроцедуры

Процедура «ВывестиОтчет» отчета «По прошедшим обучение»

Процедура ВывестиОтчет()

Запрос = Новый Запрос;

Запрос.УстановитьПараметр("ДатаНачала",ЭлементыФормы.ДатаНачала.Значение);

Запрос.УстановитьПараметр("ДатаОкончания",ЭлементыФормы.ДатаОкончания.Значение);

Запрос.УстановитьПараметр("Преподаватель",ЭлементыФормы.Преподаватель.Значение);

Запрос.УстановитьПараметр("НазваниеКурса",ЭлементыФормы.НазваниеКурса.Значение);

Если НЕ ЗначениеЗаполнено(ЭтаФорма.ДатаНачала) И

НЕЗначениеЗаполнено(ЭтаФорма.ДатаОкончания) И

НЕЗначениеЗаполнено(ЭтаФорма.Преподаватель) И

НЕ ЗначениеЗаполнено(ЭтаФорма.НазваниеКурса) Тогда

Запрос.Текст = "Выбрать

|Обучение.АртикулМетодическогоПособия КАК Артикул,

| Обучение.НомерСвидетельства КАК НомерСвидетельства,

| Обучение.НазваниеКурса КАК НазваниеКурса,

| Обучение.ФамилияПреподавателя КАК ФамилияПреподавателя,

| Обучение.ДатаНачала КАК ДатаНачала,

| Обучение.ДатаОкончания КАК ДатаОкончания,

| Обучение.ФИОСлушателя КАК ФИОСлушателя,

| Обучение.СерияПаспорта КАК СерияПаспорта,

| Обучение.НомерПаспорта КАК НомерПаспорта,

| Обучение.ДатаРождения КАК ДатаРождения,

| Обучение.МестоРаботы КАК МестоРаботы

| ИЗ

| РегистрСведений.Обучение КАК Обучение";

КонецЕсли;

Если ЗначениеЗаполнено(ЭтаФорма.ДатаНачала) И

НЕЗначениеЗаполнено(ЭтаФорма.ДатаОкончания) И

НЕЗначениеЗаполнено(ЭтаФорма.Преподаватель) И

НЕ ЗначениеЗаполнено(ЭтаФорма.НазваниеКурса) Тогда

Запрос.Текст = "Выбрать

|Обучение.АртикулМетодическогоПособия КАК Артикул,

| Обучение.НомерСвидетельства КАК НомерСвидетельства,

| Обучение.НазваниеКурса КАК НазваниеКурса,

| Обучение.ФамилияПреподавателя КАК ФамилияПреподавателя,

| Обучение.ДатаНачала КАК ДатаНачала,

| Обучение.ДатаОкончания КАК ДатаОкончания,

| Обучение.ФИОСлушателя КАК ФИОСлушателя,

| Обучение.СерияПаспорта КАК СерияПаспорта,

| Обучение.НомерПаспорта КАК НомерПаспорта,

| Обучение.ДатаРождения КАК ДатаРождения,

| Обучение.МестоРаботы КАК МестоРаботы

| ИЗ

| РегистрСведений.Обучение КАК Обучение

|ГДЕ

| Обучение.ДатаНачала =&ДатаНачала";

КонецЕсли;

Если ЗначениеЗаполнено(ЭтаФорма.ДатаНачала) И

ЗначениеЗаполнено(ЭтаФорма.ДатаОкончания) И

НЕЗначениеЗаполнено(ЭтаФорма.Преподаватель) И

НЕ ЗначениеЗаполнено(ЭтаФорма.НазваниеКурса) Тогда

Запрос.Текст = "Выбрать

|Обучение.АртикулМетодическогоПособия КАК Артикул,

| Обучение.НомерСвидетельства КАК НомерСвидетельства,

| Обучение.НазваниеКурса КАК НазваниеКурса,

| Обучение.ФамилияПреподавателя КАК ФамилияПреподавателя,

| Обучение.ДатаНачала КАК ДатаНачала,

| Обучение.ДатаОкончания КАК ДатаОкончания,

| Обучение.ФИОСлушателя КАК ФИОСлушателя,

| Обучение.СерияПаспорта КАК СерияПаспорта,

| Обучение.НомерПаспорта КАК НомерПаспорта,

| Обучение.ДатаРождения КАК ДатаРождения,

| Обучение.МестоРаботы КАК МестоРаботы

| ИЗ

| РегистрСведений.Обучение КАК Обучение

|ГДЕ

| Обучение.ДатаНачала =&ДатаНачала И

|

| Обучение.ДатаОкончания =&ДатаОкончания";

КонецЕсли;

Если ЗначениеЗаполнено(ЭтаФорма.ДатаНачала) И

ЗначениеЗаполнено(ЭтаФорма.ДатаОкончания) И

ЗначениеЗаполнено(ЭтаФорма.Преподаватель) И

НЕ ЗначениеЗаполнено(ЭтаФорма.НазваниеКурса) Тогда

Запрос.Текст = "Выбрать

|Обучение.АртикулМетодическогоПособия КАК Артикул,

| Обучение.НомерСвидетельства КАК НомерСвидетельства,

| Обучение.НазваниеКурса КАК НазваниеКурса,

| Обучение.ФамилияПреподавателя КАК ФамилияПреподавателя,

| Обучение.ДатаНачала КАК ДатаНачала,

| Обучение.ДатаОкончания КАК ДатаОкончания,

| Обучение.ФИОСлушателя КАК ФИОСлушателя,

| Обучение.СерияПаспорта КАК СерияПаспорта,

| Обучение.НомерПаспорта КАК НомерПаспорта,

| Обучение.ДатаРождения КАК ДатаРождения,

| Обучение.МестоРаботы КАК МестоРаботы

| ИЗ

| РегистрСведений.Обучение КАК Обучение

|ГДЕ

| Обучение.ДатаНачала =&ДатаНачала И

| Обучение.ДатаОкончания =&ДатаОкончания И

| Обучение.ФамилияПреподавателя =&Преподаватель";

КонецЕсли;

Если ЗначениеЗаполнено(ЭтаФорма.ДатаНачала) И

ЗначениеЗаполнено(ЭтаФорма.ДатаОкончания) И

ЗначениеЗаполнено(ЭтаФорма.Преподаватель) И

ЗначениеЗаполнено(ЭтаФорма.НазваниеКурса) Тогда

Запрос.Текст = "Выбрать

|Обучение.АртикулМетодическогоПособия КАК Артикул,

| Обучение.НомерСвидетельства КАК НомерСвидетельства,

| Обучение.НазваниеКурса КАК НазваниеКурса,

| Обучение.ФамилияПреподавателя КАК ФамилияПреподавателя,

| Обучение.ДатаНачала КАК ДатаНачала,

| Обучение.ДатаОкончания КАК ДатаОкончания,

| Обучение.ФИОСлушателя КАК ФИОСлушателя,

| Обучение.СерияПаспорта КАК СерияПаспорта,

| Обучение.НомерПаспорта КАК НомерПаспорта,

| Обучение.ДатаРождения КАК ДатаРождения,

| Обучение.МестоРаботы КАК МестоРаботы

| ИЗ

| РегистрСведений.Обучение КАК Обучение

|ГДЕ

| Обучение.ДатаНачала =&ДатаНачала И

|

| Обучение.ДатаОкончания =&ДатаОкончания И

|

| Обучение.ФамилияПреподавателя =&Преподаватель И

|

| Обучение.НазваниеКурса =&НазваниеКурса";

КонецЕсли;

Если НЕ ЗначениеЗаполнено(ЭтаФорма.ДатаНачала) И

НЕЗначениеЗаполнено(ЭтаФорма.ДатаОкончания) И

НЕЗначениеЗаполнено(ЭтаФорма.Преподаватель) И

ЗначениеЗаполнено(ЭтаФорма.НазваниеКурса) Тогда

Запрос.Текст = "Выбрать

|Обучение.АртикулМетодическогоПособия КАК Артикул,

| Обучение.НомерСвидетельства КАК НомерСвидетельства,

| Обучение.НазваниеКурса КАК НазваниеКурса,

| Обучение.ФамилияПреподавателя КАК ФамилияПреподавателя,

| Обучение.ДатаНачала КАК ДатаНачала,

| Обучение.ДатаОкончания КАК ДатаОкончания,

| Обучение.ФИОСлушателя КАК ФИОСлушателя,

| Обучение.СерияПаспорта КАК СерияПаспорта,

| Обучение.НомерПаспорта КАК НомерПаспорта,

| Обучение.ДатаРождения КАК ДатаРождения,

| Обучение.МестоРаботы КАК МестоРаботы

| ИЗ

| РегистрСведений.Обучение КАК Обучение

|ГДЕ

| Обучение.НазваниеКурса =&НазваниеКурса";

КонецЕсли;

Если НЕ ЗначениеЗаполнено(ЭтаФорма.ДатаНачала) И

НЕЗначениеЗаполнено(ЭтаФорма.ДатаОкончания) И

ЗначениеЗаполнено(ЭтаФорма.Преподаватель) И

ЗначениеЗаполнено(ЭтаФорма.НазваниеКурса) Тогда

Запрос.Текст = "Выбрать

|Обучение.АртикулМетодическогоПособия КАК Артикул,

| Обучение.НомерСвидетельства КАК НомерСвидетельства,

| Обучение.НазваниеКурса КАК НазваниеКурса,

| Обучение.ФамилияПреподавателя КАК ФамилияПреподавателя,

| Обучение.ДатаНачала КАК ДатаНачала,

| Обучение.ДатаОкончания КАК ДатаОкончания,

| Обучение.ФИОСлушателя КАК ФИОСлушателя,

| Обучение.СерияПаспорта КАК СерияПаспорта,

| Обучение.НомерПаспорта КАК НомерПаспорта,

| Обучение.ДатаРождения КАК ДатаРождения,

| Обучение.МестоРаботы КАК МестоРаботы

| ИЗ

| РегистрСведений.Обучение КАК Обучение

|ГДЕ

| Обучение.ФамилияПреподавателя =&Преподаватель И

|

| Обучение.НазваниеКурса =&НазваниеКурса";

Конецесли;

Если НЕ ЗначениеЗаполнено(ЭтаФорма.ДатаНачала) И

ЗначениеЗаполнено(ЭтаФорма.ДатаОкончания) И

ЗначениеЗаполнено(ЭтаФорма.Преподаватель) И

ЗначениеЗаполнено(ЭтаФорма.НазваниеКурса) Тогда

Запрос.Текст = "Выбрать

|Обучение.АртикулМетодическогоПособия КАК Артикул,

| Обучение.НомерСвидетельства КАК НомерСвидетельства,

| Обучение.НазваниеКурса КАК НазваниеКурса,

| Обучение.ФамилияПреподавателя КАК ФамилияПреподавателя,

| Обучение.ДатаНачала КАК ДатаНачала,

| Обучение.ДатаОкончания КАК ДатаОкончания,

| Обучение.ФИОСлушателя КАК ФИОСлушателя,

| Обучение.СерияПаспорта КАК СерияПаспорта,

| Обучение.НомерПаспорта КАК НомерПаспорта,

| Обучение.ДатаРождения КАК ДатаРождения,

| Обучение.МестоРаботы КАК МестоРаботы

| ИЗ

| РегистрСведений.Обучение КАК Обучение

|ГДЕ

| Обучение.ДатаОкончания =&ДатаОкончания И

|

| Обучение.ФамилияПреподавателя =&Преподаватель И

|

| Обучение.НазваниеКурса =&НазваниеКурса";

КонецЕсли;

Если НЕ ЗначениеЗаполнено(ЭтаФорма.ДатаНачала) И

ЗначениеЗаполнено(ЭтаФорма.ДатаОкончания) И

НЕЗначениеЗаполнено(ЭтаФорма.Преподаватель) И

НЕ ЗначениеЗаполнено(ЭтаФорма.НазваниеКурса) Тогда

Запрос.Текст = "Выбрать

|Обучение.АртикулМетодическогоПособия КАК Артикул,

| Обучение.НомерСвидетельства КАК НомерСвидетельства,

| Обучение.НазваниеКурса КАК НазваниеКурса,

| Обучение.ФамилияПреподавателя КАК ФамилияПреподавателя,

| Обучение.ДатаНачала КАК ДатаНачала,

| Обучение.ДатаОкончания КАК ДатаОкончания,

| Обучение.ФИОСлушателя КАК ФИОСлушателя,

| Обучение.СерияПаспорта КАК СерияПаспорта,

| Обучение.НомерПаспорта КАК НомерПаспорта,

| Обучение.ДатаРождения КАК ДатаРождения,

| Обучение.МестоРаботы КАК МестоРаботы

| ИЗ

| РегистрСведений.Обучение КАК Обучение

|ГДЕ

| Обучение.ДатаОкончания =&ДатаОкончания";

КонецЕсли;

Если НЕ ЗначениеЗаполнено(ЭтаФорма.ДатаНачала) И

НЕЗначениеЗаполнено(ЭтаФорма.ДатаОкончания) И

ЗначениеЗаполнено(ЭтаФорма.Преподаватель) И

НЕ ЗначениеЗаполнено(ЭтаФорма.НазваниеКурса) Тогда

Запрос.Текст = "Выбрать

|Обучение.АртикулМетодическогоПособия КАК Артикул,

| Обучение.НомерСвидетельства КАК НомерСвидетельства,

| Обучение.НазваниеКурса КАК НазваниеКурса,

| Обучение.ФамилияПреподавателя КАК ФамилияПреподавателя,

| Обучение.ДатаНачала КАК ДатаНачала,

| Обучение.ДатаОкончания КАК ДатаОкончания,

| Обучение.ФИОСлушателя КАК ФИОСлушателя,

| Обучение.СерияПаспорта КАК СерияПаспорта,

| Обучение.НомерПаспорта КАК НомерПаспорта,

| Обучение.ДатаРождения КАК ДатаРождения,

| Обучение.МестоРаботы КАК МестоРаботы

| ИЗ

| РегистрСведений.Обучение КАК Обучение

|ГДЕ

| Обучение.Преподаватель =&Преподаватель";

КонецЕсли;

Если ЗначениеЗаполнено(ЭтаФорма.ДатаНачала) И

НЕЗначениеЗаполнено(ЭтаФорма.ДатаОкончания) И

НЕЗначениеЗаполнено(ЭтаФорма.Преподаватель) И

ЗначениеЗаполнено(ЭтаФорма.НазваниеКурса) Тогда

Запрос.Текст = "Выбрать

|Обучение.АртикулМетодическогоПособия КАК Артикул,

| Обучение.НомерСвидетельства КАК НомерСвидетельства,

| Обучение.НазваниеКурса КАК НазваниеКурса,

| Обучение.ФамилияПреподавателя КАК ФамилияПреподавателя,

| Обучение.ДатаНачала КАК ДатаНачала,

| Обучение.ДатаОкончания КАК ДатаОкончания,

| Обучение.ФИОСлушателя КАК ФИОСлушателя,

| Обучение.СерияПаспорта КАК СерияПаспорта,

| Обучение.НомерПаспорта КАК НомерПаспорта,

| Обучение.ДатаРождения КАК ДатаРождения,

| Обучение.МестоРаботы КАК МестоРаботы

| ИЗ

| РегистрСведений.Обучение КАК Обучение

|ГДЕ

| Обучение.ДатаНачала =&ДатаНачала И

|

| Обучение.НазваниеКурса =&НазваниеКурса";

КонецЕсли;

Если ЗначениеЗаполнено(ЭтаФорма.ДатаНачала) И

НЕЗначениеЗаполнено(ЭтаФорма.ДатаОкончания) И

ЗначениеЗаполнено(ЭтаФорма.Преподаватель) И

НЕ ЗначениеЗаполнено(ЭтаФорма.НазваниеКурса) Тогда

Запрос.Текст = "Выбрать

|Обучение.АртикулМетодическогоПособия КАК Артикул,

| Обучение.НомерСвидетельства КАК НомерСвидетельства,

| Обучение.НазваниеКурса КАК НазваниеКурса,

| Обучение.ФамилияПреподавателя КАК ФамилияПреподавателя,

| Обучение.ДатаНачала КАК ДатаНачала,

| Обучение.ДатаОкончания КАК ДатаОкончания,

| Обучение.ФИОСлушателя КАК ФИОСлушателя,

| Обучение.СерияПаспорта КАК СерияПаспорта,

| Обучение.НомерПаспорта КАК НомерПаспорта,

| Обучение.ДатаРождения КАК ДатаРождения,

| Обучение.МестоРаботы КАК МестоРаботы

| ИЗ

| РегистрСведений.Обучение КАК Обучение

|ГДЕ

| Обучение.ДатаНачала =&ДатаНачала И

|

| Обучение.ФамилияПреподавателя =&Преподаватель";

КонецЕсли;

Если НЕ ЗначениеЗаполнено(ЭтаФорма.ДатаНачала) И

ЗначениеЗаполнено(ЭтаФорма.ДатаОкончания) И

ЗначениеЗаполнено(ЭтаФорма.Преподаватель) И

НЕ ЗначениеЗаполнено(ЭтаФорма.НазваниеКурса) Тогда

Запрос.Текст = "Выбрать

|Обучение.АртикулМетодическогоПособия КАК Артикул,

| Обучение.НомерСвидетельства КАК НомерСвидетельства,

| Обучение.НазваниеКурса КАК НазваниеКурса,

| Обучение.ФамилияПреподавателя КАК ФамилияПреподавателя,

| Обучение.ДатаНачала КАК ДатаНачала,

| Обучение.ДатаОкончания КАК ДатаОкончания,

| Обучение.ФИОСлушателя КАК ФИОСлушателя,

| Обучение.СерияПаспорта КАК СерияПаспорта,

| Обучение.НомерПаспорта КАК НомерПаспорта,

| Обучение.ДатаРождения КАК ДатаРождения,

| Обучение.МестоРаботы КАК МестоРаботы

| ИЗ

| РегистрСведений.Обучение КАК Обучение

|ГДЕ

| Обучение.ДатаОкончания =&ДатаОкончания И

|

| Обучение.ФамилияПреподавателя =&Преподаватель";

КонецЕсли;

Если НЕ ЗначениеЗаполнено(ЭтаФорма.ДатаНачала) И

ЗначениеЗаполнено(ЭтаФорма.ДатаОкончания) И

НЕЗначениеЗаполнено(ЭтаФорма.Преподаватель) И

ЗначениеЗаполнено(ЭтаФорма.НазваниеКурса) Тогда

Запрос.Текст = "Выбрать

|Обучение.АртикулМетодическогоПособия КАК Артикул,

| Обучение.НомерСвидетельства КАК НомерСвидетельства,

| Обучение.НазваниеКурса КАК НазваниеКурса,

| Обучение.ФамилияПреподавателя КАК ФамилияПреподавателя,

| Обучение.ДатаНачала КАК ДатаНачала,

| Обучение.ДатаОкончания КАК ДатаОкончания,

| Обучение.ФИОСлушателя КАК ФИОСлушателя,

| Обучение.СерияПаспорта КАК СерияПаспорта,

| Обучение.НомерПаспорта КАК НомерПаспорта,

| Обучение.ДатаРождения КАК ДатаРождения,

| Обучение.МестоРаботы КАК МестоРаботы

| ИЗ

| РегистрСведений.Обучение КАК Обучение

|ГДЕ

| Обучение.ДатаОкончания =&ДатаОкончания И

|

| Обучение.НазваниеКурса =&НазваниеКурса";

КонецЕсли;

Если ЗначениеЗаполнено(ЭтаФорма.ДатаНачала) И

ЗначениеЗаполнено(ЭтаФорма.ДатаОкончания) И

НЕЗначениеЗаполнено(ЭтаФорма.Преподаватель) И

ЗначениеЗаполнено(ЭтаФорма.НазваниеКурса) Тогда

Запрос.Текст = "Выбрать

|Обучение.АртикулМетодическогоПособия КАК Артикул,

| Обучение.НомерСвидетельства КАК НомерСвидетельства,

| Обучение.НазваниеКурса КАК НазваниеКурса,

| Обучение.ФамилияПреподавателя КАК ФамилияПреподавателя,

| Обучение.ДатаНачала КАК ДатаНачала,

| Обучение.ДатаОкончания КАК ДатаОкончания,

| Обучение.ФИОСлушателя КАК ФИОСлушателя,

| Обучение.СерияПаспорта КАК СерияПаспорта,

| Обучение.НомерПаспорта КАК НомерПаспорта,

| Обучение.ДатаРождения КАК ДатаРождения,

| Обучение.МестоРаботы КАК МестоРаботы

| ИЗ

| РегистрСведений.Обучение КАК Обучение

|ГДЕ

| Обучение.ДатаНачала =&ДатаНачала

|

| Обучение.ДатаОкончания =&ДатаОкончания

|

| Обучение.НазваниеКурса =&НазваниеКурса";

КонецЕсли;

Результат = Запрос.Выполнить().Выбрать();

ТабДок = ЭлементыФормы.ДокументРезультат;

Макет = Отчеты.ОтчетПоПрошедшимОбучение.ПолучитьМакет("Макет");

//Заголовок

Область = Макет.ПолучитьОбласть("Заголовок");

ТабДок.Вывести(Область);

//ШапкаТаблицы

Область = Макет.ПолучитьОбласть("ШапкаТаблицы");

ТабДок.Вывести(Область);

//Строка

Пока Результат.Следующий() Цикл

Область = Макет.ПолучитьОбласть("Строка");

Область.Параметры.АртикулМетодическогоПособия = Результат.Артикул;

Область.Параметры.НомерСвидетельства = Результат.НомерСвидетельства;

Область.Параметры.НазваниеКурса = Результат.НазваниеКурса;

Область.Параметры.ФамилияПреподавателя = Результат.ФамилияПреподавателя;

Область.Параметры.ДатаНачала = Результат.ДатаНачала;

Область.Параметры.ДатаОкончания = Результат.ДатаОкончания;

Область.Параметры.ФИОСлушателя = Результат.ФИОСлушателя;

Область.Параметры.СерияПаспорта = Результат.СерияПаспорта;

Область.Параметры.НомерПаспорта = Результат.НомерПаспорта;

Область.Параметры.ДатаРождения = Результат.ДатаРождения;

Область.Параметры.МестоРаботы = Результат.МестоРаботы;

ТабДок.Вывести(Область);

КонецЦикла;

ТабДок.ОтображатьСетку = Ложь;

ТабДок.Защита = Ложь;

ТабДок.ТолькоПросмотр = Ложь;

ТабДок.ОтображатьЗаголовки = Ложь;

ТабДок.Показать();

Процедура «ДействияФормыПередачаВExcel» отчета «По прошедшим обучение»

ЗапросРезультат();

Попытка

AppEx = Новый COMОбъект("Excel.Application");

Исключение

Сообщить("Не удалось инициализировать Excel");

Возврат;

КонецПопытки;

Попытка

AppEx.Workbooks.Add();

AppEx.Sheets(1).Columns(1).ColumnWidth = 15;

AppEx.Sheets(1).Cells(1,1).Value = "Артикул методического пособия";

AppEx.Sheets(1).Cells(1,1).Interior.Color = 255045;

AppEx.Sheets(1).Cells(1,1).Font.Bold = 1;

AppEx.Sheets(1).Cells(1,1).WrapText = Истина;

AppEx.Sheets(1).Cells(1,1).Borders.Linestyle = 1;

AppEx.Sheets(1).Columns(2).ColumnWidth = 8;

AppEx.Sheets(1).Cells(1,2).Value = "Номер свидетельства";

AppEx.Sheets(1).Cells(1,2).Interior.Color = 255045;

AppEx.Sheets(1).Cells(1,2).Font.Bold = 1;

AppEx.Sheets(1).Cells(1,2).WrapText = Истина;

AppEx.Sheets(1).Cells(1,2).Borders.Linestyle = 1;

AppEx.Sheets(1).Columns(3).ColumnWidth = 30;

AppEx.Sheets(1).Cells(1,3).Value = "Название курса";

AppEx.Sheets(1).Cells(1,3).Interior.Color = 255045;

AppEx.Sheets(1).Cells(1,3).Font.Bold = 1;

AppEx.Sheets(1).Cells(1,3).WrapText = Истина;

AppEx.Sheets(1).Cells(1,3).Borders.Linestyle = 1;

AppEx.Sheets(1).Columns(4).ColumnWidth = 25;

AppEx.Sheets(1).Cells(1,4).Value = "Преподаватель";

AppEx.Sheets(1).Cells(1,4).Interior.Color = 255045;

AppEx.Sheets(1).Cells(1,4).Font.Bold = 1;

AppEx.Sheets(1).Cells(1,4).WrapText = Истина;

AppEx.Sheets(1).Cells(1,4).Borders.Linestyle = 1;

AppEx.Sheets(1).Columns(5).ColumnWidth = 14;

AppEx.Sheets(1).Cells(1,5).Value = "Начало события";

AppEx.Sheets(1).Cells(1,5).Interior.Color = 255045;

AppEx.Sheets(1).Cells(1,5).Font.Bold = 1;

AppEx.Sheets(1).Cells(1,5).WrapText = Истина;

AppEx.Sheets(1).Cells(1,5).Borders.Linestyle = 1;

AppEx.Sheets(1).Columns(6).ColumnWidth = 14;

AppEx.Sheets(1).Cells(1,6).Value = "Окончание события";

AppEx.Sheets(1).Cells(1,6).Interior.Color = 255045;

AppEx.Sheets(1).Cells(1,6).Font.Bold = 1;

AppEx.Sheets(1).Cells(1,6).WrapText = Истина;

AppEx.Sheets(1).Cells(1,6).Borders.Linestyle = 1;

AppEx.Sheets(1).Columns(7).ColumnWidth = 18;

AppEx.Sheets(1).Cells(1,7).Value = "ФИО слушателя";

AppEx.Sheets(1).Cells(1,7).Interior.Color = 255045;

AppEx.Sheets(1).Cells(1,7).Font.Bold = 1;

AppEx.Sheets(1).Cells(1,7).WrapText = Истина;

AppEx.Sheets(1).Cells(1,7).Borders.Linestyle = 1;

AppEx.Sheets(1).Columns(8).ColumnWidth = 18;

AppEx.Sheets(1).Cells(1,8).Value = "Серия паспорта";

AppEx.Sheets(1).Cells(1,8).Interior.Color = 255045;

AppEx.Sheets(1).Cells(1,8).Font.Bold = 1;

AppEx.Sheets(1).Cells(1,8).WrapText = Истина;

AppEx.Sheets(1).Cells(1,8).Borders.Linestyle = 1;

AppEx.Sheets(1).Columns(9).ColumnWidth = 18;

AppEx.Sheets(1).Cells(1,9).Value = "Номер паспорта";

AppEx.Sheets(1).Cells(1,9).Interior.Color = 255045;

AppEx.Sheets(1).Cells(1,9).Font.Bold = 1;

AppEx.Sheets(1).Cells(1,9).WrapText = Истина;

AppEx.Sheets(1).Cells(1,9).Borders.Linestyle = 1;

AppEx.Sheets(1).Columns(10).ColumnWidth = 25;

AppEx.Sheets(1).Cells(1,10).Value = "Дата рождения";

AppEx.Sheets(1).Cells(1,10).Interior.Color = 255045;

AppEx.Sheets(1).Cells(1,10).Font.Bold = 1;

AppEx.Sheets(1).Cells(1,10).WrapText = Истина;

AppEx.Sheets(1).Cells(1,10).Borders.Linestyle = 1;

AppEx.Sheets(1).Columns(11).ColumnWidth = 18;

AppEx.Sheets(1).Cells(1,11).Value = "Место работы";

AppEx.Sheets(1).Cells(1,11).Interior.Color = 255045;

AppEx.Sheets(1).Cells(1,11).Font.Bold = 1;

AppEx.Sheets(1).Cells(1,11).WrapText = Истина;

AppEx.Sheets(1).Cells(1,11).Borders.Linestyle = 1;

i=2;

ТабДок = ЭлементыФормы.ДокументРезультат;

Пока РезультатЗапроса.Следующий() Цикл

//ApplicationExcel.Sheets(1).Cells(i,1).Value = РезультатЗапроса.АртикулМетодическогоПособия;

AppEx.Sheets(1).Cells(i,1).Borders.Linestyle = 1;

AppEx.Sheets(1).Cells(i,1).WrapText = Истина;

//ApplicationExcel.Sheets(1).Cells(i,2).Value = РезультатЗапроса.НомерСвидетельства;

AppEx.Sheets(1).Cells(i,2).Borders.Linestyle = 1;

AppEx.Sheets(1).Cells(i,2).WrapText = Истина;

AppEx.Sheets(1).Cells(i,3).Value = Строка(РезультатЗапроса.НазваниеКурса);

AppEx.Sheets(1).Cells(i,3).Borders.Linestyle = 1;

AppEx.Sheets(1).Cells(i,3).WrapText = Истина;

AppEx.Sheets(1).Cells(i,4).Value = Строка(РезультатЗапроса.Преподаватель);

AppEx.Sheets(1).Cells(i,4).Borders.Linestyle = 1;

AppEx.Sheets(1).Cells(i,4).WrapText = Истина;

AppEx.Sheets(1).Cells(i,5).Value = Строка(РезультатЗапроса.НачалоСобытия);

AppEx.Sheets(1).Cells(i,5).Borders.Linestyle = 1;

AppEx.Sheets(1).Cells(i,5).WrapText = Истина;

AppEx.Sheets(1).Cells(i,6).Value = Строка(РезультатЗапроса.ОкончаниеСобытия);

AppEx.Sheets(1).Cells(i,6).Borders.Linestyle = 1;

AppEx.Sheets(1).Cells(i,6).WrapText = Истина;

Если РезультатЗапроса.Контрагент.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ФизЛицо Тогда

AppEx.Sheets(1).Cells(i,7).Value = Строка(РезультатЗапроса.КонтрагентФИОСлушателя);

AppEx.Sheets(1).Cells(i,8).Value = Строка(РезультатЗапроса.СерияПаспорта);

AppEx.Sheets(1).Cells(i,9).Value = Строка(РезультатЗапроса.НомерПаспорта);

AppEx.Sheets(1).Cells(i,10).Value = Строка(РезультатЗапроса.ДатаРожденияФизЛицо);

Иначе

AppEx.Sheets(1).Cells(i,7).Value = Строка(РезультатЗапроса.КонтактноеЛицоФИОСлушателя);

AppEx.Sheets(1).Cells(i,8).Value = Строка(РезультатЗапроса.РегистрДокументСерия);

AppEx.Sheets(1).Cells(i,9).Value = Строка(РезультатЗапроса.РегистрДокументНомер);

AppEx.Sheets(1).Cells(i,10).Value = Строка(РезультатЗапроса.ДатаРожденияЮрЛицо);

AppEx.Sheets(1).Cells(i,11).Value = Строка(РезультатЗапроса.Контрагент);

КонецЕсли;

AppEx.Sheets(1).Cells(i,7).Borders.Linestyle = 1;

AppEx.Sheets(1).Cells(i,7).WrapText = Истина;

AppEx.Sheets(1).Cells(i,8).Borders.Linestyle = 1;

AppEx.Sheets(1).Cells(i,8).WrapText = Истина;

AppEx.Sheets(1).Cells(i,9).Borders.Linestyle = 1;

AppEx.Sheets(1).Cells(i,9).WrapText = Истина;

AppEx.Sheets(1).Cells(i,10).Borders.Linestyle = 1;

AppEx.Sheets(1).Cells(i,10).WrapText = Истина;

AppEx.Sheets(1).Cells(i,11).Borders.Linestyle = 1;

AppEx.Sheets(1).Cells(i,11).WrapText = Истина;

i=i+1;

КонецЦикла;

AppEx.Visible = Истина;

Исключение

Сообщить(ОписаниеОшибки());

AppEx.Quit();

КонецПопытки;

Размещено на Allbest.ru