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

д.) для разработки ПП., руб. 10 000

Процент дополнительной заработной платы, % 10 Процент отчислений на социальные нужды, % 26 Накладные расходы, % 30

Параметр «стоимость 1 часа машинного времени» рассчитывался следующим образом:

Средняя стоимость компьютера равна 20 000 руб. За год стоимость снижается приблизительно до 15 000 руб. В году 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 человек. Месячная заработная плата — 25 000 руб. Также, имеется информационный работник, который занимается поддержкой и сопровождением компьютеров, заработная плата которого, согласно таблице 12 составляет 35 000 руб., в среднем на обслуживание компьютеров тратится 10% его рабочего времени.

Ввод оперативной информации и ее обработка занимает примерно все рабочее время (сюда входит обработка бумажного документа и заполнение электронных форм), т. е. в день примерно 6 часов. При использовании информационной системы время необходимое для работы с информацией сокращается примерно в два раза, таким образом, время занесения данных в систему составляет около 3 часов. Данные поступают в среднем два раза в неделю, т. е. 8 раз в месяц. Следовательно, в год это время составит:

часов (без использования разработки);

часа (с использованием разработки).

Рассчитаем затраты на заработную плату в год (при 22 рабочих днях в месяце) до введения разработки. Затраты определяются по следующей формуле (3):

(3)

руб./год

После внедрения разработанных процедур, на обслуживание ИС необходим по-прежнему один информационный работник с заработной платой 30 000 руб./мес и только два — три работника для поддержания функционирования отдела, поскольку формирование всей отчетности происходит автоматически, ввод данных по сотрудникам также непостоянная процедура. Т. е. при внедрении информационной системы, количество сотрудников в отделе может быть уменьшено. Отсюда расходы на содержание персонала по формуле (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=32 949 — Р. Амелина. Компьютер в работе кадровой службы: обзор программных продуктов.

http://www.klerk.ru/articles/?44 474 — Л. А. Масленникова. Системы оплаты труда: как сделать выбор.

http://fio.ifmo.ru/archive/group26/c4wu5/30.htm — понятие модели

http://geo.web.ru/db/msg.html?mid=1 161 721 А. А. Стрельцов. Содержание понятия «информация». Тезисы доклада на заседании Межведомственного междисциплинарного семинара по научным проблемам информационной безопасности 13 декабря 2001 г.

http://sdo.uspi.ru/mathem&inform/lek5/lek₅.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

Бухгалтерия

Пенсионный фонд

Заявления Больничные листы Трудовые книжки

отдел управления персоналом

Приказы-распоряжения Заявка на подбор сотрудника

руководство

сотрудники

Приказы о приеме об увольнении о перемещении Отпуск Больничные листы

Анкета застрахов. лица Индивид. сведения

отдел управления персоналом

Отчеты руководства уст. формы Отчеты, произвольной формы

Принятые/Уволенные Среднеспис. числ-ть

Органы статистики

Руководство