Повышение эффективности деятельности энергетического предприятия электронного офиса (ТГК-1)

СОДЕРЖАНИЕ
СОДЕРЖАНИЕ
ВВЕДЕНИЕ
ГЛАВА 1. АНАЛИЗ ПРОЦЕССА РАЗРАБОТКИ СИСТЕМЫ ЭЛЕКТРОННОГО ДОКУМЕНТООБОРОТА ДЛЯ ЭНЕРГЕТИЧЕСКОГО ПРЕДПРИЯТИЯ
1.1. Характеристика бизнес-процессов энергетического предприятия ОАО «ТГК-1»
1.1.1. Описание и анализ деятельности ОАО «ТГК-1»
1.1.2. Краткая характеристика департамента управления персоналом ОАО «ТГК-1»
1.2. Экономическая сущность задачи внедрения системы электронного документооборота
1.3. Обоснование необходимости использования вычислительной техники для повышения эффективности функционирования предприятия
1.4. Постановка задачи разработки системы электронного документооборота для ОАО «ТГК-1»
1.4.1. Цель и назначение автоматизированного варианта решения задачи
1.4.2. Общая характеристика организации решения задачи на ЭВМ
1.5.Обзор решений в сфере автоматизации документооборота и обоснование выбора технологии проектирования
1.6.Обоснование проектных решений по видам обеспечения системы электронного документооборота
1.6.1. Техническое обеспечение системы электронного документооборота
1.6.2. Информационное обеспечение системы электронного документооборота
1.6.3. Программное обеспечение системы электронного документооборота
1.6.4. Технологическое обеспечение системы электронного документооборота
ГЛАВА 2. ОПИСАНИЕ ПРОЦЕССА РАЗРАБОТКИ СИСТЕМЫ ЭЛЕКТРОННОГО ДОКУМЕНТООБОРОТА ЭНЕРГЕТИЧЕСКОГО КОМПЛЕКСА С ПОМОЩЬЮ ПРОГРАММНОГО ПРОДУКТА
«1С: ПРЕДПРИЯТИЕ 7.7»
2.1. Информационное обеспечение проектных решений для системы электронного документооборота на примере департамента управления персоналом
2.1.1. Информационная модель и ее описание
2.1.2. Используемые классификаторы и системы кодирования
2.1.3. Характеристика нормативно-справочной и входной оперативной информации
2.1.4. Характеристика результатной информации.
2.2. Характеристика программного обеспечения, используемого для системы электронного документооборота департамента управления персоналом
2.2.1. Дерево функций системы и пример сценария диалога с пользователем
2.2.2. Структурная схема программного обеспечения.
2.2.3. Описание программных модулей, выполненных в 1С.
2.2.4. Схема взаимосвязи программных модулей и информационных файлов
2.3. Технологическое обеспечение задачи разработки системы электронного документооборота
2.3.1. Организация технологии сбора, передачи, обработки и выдачи информации
2.3.2. Схема технологического процесса сбора, передачи, обработки и выдачи информации
ГЛАВА 3. ОБОСНОВАНИЕ ЭКОНОМИЧЕСКОЙ ЭФФЕКТИВНОСТИ ПРОГРАММНОЙ РЕАЛИЗАЦИИ
3.1. Выбор и обоснование методики расчета показателей экономической эффективности разработанной ИС
3.2. Расчет показателей экономической эффективности информационной системы
3.2.1. Определение сметы затрат на разработку программного продукта
3.2.2 . Расчет и сопоставление эксплуатационных расходов
3.2.3. Расчет годового экономического эффекта от освоения нового программного продукта
3.2.4. Сопоставление технико-экономических характеристик разработки с аналогом
ЗАКЛЮЧЕНИЕ
БИБЛИОГРАФИЯ
ПРИЛОЖЕНИЕ 1
ПРИЛОЖЕНИЕ 2
ПРИЛОЖЕНИЕ 3
ПРИЛОЖЕНИЕ 4
ПРИЛОЖЕНИЕ 5

д.) для разработки ПП. , руб. 10000 Процент дополнительной заработной платы , % 10 Процент отчислений на социальные нужды , % 26 Накладные расходы , % 30
Параметр «стоимость 1 часа машинного времени» рассчитывался следующим образом:
Средняя стоимость компьютера равна 20000 руб. За год стоимость снижается приблизительно до 15000 руб. В году 52 недели, неделя содержит в себе 40 часов. Таким образом, стоимость машинного времени определяется как:
15 000 : (52 * 40) = 7.2 руб./ч.
Для расчета затрат на разработку ПП необходимо определить продолжительность каждой рабочей операции (начиная с составления технического задания и заканчивая оформлением документации). Продолжительность работ в данном случае определяется с помощью экспертных оценок по формуле (2):
, (2)
где – ожидаемая длительность j-ой работы;
и – наибольшая и наименьшая, по мнению эксперта, длительность работы.
Все расчеты сведем в таблицу 13.
Таблица 13
Длительность этапа разработки
№ Наименование работы Исполнитель Длительность работ, дней Машинное время, ч. Выполнение предпроектного анализа Постановщик задач 8 20 12,8 40 64 48 Формирование требований к проектируемой ИС Постановщик задач 10 16 12,4 30 100 85 Согласование требований Постановщик задач 2 5 3 2,5 8 5 Проектирование ИС (разработка модулей) Постановщик задач,
Программисты,
Начальник отдела 60 90 72 480 720 690 Внедрение ИС Постановщик задач,
Программисты 10 20 14 50 160 100 Тестирование ИС Постановщик задач 10 20 14 50 160 120 Доработка внедренной ИС Постановщик задач,
Программисты 20 30 24 160 240 220 ИТОГО: 120 201 152,2 812,5 1452 1268
Отсюда =152,2 дней (ожидаемая длительность работ).
Зная все данные, рассчитаем затраты на разработку программного продукта по формуле (1):
руб.
3.2.2 . Расчет и сопоставление эксплуатационных расходов
Разработка информационной системы подразумевала, что в организации уже имеются персональные компьютеры с установленной операционной системой и необходимым программным обеспечением, а для их обслуживания в штате есть информационный работник.
В эксплуатационные расходы включаются:
Затраты на заработную плату информационных работников;
Затраты на заработную плату персонала;
Расходы на функционирование программ (пакета программ).
Эксплуатационные расходы определяются по формуле (1).
Для начала проведем сравнение с обработкой аналогичных данных при частичной автоматизации, т.е. большая часть информации вводится и формируется вручную. В отделе управления персоналом находится в среднем 10 человек. Месячная заработная плата – 25000 руб. Также, имеется информационный работник, который занимается поддержкой и сопровождением компьютеров, заработная плата которого, согласно таблице 12 составляет 35000 руб., в среднем на обслуживание компьютеров тратится 10% его рабочего времени.
Ввод оперативной информации и ее обработка занимает примерно все рабочее время (сюда входит обработка бумажного документа и заполнение электронных форм), т.е. в день примерно 6 часов. При использовании информационной системы время необходимое для работы с информацией сокращается примерно в два раза, таким образом, время занесения данных в систему составляет около 3 часов. Данные поступают в среднем два раза в неделю, т.е. 8 раз в месяц. Следовательно, в год это время составит:
часов (без использования разработки);
часа (с использованием разработки).
Рассчитаем затраты на заработную плату в год (при 22 рабочих днях в месяце) до введения разработки. Затраты определяются по следующей формуле (3):
, (3)
руб./год
После внедрения разработанных процедур, на обслуживание ИС необходим по-прежнему один информационный работник с заработной платой 30000 руб./мес и только два – три работника для поддержания функционирования отдела, поскольку формирование всей отчетности происходит автоматически, ввод данных по сотрудникам также непостоянная процедура. Т.е. при внедрении информационной системы, количество сотрудников в отделе может быть уменьшено. Отсюда расходы на содержание персонала по формуле (1) составят:

руб./год
3.2.3. Расчет годового экономического эффекта от освоения нового программного продукта
Годовой экономический эффект от использования нового ПП определяется по формуле (4):
, (4)
где B – годовая экономия (выигрыш) средств, затрачиваемых на разработку в результате ее внедрения;
– единовременные капитальные затраты на разработку ПП;
– нормативный коэффициент [=0,15 (15%)].
Годовая экономия В считается по формуле (5):
, (5)
Используя посчитанные выше данные, получим
руб./год
Отсюда, годовой экономический эффект составит:
,
следовательно, руб.
3.2.4. Сопоставление технико-экономических характеристик разработки с аналогом
Стоимостная оценка аналога принимается равной единице, т.е. =1. Под аналогом подразумевается ввод данных и их обработка до внедрения информационной системы. Исходя из этого приближенно оценивается новая разработка, как отношение цен потребления разработки () и аналога ().
, (6)
, (7)
где – количество задач в год (= 96, т.к., как говорилось выше, ввод данных осуществляется 8 раз в месяц в среднем);
– затраты на решение задачи с помощью разработки;
– срок эксплуатации программы (=5).
Отсюда руб./год.
Пусть – это затраты на решение задачи без разработки, т.е.
руб./год
руб.
Зная эти параметры, можем найти по формуле (6).
Получим . Это означает, что гораздо эффективней использовать информационную систему для ввода и обработки предоставленных данных. Кроме того, снижается влияние человеческого фактора и автоматизируется вывод всех необходимых отчетов.
ЗАКЛЮЧЕНИЕ
При написании дипломной работы была достигнута основная цель и выполнены поставленные задачи. Спроектирована и разработана информационная система электронного документооборота для департамента управления персоналом ОАО «ТГК-1». Кроме того, достигнут необходимый уровень взаимодействия с другими подразделениями, что обеспечит более высокий уровень надежности обработки данных.
Подробно рассмотрена и проанализирована действующая на предприятии система по ведению кадрового учета и сопровождению процесса управления персоналом. В результате анализа бизнес-процессов, протекающих в компании, было принято решение о необходимости разработки программного модуля. Информационная система электронного документооборота была создана с использованием одной из наиболее распространенных и доступных в России систем – «1С: Предприятие 7.7».
В рамках выполнения дипломного проекта было составлено техническое задание, разработаны функциональная, логическая и физическая модели, на основании которых была разработана конфигурация системы. Для удобства ввода, просмотра и корректировки информации были разработаны формы, выполненные в едином стиле. Помимо экранных форм были реализованы основные формы отчетов, используемых на данном предприятии.
Разработанная информационная система позволяет полностью автоматизировать выполнение всех текущих задач, стоящих перед сотрудниками департамента управления персоналом ОАО «ТГК-1». Положительной стороной разработанной системы является простота и понятность интерфейса программы, что не требует дополнительного обучения или прохождения специальных курсов легкость ввода информации и получение необходимых данных.
Существенным достоинством использования «1С: Предприятие 7.7» при разработке информационной системы является легкая и быстрая доработка необходимых форм, модулей, отчетов. В настоящее время происходит внедрение разработанного решения и его тестовая эксплуатация. В будущем, на основании предъявленных к ней требований, информационная система доработается, и будет использоваться наиболее оптимально и эффективно.
Анализ экономической эффективности разработанных решений показал, что использование информационных технологий и внедрение единой информационной системы на предприятии способно в разы сократить текущие затраты компании и эффективность работы сотрудников.
Главным прямым эффектом от внедрения информационной системы стала более строгая организация всех бизнес-процессов.
БИБЛИОГРАФИЯ
Трудовой Кодекс РФ.
Большая советская энциклопедия.
Экономико-математический словарь.
1С: Предприятие 7.7. Описание строенного языка. В 2х частях. – М.: Фирма «1С», 1996-1999
Автоматизированные информационные технологии в экономике: Учебник/Под ред. проф. Г.А. Титоренко. – М.: Компьютер, ЮИНИТИ, 2006
Информатика: Учебник. – М.: Финансы и статистика, 2002
Экономическая информатика: Введение в экономический анализ информационных систем: Учебник. – М.: ИНФРА-М, 2005
Арсентьева А.Е. 1С: Предприятие: шаг за шагом практическое пособие, 2-е изд.. – М.: Омега-Л, 2008
Аглицкий И. Информационные технологии и бизнес // Эксперт автоматизации №29, 1997
Бартеньев О.В. 1C:Предприятие: программирование для всех базовые объекты, расчеты и регистры. – М.: Диалог-Мифи, 2008
Н. М. Березина, М. М. Бахарева. Кадровое делопроизводство. – СПб: Питер, 2008
Захаркина О. И., Гусятникова Д. Е. Кадровая служба предприятия. Делопроизводство, документооборот и нормативная база. – СПб: Омега – Л, 2008
Кулопулос Т.М. Необходимость Workflow: Решения для реального бизнеса: Пер. с англ. – М.: Весть-Метатехнология, 2000
Маклаков С. В. Моделирование бизнес-процессов с AllFusion Process Modeler (BPwin 4.1). - М., 2003
Маклаков С.В. Создание информационных систем с AllFusion Modeling Suite. – М.: ДИАЛОГ-МИФИ, 2005
Марк Д., Гоуэн М. Методология структурного анализа и проектирования (SADT). – М.: МетаТехнология, 1993
Скрипкин К.Г. Экономическая эффективность информационных систем. – М.: ДМК Пресс, 2002
Томпсон А.А., Стрикленд А.Дж. Стратегический менеджмент. – М.: ИНФРА-М, 2000
Фишер Л.Совершенство на практике: Лучшие проекты в области управления бизнес-процессами и workflow: Пер. с англ. – М.: Весть-Метатехнология, 2000
Шафер Д.Ф., Фартрел Т., Шафер Л.И. Управление программными проектами: достижение оптимального качества при минимуме затрат.: Пер. с англ. – М.: Вильямс, 2004.
Под редакцией Филиной Ф.Н. Сборник всех кадровых документов. Практические рекомендации по их заполнению. – СПБ: ГроссМедиа, РОСБУХ, 2008
http://tgk1.ru/ - сайт компании ОАО «ТГК-1».
http://www.1c.ru/ - сайт компании 1С.
http://www.mista.ru/ - Разработка приложений на 1С.
http://garantcentre.ru/document.php?id=32949 – Р. Амелина. Компьютер в работе кадровой службы: обзор программных продуктов.
http://www.klerk.ru/articles/?44474 - Л.А. Масленникова. Системы оплаты труда: как сделать выбор.
http://fio.ifmo.ru/archive/group26/c4wu5/30.htm - понятие модели
http://geo.web.ru/db/msg.html?mid=1161721 А. А. Стрельцов. Содержание понятия "информация". Тезисы доклада на заседании Межведомственного междисциплинарного семинара по научным проблемам информационной безопасности 13 декабря 2001 г.
http://sdo.uspi.ru/mathem&inform/lek5/lek_5.htm#основные_понятия
http://www.accord.ru/Docs/books/opf/01_opf.htm - В. А. Конявский, В. А. Гадасин. Основы понимания феномена электронного обмена информацией.
ПРИЛОЖЕНИЕ 1
Списки значений
Пол Мужской
Женский
ИспытСрок 1 месяц
3 месяца
6 месяцев
Условия труда Нормальные
Тяжелые / вредные
Особо тяжелые / особо вредные
Основание увольнения Уход на инвалидность ст. 33 КЗОТ п.2 Совершение по месту работы хищения ст. 33 КЗОТ, п.8 Уход на пенсию ст. 31 КЗОТ Учеба на дневном отделении ст. 31 КЗОТ По сокращению штатов ст. 33 КЗОТ, п.1 По соглашению сторон ст. 29 КЗОТ, п.1 Уход на службу в армию ст. 29 КЗОТ, п.3 По требованию профсоюзного органа ст. 37 КЗОТ За прогулы ст. 33 КЗОТ, п.4 По уходу за инвалидом ст. 32 КЗОТ По уходу за детьми до 14 лет ст. 32 КЗОТ По собственному желанию ст. 31 КЗОТ Появление на работе в нетрезвом состоянии ст. 33 КЗОТ, п.7 Перевод ст. 29 КЗОТ, п.5 Окончание срока работ ст. 29 КЗОТ, п.2 Несоответствие занимаемой должности ст. 33 КЗОТ, п.2 Систематич. неисполнение служ. обяз. ст. 33 КЗОТ, п.3 Неудовл. окончание испыт. срока ст. 23 КЗОТ Семейное положение Женат
Замужем
Холост
Незамужем
Разведен
Разведена
Вдовец
Вдова
Тип отпуска Очередной
За свой счет
Учебный
Тип расчета отпуска По шестидневке
По календарным дням Тип больничного листа Общее заболевание
По уходу за ребенком
По беременности и родам
Травма на производстве
Травма в быту
Травма по дороге с работы / на работу
Звание Рядовой
Ефрейтор
Сержант
Мл. сержант
Ст. сержант
Лейтенант
Мл. лейтенант
Ст. лейтенант
Майор
Генерал
Годность Строевой
Нестроевой
Родство Муж
Жена
Мать
Отец
Дочь
Сын
Брат
Сестра
Другое
Вид образования Без образования
Начальная школа
Неполное среднее
Среднее общее
Начальное профессиональное
Среднее профессиональное
Высшее
Послевузовское
График работы Табель 8 час.
Табель 7 час.
Табель 6 час.
Табель 4 час.
Виды документов, удостоверяющих личность 01 Паспорт 02 Заграничный паспорт РФ 03 Свидетельство о рождении 04 Удостоверение личности в/с 05 Справка об освобождении 06 Заграничный паспорт ММФ 07 Военный билет в/с 08 Миграционный паспорт 09 Дипломатический паспорт 10 Иностранный паспорт 11 Свидетельство (беженцы) 13 Удостоверение беженца 14 Временное удостоверение личности гражданина РФ 21 Паспорт образца 1997 года 91 Иные документы, выдаваемые органами МВД
ПРИЛОЖЕНИЕ 2
Программный код приказа о приеме на работу
//------------------------------------------------------------------------
Процедура ОбработкаПроведения()
//при проведении данного документа в справочник Сотрудники
//добавляется новый сотрудник, заполняются его реквизиты согласно
//данному приказу, устанавливаются кадровые данные по умолчанию,
//вносятся изменения в штатное расписание
СпрСотр = СоздатьОбъект("Справочник.Сотрудники");
//если документ проводится второй раз, то
//нового сотрудника не создаем, а ищем старого
//и меняем все для него
СпрСотр.ИспользоватьДату(ДатаПриема);
Если Проведен()=1 Тогда
СпрСотр.НайтиЭлемент(Сотрудник);
Иначе
ТН = НовыйТН();
//СпрСотр.ИспользоватьРодителя(Работающие);
СпрСотр.Новый();
СпрСотр.Родитель = Работающие;
КонецЕсли;
СпрСотр.Код = ТН;
СпрСотр.Наименование = ФИО;
СпрСотр.Записать();
//изменения в штатном расписании
Если (ДолжностьШтРасп.Выбран()=1) ИЛИ (БылаДолжностьШтРасп.Выбран()=1) Тогда
Если Проведен() = 0 Тогда
ЗанятьСтавки(ДолжностьШтРасп,Ставка);
Иначе
//перепроведение документа
Если БылаДолжностьШтРасп <> ДолжностьШтРасп Тогда
ОсвободитьСтавки (БылаДолжностьШтРасп,БылаСтавка);
ЗанятьСтавки (ДолжностьШтРасп, Ставка);
Иначе //должность не изменилась, могли измениться ставки
Если БылаСтавка < Ставка Тогда
ЗанятьСтавки (ДолжностьШтРасп, Ставка - БылаСтавка);
ИначеЕсли БылаСтавка > Ставка Тогда
ОсвободитьСтавки (БылаДолжностьШтРасп, БылаСтавка - Ставка);
Иначе
//ставки и должность не изменились
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
//изменение реквизитов спр. Сотрудники
УстановитьРеквизитСправочника(СпрСотр.ТекущийЭлемент(),"Оклад", Оклад, ДатаПриема);
УстановитьРеквизитСправочника(СпрСотр.ТекущийЭлемент(),"Категория", Категория, ДатаПриема);
УстановитьРеквизитСправочника(СпрСотр.ТекущийЭлемент(),"Объект", Объект, ДатаПриема);
УстановитьРеквизитСправочника(СпрСотр.ТекущийЭлемент(),"Разряд", Разряд, ДатаПриема);
УстановитьРеквизитСправочника(СпрСотр.ТекущийЭлемент(),"ГрафикРаботы", ГрафикРаботы, ДатаПриема);
УстановитьРеквизитСправочника(СпрСотр.ТекущийЭлемент(),"КонецКонтракта",КонецКонтракта, ДатаПриема);
УстановитьРеквизитСправочника(СпрСотр.ТекущийЭлемент(),"Должность", Должность, ДатаПриема);
УстановитьРеквизитСправочника(СпрСотр.ТекущийЭлемент(),"Ставка", Ставка, ДатаПриема);
УстановитьРеквизитСправочника(СпрСотр.ТекущийЭлемент(),"ДолжностьШтРасп",ДолжностьШтРасп, ДатаПриема);
СпрСотр.ДатаПриема = ДатаПриема;
СпрСотр.ПриказОПриеме = ТекущийДокумент();
СпрСотр.Записать();
//привязка этого документа к сотруднику из справочника
Сотрудник = СпрСотр.ТекущийЭлемент();
СпрКД=СоздатьОбъект("Справочник.КадровыеДанные");
СпрКД.ИспользоватьВладельца(Сотрудник);
СпрКД.ВыбратьЭлементы();
Если (СпрКД.ПолучитьЭлемент()=0) Тогда
СпрКД.Новый();
СпрКД.Код = СпрСотр.код;
СпрКД.Наименование = СпрСотр.Наименование;
Фам = ""; Имя = ""; Отч = "";
РаздФИО(СпрСотр.Наименование,Фам,Имя,Отч);
ПоследняяБукваИмени = Прав(СокрЛП(Имя),1);
Если ((ПоследняяБукваИмени ="а") ИЛИ (ПоследняяБукваИмени ="я") ИЛИ (Имя="Любовь"))
И (Имя <> "Илья") И (Имя <> "Данила") Тогда
СпрКД.Пол = Перечисление.Пол.Женский;
Иначе
СпрКД.Пол = Перечисление.Пол.Мужской;
КонецЕсли;
СпрСтраны = СоздатьОбъект("Справочник.Страны");
СпрСтраны.НайтиПоКоду(643); //Россия
СпрКД.Страна = СпрСтраны.ТекущийЭлемент();
СпрРег = СоздатьОбъект("Справочник.Регионы");
СпрРег.НайтиПоКоду(77); //Москва
СпрКД.Регион = СпрРег.ТекущийЭлемент();
СпрВидыДок = СоздатьОбъект("Справочник.ВидыДокументов");
СпрВидыДок.НайтиПоНаименованию("Паспорт");
СпрКД.ДокументВид = СпрВидыДок.ТекущийЭлемент();
СпрКД.Записать();
КонецЕсли;
СпрСотр.КадровыеДанные = СпрКД.ТекущийЭлемент();
СпрСотр.Записать();
ОбновитьДокументыПоФИО(ТекущийДокумент(),"V");
КонецПроцедуры
//------------------------------------------------------------------------
Процедура ОбработкаУдаленияПроведения()
//при удалении проведения данного документа
//сотрудник в справочнике помечается на удаление
//изменения в штатном расписании удаляются автоматически
СпрСотр = СоздатьОбъект("Справочник.Сотрудники");
Если СпрСотр.НайтиЭлемент(Сотрудник) = 1 Тогда
СпрСотр.Удалить(0); //пометить на удаление
КонецЕсли;
//изменения в штатном расписании
Если ДолжностьШтРасп.Выбран()=1 Тогда
ОсвободитьСтавки (ДолжностьШтРасп, Ставка);
КонецЕсли;
ОбновитьДокументыПоФИО(ТекущийДокумент(),"Х");
КонецПроцедуры
ПРИЛОЖЕНИЕ 3
Программный код приказа об увольнении
// ********************
//
Процедура ОбработкаПроведения()
//у сотрудника устанавливается дата увольнения и ПриказОбУвольнении
//и сотрудник перемещается в группу "Уволенные"
СпрСотр = СоздатьОбъект("Справочник.Сотрудники");
СпрСотр.ИспользоватьДату(ДатаУвольнения);
СпрСотр.НайтиЭлемент(Сотрудник);
СпрСотр.ДатаУвольнения = ДатаУвольнения;
СпрСотр.Родитель = Уволенные;
СпрСотр.ПриказОбУвольнении = ТекущийДокумент();
СпрСотр.Записать();
//изменения в штатном расписании
Если СпрСотр.ДолжностьШтРасп.Выбран()=1 Тогда
ОсвободитьСтавки (СпрСотр.ДолжностьШтРасп, СпрСотр.Ставка);
КонецЕсли;
ОбновитьДокументыПоФИО(ТекущийДокумент(),"V");
КонецПроцедуры
//------------------------------------------------------------------------
Процедура ОбработкаУдаленияПроведения()
СпрСотр = СоздатьОбъект("Справочник.Сотрудники");
СпрСотр.НайтиЭлемент(Сотрудник);
//обратные изменения в штатном расписании
БывшаяДолжностьШтРасп_Сотр = Сотрудник.ДолжностьШтРасп.Получить(ДатаУвольнения);
БывшаяСтавка_Сотр = Сотрудник.Ставка.Получить(ДатаУвольнения);
Если БывшаяДолжностьШтРасп_Сотр.Вакантно < БывшаяСтавка_Сотр Тогда
Предупреждение("Недостаточно вакансий в штатном расписании!");
СтатусВозврата(0);
Возврат;
КонецЕсли;
ЗанятьСтавки (БывшаяДолжностьШтРасп_Сотр, БывшаяСтавка_Сотр);
СпрСотр.Родитель = Работающие;
СпрСотр.ДатаУвольнения = 0;
СпрСотр.ПриказОбУвольнении = 0;
СпрСотр.Записать();
КонецПроцедуры
ПРИЛОЖЕНИЕ 4
Программный код приказа о кадровом перемещении
Процедура ОбработатьРеквизит(ИмяРеквизита)
БылоЗначение = Сотрудник.ПолучитьАтрибут(ИмяРеквизита);
СталоЗначение = ПолучитьАтрибут(ИмяРеквизита);
Если БылоЗначение <> СталоЗначение Тогда
УстановитьРеквизитСправочника(Сотрудник, ИмяРеквизита, СталоЗначение, Начало);
КонецЕсли;
//если указана дата окончания перемещения, то
//установим так реквизиты справочника Сотрудники,
//чтобы по окончании срока перемещения сотрудник
//автоматом вернулся на прежнее место работы
Если Число(Окончание)<>0 Тогда
УстановитьРеквизитСправочника(Сотрудник, ИмяРеквизита, БылоЗначение, Окончание+1);
КонецЕсли;
КонецПроцедуры
//------------------------------------------------------------------------
Процедура ОбработкаПроведения()
//при проведении данного документа
//устанавливаются новые атрибуты на дату перемещения
//а если перемещение временное (т.е. указана дата Окончание - реквизит "по")
//то сразу устанавливаются на дату (Окончание+1) старые атрибуты,
//т.е. сотрудник автоматом возвращается на прежнее место работы (приказ не нужен)
//при необходимости вносятся изменения в штатное расписание
Сотрудник.ИспользоватьДату(Начало);
ОбработатьРеквизит ("Категория");
ОбработатьРеквизит ("Объект");
ОбработатьРеквизит ("Оклад");
ОбработатьРеквизит ("Должность");
ОбработатьРеквизит ("ДолжностьШтРасп");
ОбработатьРеквизит ("Разряд");
ОбработатьРеквизит ("Ставка");
ОбработатьРеквизит ("ГрафикРаботы");
ОбработатьРеквизит ("КонецКонтракта");
//изменения в штатном расписании
Если Проведен() = 0 Тогда
БывшаяДолжностьШтРасп_Сотр = Сотрудник.ДолжностьШтРасп;
БывшаяСтавка_Сотр = Сотрудник.Ставка;
Если БывшаяДолжностьШтРасп_Сотр.Выбран() = 1 Тогда
ОсвободитьСтавки (БывшаяДолжностьШтРасп_Сотр, БывшаяСтавка_Сотр);
КонецЕсли;
Если ДолжностьШтРасп.Выбран() = 1 Тогда
ЗанятьСтавки(ДолжностьШтРасп,Ставка);
КонецЕсли;
Иначе
//перепроведение документа
Если БылаДолжностьШтРасп <> ДолжностьШтРасп Тогда
ОсвободитьСтавки (БылаДолжностьШтРасп,БылаСтавка);
ЗанятьСтавки (ДолжностьШтРасп, Ставка);
Иначе //должность не изменилась, могли измениться ставки
Если БылаСтавка < Ставка Тогда
ЗанятьСтавки (ДолжностьШтРасп, Ставка - БылаСтавка);
ИначеЕсли БылаСтавка > Ставка Тогда
ОсвободитьСтавки (БылаДолжностьШтРасп, БылаСтавка - Ставка);
Иначе
//ставки и должность не изменились
КонецЕсли;
КонецЕсли;
КонецЕсли;
//обновляемся
ОбновитьДокументыПоФИО(ТекущийДокумент(),"V");
КонецПроцедуры
//------------------------------------------------------------------------
Процедура ОбработкаУдаленияПроведения()
//обратные изменения в штатном расписании
//периодические реквизиты, измененные этим документом
//возвращаются назад автоматически (за этим следит 1С)
БывшаяДолжностьШтРасп_Сотр = Сотрудник.ДолжностьШтРасп.Получить(Начало-1);
БывшаяСтавка_Сотр = Сотрудник.Ставка.Получить(Начало-1);
Если БывшаяДолжностьШтРасп_Сотр.Вакантно + Ставка < БывшаяСтавка_Сотр Тогда
Предупреждение("Недостаточно вакансий в штатном расписании!");
СтатусВозврата(0);
Возврат;
КонецЕсли;
ОсвободитьСтавки (ДолжностьШтРасп, Ставка);
ЗанятьСтавки (БывшаяДолжностьШтРасп_Сотр, БывшаяСтавка_Сотр);
ОбновитьДокументыПоФИО(ТекущийДокумент(),"Х");
КонецПроцедуры
ПРИЛОЖЕНИЕ 5
Программный код формы «Кадровые данные»
Процедура ВызватьСправочник(Какой)
Конт = 0;
ОткрытьФорму("Справочник."+Какой+"#"+СокрЛП(Строка(Владелец.Код)),Конт);
КонецПроцедуры
//------------------------------------------------------------------------
Процедура ПриЗаписи()
Если (Число(ДокументДатаВыдачи)<>0) И (Число(ДатаРождения)<>0) Тогда
Если (Число(ДокументВид.Код)=1) ИЛИ (Число(ДокументВид.Код)=21) Тогда //паспорт и паспорт образца 1997 г.
Если ДатаГод(ДокументДатаВыдачи) - ДатаГод(ДатаРождения) < 14 Тогда
Предупреждение("Дата выдачи паспорта должна быть больше даты рождения не меньше, чем на 14 лет!");
СтатусВозврата(0);
Возврат;
КонецЕсли;
КонецЕсли;
КонецЕсли;
СтрНомер = Строка(СтраховойНомерПФ);
ДлинаНомера = СтрДлина(СтрНомер);
Если СтрНомер = " - - " Тогда
Сообщить("Не указан страховой номер ПФ");
Иначе
//проверка страхового номера
Если (ДлинаНомера <> 14) Тогда
Предупреждение("В страховом номере должно быть 11 цифр, 2 дефиса и 1 пробел!");
СтатусВозврата(0);
Возврат;
КонецЕсли;
//расчет контрольного числа
СтрНомерБезКЧ = Сред(СтрНомер,1,ДлинаНомера - 3); //без контр. числа и пробела
Позиция = СтрДлина(СтрНомерБезКЧ);
ДлинаНомераБезКЧ = СтрДлина(СтрНомерБезКЧ);
Сумма = 0; Вес = 1;
Пока Позиция <> 0 Цикл
ОчерСимв = Сред(СтрНомерБезКЧ,Позиция,1);
Если ОчерСимв="-" Тогда
Позиция = Позиция - 1;
Продолжить;
КонецЕсли;
Сумма = Сумма + Число(ОчерСимв) * Вес;
Позиция = Позиция - 1;
Вес = Вес + 1;
КонецЦикла;
Остаток = Сумма % 101;
КонтрЧисло = ?(Остаток=100,"00",Строка(Остаток));
Если Число(Сред(СтрНомер, ДлинаНомера - 1)) <> Число(КонтрЧисло) Тогда
Предупреждение("Неверный страховой номер! Не сходится контрольное число!");
СтатусВозврата(0);
Возврат;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
//------------------------------------------------------------------------
Процедура ПриВыбореЗакладки(НомЗакл, ЗначЗакл)
Если ЗначЗакл = "Основные данные" Тогда
Форма.ИспользоватьСлой("ОсновныеДанные",1);
Форма.ИспользоватьСлой("ДругиеДанные",0);
ИначеЕсли ЗначЗакл = "Другие данные" Тогда
Форма.ИспользоватьСлой("ОсновныеДанные",0);
Форма.ИспользоватьСлой("ДругиеДанные",1);
КонецЕсли;
КонецПроцедуры
//------------------------------------------------------------------------
Форма.ИспользоватьЗакладки(1);
Форма.Закладки.ДобавитьЗначение("Основные данные");
Форма.Закладки.ДобавитьЗначение("Другие данные");
Форма.ИспользоватьСлой("Постоянный",1);
Форма.ИспользоватьСлой("ОсновныеДанные",1);
Форма.ИспользоватьСлой("ДругиеДанные",0);
Форма.Заголовок(Владелец.Наименование);
Все формулы и образцы таблиц взяты из книги Скрипкин К.Г. «Экономическая эффективность информационных систем. – М.: ДМК Пресс, 2002
78
Бухгалтерия
Пенсионный фонд
Заявления
Больничные листы
Трудовые книжки
отдел управления персоналом
Приказы-распоряжения
Заявка на подбор сотрудника
руководство
сотрудники
Приказы о приеме
об увольнении
о перемещении
Отпуск
Больничные листы
Анкета застрахов. лица
Индивид. сведения
отдел управления персоналом
Отчеты руководства уст. формы
Отчеты, произвольной формы
Принятые/Уволенные
Среднеспис. числ-ть
Органы статистики
Руководство