Персонифицированный учет в среде 1С 7.7 "Зарплата и кадры"

а) номер текстового файла;

б) вид и тип документа (например, ПУ_1/регистрация);

в) дата заполнения;

г) период за который выбираются данные ;

д) количество записей о сотрудниках (количество сотрудников);

е) начислено за период (общая сумма по пачке ПУ_3);

ж) выплачено из ФСЗН за период (общая сумма по пачке ПУ_3);

з) перечислено взносов за период (общая сумма по пачке ПУ_3);

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

_ Кнопка "Сформировать" служит для формирования текстовых файлов и документов ПУ после заполнения таблицы записями о сотрудниках. При записи текстового файла производится запрос "Формировать новый текстовый файл?". При выборе "Да" данные записываются в новый файл и справочник "Документы ПУ" дополняется информацией об этом файле, при выборе "Нет" открывается справочник "Документы ПУ" для выбора файла, который будет обновлен данными из текущей таблицы, при выборе "Отмена" файл не создается и справочник не дополняется. Документы ПУ в любом случае выводятся на экран.

_ Кнопка "Сопроводительный лист" служит для формирования сопроводительного листа к входящим документам, объединяющего пачки документов ПУ по дате заполнения.

_ Кнопка "№" позволяет заполнить страховые номера сотрудникам, выбранным в таблицу, закладки ПУ-1, ПУ-2.

_ Кнопки "Закрыть" служит для закрытия окна формы после дополнительного подтверждения.

- Кнопки, предназначенные для заполнения формы

Для первоначальной регистрации:

а) в форме ПУ-1 тип «регистрация» (без личных №) и ПУ-2 тип первоначальная регистрация (с личными №) заполняются (рисунок 3.6, рисунок 3.7):

_ все неуволенные на дату регистрации;

_ работающие в период с начала года до даты регистрации (01);

_ принятые по договору в период регистрации (03);

б) в форме ПУ-2 заполняется: ФИО, Личный №, дата приема (от 01.01.2003 до даты регистрации) (рисунок 3.8, рисунок 3.9).

В форме ПУ-1 тип «регистрация» заполняются (или выбираются "+") принятые за период, и не имеющие страхового номера.

В форме ПУ-1 тип «изменение» заполняются (или выбираются "+") те, у кого заполнен документ "Изменение анкеты" за выбранный период (смотри рисунок 3.10).

В форме ПУ-1 тип «восстановление» поля не заполняются, а выбираются с помощью "+" (рисунок 3.11).

В форме ПУ-2 тип «исходная» («корректирующая», «отменяющая») заполняются (или выбираются "+") принятые за период (квартал), кроме 03 вида договора (по договорам подряда) (рисунок 3.12, рисунок 3.13).

- Тип первоначальная регистрация. Форма ПУ-1

- Отчет «Форма ПУ-1. Тип _ регистрация»

- Тип первоначальная регистрация. Форма ПУ-2

- Отчет «Форма ПУ-2. Тип _ регистрация»

_ Отчет «Форма ПУ-1. Тип - изменение анкетных данных»

_ Отчет «Форма ПУ-1. Тип - восстановление»

_ Отчет «Форма ПУ-2. Тип - корректирующая»

_ Отчет «Форма ПУ-2. Тип - отменяющая»

В форме ПУ-3 тип «назначение пенсии» заполняются (или выбираются "+"):

_ в соответствии с датой рождения (начисления за период с начала года, предшествующий дате рождения);

_ если выбран флаг досрочно, любой сотрудник (начисления за период с начала года до даты конца отчетного периода).

По достижении пенсионного возраста в этом же году следует выпустить ПУ-3 тип «отменяющая» за период с начала года до даты конца отчетного периода, что был выбран в назначении пенсии, и выпустить.

В форме ПУ-3 тип «исходная» заполняются (или выбираются "+") те, у кого были отчисления в пенсионный фонд за текущий год.

Сведения о сотрудниках, достигших пенсионного возраста в отчетном году, разбиваются на две части:

_ начисления по месяц, предшествующий месяцу рождения _ в форме ПУ-3 тип «назначение пенсии» (рисунок 3.15);

_ начисления за оставшиеся месяцы _ в форме ПУ-3 тип «исходная» (рисунок 3.14).

В форме ПУ-3 тип «корректирующая» заполняются (или выбираются "+") те сотрудники, у которых корректировались начисления за отчетный период (рисунок 3.16), в периоде, выбираемом дополнительно в предложенном диалоге (Например, отчетный период - прошлый год, корректура в текущем году, или отчетный период _ текущий год, корректура в одном из последующих месяцев текущего года).

В форме ПУ-3 тип «отменяющая» выбираются "+" или заполняются из архива те сотрудники, сведения на которых были сданы в Фонд, но оказались неверными или неполными (рисунок 3.17). Например, при начислении пенсии не включен месяц ухода на пенсию. В случае, если месяц попадает на другой квартал, следует подавать отменяющую форму и снова назначение пенсии, если в том же квартале, можно подать корректирующуюна этот месяц.

_ Отчета «Форма ПУ-3. Тип - исходная»

- Отчет «Форма ПУ-3. Тип - назначение пенсии»



- Отчет «Форма ПУ-3. Тип - корректирующая»

- Отчет «Форма ПУ-3. Тип - отменяющая»

Таким образом, можно сделать вывод о том, что интерфейс подсистемы удобный и интуитивно понятный. Система полностью удовлетворяет поставленной задаче и запросам пользователя.

4. ТЕХНИКО-ЭКОНОМИЧЕСКОЕ ОБОСНОВАНИЕ ПОДСИСТЕМЫ ПЕРСОНИФИЦИРОВАННОГО УЧЕТА

4.1 Краткая характеристика программного средства

Задача дипломного проекта заключалась в автоматизации системы персонифицированного учета на ОАО «Пеленг». В качестве среды разработки была использована система «1С: Предприятие» версия 7.7. Реализация проекта позволила автоматизировать и оптимизировать процесс составления отчетов персонифицированного учета для предоставления в органы социального обеспечения, что позволило улучшить работу предприятия и обеспечить экономический рост путем сокращения времени на поиск и обработку данных, сокращения числа возможных ошибок и опечаток, ускорения выдачи запрашиваемых документов. Использование среды «1С: Предприятие» в свою очередь гарантирует возможность перенастройки, модификации программного средства.

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

4.2 Расчет сметы затрат и цены программного обеспечения

Приведем таблицу с исходными данными для расчета сметы затрат и цены программного обеспечения (таблица 4.1).

Расчеты произведены на 1 мая 2010 года.

Таблица 4.1 - Таблица с исходными данными для расчета

Наименование показателей	Буквенные обозначения	Единицы измерения	Количество
1	2	3	4
Коэффициент новизны		единиц	0,7
Группа сложности		единиц	3
Дополнительный коэффициент сложности		единиц	0,07
Поправочный коэффициент, учитывающий использование типовых программ		единиц	0,7
Продолжительность рабочего дня		часов	8
Установленная плановая продолжительность разработки		дней	190
Годовой эффективный фонд времени		дней	236
Тарифная ставка 1-го разряда		тыс. руб.	81
Коэффициент премирования		единиц	1,5
Норматив дополнительной заработной платы		%	20
Ставка отчислений в фонд соц. защиты населения		%	34
Норматив командировочных расходов		%	30
Норматив накладных расходов		%	100
Норматив прочих затрат		%	20
Ставка налогов на добавленную стоимость		%	20
Уровень рентабельности		%	20
Цена одного машино-часа		руб.	1000
Норматив расходов на сопровождение ПО		%	20
Норматив расходов на освоение ПО		%	10
Норма расходов материалов		%	3

Приведем перечень функций для разрабатываемого программного модуля: «Персонифицированный учет в среде «1С: Предприятие» версии 7.7» (таблица 4.2).

Таблица 4.2 - Перечень функций разрабатываемого программного модуля

Номер функции	Содержание функций	Объем функций (строк исходного кода) с использованием среды разработки приложений 1С
1	2	3
101	Организация ввода информации	100
102	Контроль, предварительная обработка и ввод информации	520
203	Формирование базы данных	1700
204	Обработка наборов и записей базы данных	6400
207	Манипулирование данными	8300
506	Обработка ошибок и сбойных ситуаций	430
507	Обеспечение интерфейса между компонентами	730
706	Предварительная обработка и печать отчетов	540

По степени новизны ПС относится к группе "В" с коэффициентом 0.7, так как не используется ни новый тип ЭВМ, ни новый тип ОС.

ПС относится ко 3 группе сложности.

Дополнительный коэффициент сложности равен 0,07, так как проводится обработка данных сложной структуры.

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

В реализации проекта участвуют 1 исполнитель: инженер-программист без категории (тарифный разряд - 12; тарифный коэффициент - 2,84; продолжительность участия в разработке ПС - 190 дней).

При помощи исходных данных, приведенных в таблице 4.2, рассчитаем общий объем программного продукта по формуле

		(4.1)

где -- общий объем ПС;

-- объем функций ПС;

n -- общее число функций.

Таким образом, получим общий объем программного продукта, подставив данные в формулу (4.1):

На основании принятого к расчету объема и категории сложности нормативная трудоемкость разработки программного средства:  человеко-дня.

Нормативная трудоемкость служит основой для определения общей трудоемкости по формуле

		(4.2)

где -коэффициент, учитывающий сложность ПО;

-поправочный коэффициент, учитывающий степень использования при разработке стандартных модулей;

-коэффициент, учитывающий степень новизны ПО.

Определим общую трудоемкость по формуле (4.2):

Коэффициент сложности рассчитывается по формуле



		(4.3)

где - коэффициент, соответствующий степени повышения сложности за счет конкретной характеристики;

- количество учитываемых характеристик.

Определим коэффицинт сложности, подставив данные в формулу (4.3):

На основе общей трудоемкости определяются плановое число разработчиков по формуле

	,	(4.4)

где - эффективный фонд времени одного рабочего в течение года, дней (дней);

- общая трудоемкость разработки проекта, человеко-дней;

- срок разработки проекта, лет (=0,8 года).

Плановое число разработчиков рассчитывается по формуле (4.4):

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

Месячная тарифная ставка исполнителя определяется по формуле 4.5 путем умножения действующей месячной тарифной ставки 1-го разряда на тарифный коэффициент

		(4.5)

Определяется месячная тарифная ставка инженера-программиста по формуле (4.5):

Часовая тарифная ставка рассчитывается по формуле (4.6) путем деления месячной тарифной ставки на установленную при 40-часовой недельной норме рабочего времени расчетную среднемесячную норму рабочего времени в часах

		(4.6)

Определяется часовая тарифная ставка инженера-программиста по формуле (4.6):

Основная заработная плата исполнителя рассчитывается по формуле

		(4.7)

где -количество исполнителей, занятых разработкой конкретного ПО;

-часовая тарифная ставка -го исполнителя, руб;

-количество часов работы в день, ч;

-эффективный фонд рабочего времени -го исполнителя, дни;

-коэффициент премирования.

После подстановки значений в формулу (4.7), получим:

Дополнительная заработная плата на конкретное ПО включает все выплаты, предусмотренные законодательством о труде. Определяется по нормативу в процентах к основной заработной плате по формуле

		(4.8)

Определим дополнительную заработную плату, подставив данные в формулу (4.8):

Отчисления в фонд социальной защиты населения определяются по формуле (4.9) в соответствии с действующими законодательными актами по нормативу в процентном соотношении к фонду основной и дополнительной зарплаты исполнителей, определенной по нормативу, установленному в целом по организации:

		(4.9)

Подставим все значения в формулу (4.9) для определения отчислений в фонд соцтальной защиты начеления:

Расходы по статье «Материалы» определяются на основании сметы затрат, разрабатываемой на ПО с учетом действующих нормативов по формуле

		(4.10)

Рассчитаем расходы по статье «Материалы» по формуле (4.10)

Расходы по статье «Спецоборудование» , руб., включают затраты на приобретение технических и программных средств, необходимых для разработки конкретного программного средства, включая расходы на их проектирование, изготовление, отладку, установку и эксплуатацию, и определяются по формуле (4.11)

	,	(4.11)

где -стоимость конкретного специального оборудования, закупаемого для разработки и использования данного проекта, рублей;

-количество применяемого специального оборудования.

В данном случае расходов на спецоборудование нет.

Расходы по статье «Машинное время» , руб., определяются по формуле

		(4.12)

где - цена одного машино-часа, руб;

- общий объем ПО, строк исходного кода;

- норматив расхода машинного времени на отладку 100 машинных команд, машино-часов.

Определим расходы по статье «Машинное время», подставив все необходимые значения в формулу (4.12):

Расходы по статье «Научные командировки» определяются по нормативу, разрабатываемому в целом по научной организации, в процентах к основной заработной плате по формуле

		(4.13)

Рассчитаем расходы по статье «Научные командировки» по формуле (4.13):

Расходы по статье «Прочие затраты» определяются по нормативу, разрабатываемому в целом по научной организации, в процентах к основной заработной плате. Для расчета расходов используем формулу

		(4.14)

Подставив значения в формулу (4.14), получим:

Затраты по статье «Накладные расходы» вычисляются по формуле

		(4.15)

Рассчитаем затраты по формуле (4.15):

Общая сумма расходов по всем статьям сметы на ПО рассчитывается по формуле

		(4.16)

Подставим все необходимые значения в формулу (4.16) и рассчитаем общую сумму расходов по всем статьям:

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

		(4.17)

где - уровень рентабельности ПО, %;

- себестоимость ПО, руб.

Определим прибыль по формуле (4.17):

Прогнозируемая цена без учета налогов определяется по следующей формуле

		(4.18)

По формуле (4.18) рассчитаем прогнозируемую цену без учета налогов:

Налог на добавленную стоимость НДСi, рассчитывается по формуле

		(4.19)

Подставим все необходимые значения в формулу (4.19) и рассчитаем налог на добавленную стоимость:

Прогнозируемая отпускная цена программного обеспечения вычисляется по формуле

		(4.20)

Определим прогнозируемую отпускную цену по формуле (4.20):

Организация-разработчик участвует в освоении ПО и несет соответствующие затраты, на которые составляется смета, оплачиваемая заказчиком по договору. Затраты на освоение определяются по нормативу (Но=10%) от себестоимости ПО в расчете на три месяца и рассчитываются по формуле

		(4.21)

Рассчитаем затраты, подставив данные в формулу (4.21):

Организация-разработчик осуществляет сопровождение ПО и несет соответствующие расходы, которые оплачиваются заказчиком в соответствии с договором и сметой на сопровождение. Затраты на сопровождение по установленному нормативу (Нс=20%) от себестоимости ПО в расчете на год рассчитываются по формуле

		(4.22)

По формуле (4.22) рассчитаем затраты на сопровождение:

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

4.3 Оценка экономической эффективности применения ПО у пользователя

Для определения экономического эффекта от использования нового ПО у потребителя необходимо сравнить расходы по всем основным статьям сметы затрат на эксплуатацию нового ПО с расходами по соответствующим статьям традиционного (базового) варианта решения задач. При сравнении базового и нового вариантов ПО в качестве экономической эффективности будет выступать общая экономия всех видов ресурсов относительно базового варианта. При этом создание нового ПО окажется экономически целесообразным лишь в том случае, если все капитальные затраты окупятся за счет получаемой экономии в ближайшие 1-2 года.

Исходные данные для расчета экономической эффективности от применения ПО пользователем приведены в таблице 4.3.

Таблица 4.3 - Исходные данные для расчета экономического эффекта

Наименование показателей	Обозна-чения	Единицы измерения	Значение показателя
			в базовом варианте	в новом варианте
1	2	3	4	5
Капиталовложения, включая затраты пользователя на приобретение ПО		рубль	-	9 656 746
Затраты на освоение ПО		рубль	-	670 607
Затраты на сопровождение ПО		рубль	-	1 341 215
Затраты на доукомплектование ВТ техническими средствами в связи с внедрением нового ПО		рубль	-	0
Ставка налога на прибыль		%	-	24
Затраты на пополнение оборотных фондов, связанных с эксплуатацией нового ПО		рубль	-	0
Продолжительность освоения		месяц	1	1
Среднемесячная зарплата программиста		рубль	870 000	870 000
Коэффициент начислений на зарплату			1,5	1,5
Среднемесячное количество рабочих дней		день	22	22
Объем выполняемых работ	,	задача	900	900
Средняя трудоемкость работ в расчете на задачу	,	человеко-часов на задачу	6	1
Количество часов работы в день		час	8	8

Общие капитальные вложения заказчика, связанные с приобретением, внедрением и использованием ПО, рассчитываются по формуле

		(4.23)

Подставим все необходимые значения в формулу (4.23) и рассчитаем общие капитальные вложения:

Экономия затрат на заработную плату при использовании нового ПО определяется по формуле

		(4.24)

где ? экономия затрат на заработную плату в расчете на 1 задачу, руб;

? объем выполненных работ с использованием нового ПО, задач.

Определим экономию затрат по формуле (4.23):

		(4.24)

Экономия затрат на заработную плату в расчете на одну задачу находится по формуле

		(4.25)

где ? среднемесячная заработная плата одного программиста, руб;

, - снижение трудоемкости работ в расчете на одну задачу, человеко-часов;

? количество часов работы в день, ч;

- среднемесячное количество рабочих дней.

Экономия затрат по формуле (4.25) составит:

Экономия затрат с учетом начислений на зарплату получается по формуле

		(4.26)

Определим экономию затрат с учетом начислений по формуле (4.26):

Общая готовая экономия текущих затрат , связанных с использованием нового программного обеспечения, рассчитывается по формуле

		(4.27)

Получим значение годовой экономии затрат, подставив данные в формулу (4.27):

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

		(4.28)

где ? ставка налога на прибыль, .

Подставим необходимые значения в формулу (4.28):

В процессе использования нового ПО, чистая прибыль в конечном итоге возмещает капитальные затраты. Однако, полученные при этом суммы результатов и затрат по годам приводят к единому времени ? расчетному году (за расчетный год принят 2010 год) путем умножения результатов и затрат за каждый год на коэффициент приведения , который рассчитывается по формуле (4.29).

		(4.29)

где ?норматив приведения разновременных затрат и результатов;

?расчетный год, ;

?номер года, результаты и затраты которого приводятся к расчетному (2010 - 1; 2011 - 2; 2012 - 3; 2013 - 4).

Норматив приведения разновременных затрат и результатов для программных средств ВТ принимается равным 0,14. Коэффициентам приведения по годам соответствуют следующие значения:

- 2010 расчётный год;

- 2011 год;

- 2012 год;

- 2013 год.

Данные расчета экономической эффективности, рассчитанные в данном разделе, сведены в таблицу 4.4.

Таблица 4.4 - Расчет экономического эффекта от использования нового ПО

Показатель	Ед. изме-рения	Годы
		2010-й	2011-й	2012-й	2013-й
1	2	3	4	5	6
Результаты
Прирост прибыли за счет экон. затрат (Пч)	тыс.руб.		25 358,616	25 358,616	25 358,616
То же с учетом фактора времени	тыс.руб.		22 242,042	19 513,455	17 117,066
Затраты
Приобретение ПО (Кпр)	тыс.руб.	9 656,746	-	-	-
Освоение (Кос)	тыс.руб.	670,607	-	-	-
Экономический эффект
Сопровождение (Кс)	тыс.руб.	1 341,215	-	-	-
Затраты на доукомплектование ВТ техническими средствами (Ктс)	тыс.руб.	0	-	-	-
Всего затрат	тыс.руб.	11 668,568	-	-	-
То же с учётом фактора времени	тыс.руб.	11 668,568	-	-	-
Превышение результата над затратами	тыс.руб.	-11 668,568	22 242,042	19 513,455	17 117,066
То же с нараст. итогом	тыс.руб.	-11 668,568	10 573,474	30 086,929	47 203,995
Коэффициент приведения	Ед.	1	0,88	0,77	0,68

4.4 Результаты анализа технико-экономической составляющей проекта

Основываясь на расчетах можно сделать вывод о том, что данное программное средство позволяет уменьшить сложность, трудоемкость, способно более рационально использовать временные ресурсы, получить значительную экономию средств, обеспечить получение максимального эффекта за счет автоматизации обработки данных. Разработанное программное средство является экономически выгодным как для разработчика, который получит чистую прибыль в размере 25 358 616, так и для заказчика, затраты которого окупятся в течение одного года. Программное средство можно признать эффективным и полезным.

5. ОХРАНА ТРУДА. ОПТИМИЗАЦИЯ ЗРИТЕЛЬНОГО ВЗАИМОДЕЙСТВИЯ ПОЛЬЗОВАТЕЛЯ СИСТЕМЫ 1С 7.7 «ЗАРПЛАТА И КАДРЫ» СО СРЕДСТВАМИ ОТОБРАЖЕНИЯ ИНФОРМАЦИИ

Разрабатываемая в дипломном проекте подсистема предназначена для пользователя системы 1С 7.7 «Зарплата и кадры». При этом большую часть времени данный специалист проводит за компьютером. При работе пользователя с системой информационное взаимодействие с компьютером происходит через такое средство отображения информации как монитор.

Основными видами работ на компьютере с использованием мониторов являются:

_ считывание информации с экрана с предварительным запросом;

_ ввод информации;

_ творческая работа в режиме диалога с ПЭВМ [9].

При работе на компьютере выделяют следующие опасные и вредные факторы, влияющие на возникновение зрительного утомления и других проблем со зрением:

_ возникновение на экране монитора статистических зарядов, заставляющих частички пыли двигаться к ближайшему заземлённому предмету, часто им оказывается лицо оператора;

_ повышенный уровень шума на рабочем месте;

_ повышенный уровень статистического электричества при неправильно запроектированной рабочей зоне;

_ широкий спектр излучения от дисплея, который включает рентгеновскую, ультрафиолетовую и инфракрасную области, а также широкий диапазон электромагнитных излучений других частот;

_ повышенный уровень электромагнитных излучений;

_ отсутствие или недостаток естественного света;

_ недостаточная освещенность рабочей зоны;

_ повышенная яркость света;

_ пониженная контрастность;

_ повышенная пульсация светового потока (мерцание изображения);

_ длительное пребывание в одном и том же положении и повторение одних и тех же движений приводит к синдрому длительных статических нагрузок (СДСН);

_ большой объем перерабатываемой информации приводит к значительным нагрузкам на органы зрения [10].

Для обеспечения оптимальных условий зрительной работы операторов существуют следующие инженерно-психологические требования к средствам отображения информации:

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

б)Конструкция ВДТ должна обеспечивать возможность фронтального наблюдения экрана путем поворота корпуса в горизонтальной плоскости вокруг вертикальной оси в пределах ±30° и в вертикальной плоскости вокруг горизонтальной оси в пределах ±30 с фиксацией в заданном положении. На лицевой стороне корпуса ВДТ не рекомендуется располагать органы управления, маркировку, какие-либо вспомогательные надписи и обозначения.

в)Для обеспечения надежного считывания информации при соответствующей степени комфортности ее восприятия должны быть определены оптимальные и допустимые диапазоны визуальных эргономических параметров, определенных СанПиН 9-131 РБ 2000:

_ яркость знака (яркость экрана) - от 35 до 120;

_ внешняя освещенность экрана - от 100 до 250 лк;

_ угловой размер знака - от 16 до 60 угл. мин [11].

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

Разработка программного обеспечения производиться в помещении ОАО «Пеленг» следующих размеров: длина _ 10 м, ширина - 8 м, высота - 4 м. В помещении выполняются работы высокой точности разряда III в. Содержание в воздушной среде рабочей зоны пыли, дыма и копоти составляет менее 1 мг/м2 (нормальные воздушные условия). Коэффициенты отражения от потолка - 50 %; от стен - 30 %; от рабочей поверхности - 10 %. Освещение обеспечивается светильниками ЛПО46 длиной 1,235 м, подвешенными в 2 ряда по 6 светильников в каждом. Рабочие места расположены у стен, высота рабочей поверхности 0,8 м.

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

Определим расчетную высоту подвеса светильника hp, м, по формуле (5.1)

	(5.1)

где - высота помещения 4 м;

- расстояние от светильника до потолка;

- высота рабочей поверхности.

Определим расстояние между светильниками L, м, из выражения

	(5.2)

где - оптимальное отношение расстояния между светильниками L к высоте их подвеса . Пусть = 1,6 [12].

Учитывая расположение рабочих мест, определим расстояние от светильников до стен по формуле

	(5.3)

Подставим значение в формулу (5.3) и получим:

	(5.3)

Используя полученные значения L, Lc и данные о размерах помещения, определим, какое количество светильников можно разместить данном помещении. Оценим, сколько рядов светильников можно разместить в помещении шириной 8 метров. Для этого используем следующую формулу

	(5.4)

где - расстояние от светильников до стен;

- расстояние между светильниками;

- количество светильников;

- ширина помещения.

Таким образом, по формуле (5.4) получим:

.

Значит, в данном рассматриваемом помещении светильники можно разместить не более чем в 2 ряда.

Определим количество светильников в ряду. Ширина светильников ЛПО46 равняется 1,235 м. Рассчитаем количество светильников по формуле

	(5.5)

где - расстояние от светильников до стен;

- длина светильника;

- количество светильников;

- длина помещения.

Таким образом, подставив значения в формулу (5.5) получим:

.

Следовательно, в одном ряду может быть не более 6 светильников ЛПО46 2x36.

Определим коэффициент использования светового потока, который зависит от показателя помещения i, типа светильников, коэффициентов отражения стен, потолка и рабочей поверхности (pc=30%, pn=50%, pp=10%,). Показатель помещения i вычисляется по формуле

	(5.6)

где и - длина и ширина производственного помещения,

_ высота подвеса светильника.

Определим показатель помещения i по формуле (5.6):

На основе полученного показателя i, определим коэффициент использования светового потока з, получим, что з=0,46.

Работу программиста, можно отнести к разряду точных работ. Учитывая характер выполняемых работ, найдем нормативную освещенность данного помещения. В данном случае =200.

Определим коэффициент запаса . В соответствии с условиями =1,5.

Определим световой поток одного светильника по формуле

	(5.7)

где _ нормативная освещенность, Лк (определяется по таблице).

_ площадь освещаемого помещения ( в нашем случае  = 80 м2);

- коэффициент, характеризующий неравномерность освещения. Он зависит от отношения расстояния между светильниками к высоте их подвеса, с увеличением этого отношения значение возрастает (обычно принимается равным 1.1-1.2 , пусть = 1.1);

_ коэффициент запаса, учитывающий уменьшение светового потока лампы в результате загрязнения светильников в процессе эксплуатации (его значение определяется по таблице коэффициентов запаса для различных помещений и в нашем случае = 1.5);

- количество светильников;

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

Подставим все значения в формулу (5.7) для определения светового потока Ф:

Поскольку в светильнике ЛПО46 2x36 две лампы, то световой поток лампы должен быть в 2 раза меньше светового потока светильника:

Фл=Ф/2=4782/2=2391, лм - если в ряду 6 светильников [9].

Определим, какая лампа имеет требуемый поток и по длине может быть использована в светильниках ЛПО46 2x36. Наилучшим вариантом является лампа ЛХБ 36-7 со световым потоком 2700 лм и длиной 1213,6 мм.

Допускается отклонение светового потока лампы не более чем на _ 10…+20 %. Для этого выполним проверку [12] с помощью формулы

	(5.8)

Подставим значения в формулу (5.8) и получим:

Таким образом, отклонение составило 13 %, что является допустимым.

После расчетов можно сделать вывод, что расположение светильников на предприятии соответствует требованиям норм. Светильники расположены в два ряда, общее количество светильников в ряду - шесть (рисунок 5.1). Для освещения помещения следует использовать лампы ЛХБ 36-7.

Рисунок 5.1 - Размещение светильников на плане помещения

ЗАКЛЮЧЕНИЕ

В данном дипломном проекте был разработан программный продукт для автоматизации подсистемы персонифицированного учета на предприятии «Пеленг» на базе среды «1С: Предприятие 7.7» конфигурации «Зарплата и кадры». Разработанная подсистема позволила автоматизировать и оптимизировать процесс составления отчетов персонифицированного учета для предоставления в органы социального обеспечения, что позволило улучшить работу предприятия и обеспечить экономический рост путем сокращения времени на поиск и обработку данных, сокращения числа возможных ошибок и опечаток, ускорения выдачи запрашиваемых документов. Использование среды «1С: Предприятие» в свою очередь гарантирует возможность перенастройки, модификации программного средства.

Разработка данного приложения началась с описания и анализа объекта разработки, затем была конкретно сформулирована и поставлена задача разработки, а для наглядности была построена концептуальная модель системы. Далее, ориентируясь на концептуальную модель и задачу разработки, было выбрано информационное обеспечение системы. После этого в выбранной среде было создано приложение, отвечающее всем поставленным целям и задачам. В дипломном проекте была представлена детальная структура программного комплекса, иллюстрированные и подробно описанные руководства системного программиста и оператора.

В разделе «Технико-экономическое обоснование проекта» выполнен расчёт стоимости разработки подсистемы в соответствии с нормативами и налогами, действующими в настоящее время на территории РБ. Применение данной разработки является экономически выгодным. Экономический эффект у разработчика данного проекта составит 25 358 616 рублей. Затраты заказчика на данное программное средство окупятся в течение одного года.

В разделе «Охрана труда» рассмотрены вредные и опасные факторы, влияющие на зрение пользователей системы, инженерно-психологические требования к средствам отображения информации, был произведен расчет искусственного освещения помещения ОАО «Пеленг».

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

Классификация автоматизированных информационных систем [Электронный ресурс] - Режим доступа: http://sysinform.ru/klassifikaciya-ais, свободный. - Загл. с экрана.

ERP системы. Современное планирование и управление ресурсами предприятия. Выбор, внедрение эксплуатация / Дэниел О'Лири; [Пер. с англ. Ю.И. Водяновой]. - М.: ООО «Вершина», 2004. - 272с.

Профессиональная разработка в системе 1С:Предприятие / А.П. Габец [и др.]. - СПб. : ООО «1С-Паблишинг», 2007. - 808 с.

Митичкин, С.А. Практика программирования в среде 1С:Предприятие 7.7./ С.А. Митичкин. - М.: Издательский Дом «КомБук», 2004. - 272с.

Михайлов, С.Е. 1С программирование как дважды два. Самоучитель / С.Е. Михайлов. - СПб.: ООО «Тритон», 2005. - 173с.

О компании [Электронный ресурс] - Режим доступа: http://peleng.by, свободный. - Загл. с экрана.

Учебник по 1С:Предприятие [Электронный ресурс] - Режим доступа http://mista.ru/tutor_1c/index.htm, свободный. - Загл. с экрана.

Палицын, В.А. Технико-экономическое обоснование дипломных проектов: метод. пособие для студентов всех специальностей БГУИР. В 4 ч. Ч. 4. Проекты программного обеспечения / В.А. Палицын. - Мн.: БГУИР, 2006. - 76 с.

Охрана труда. Проектирование и расчет производственного освещения: методическое пособие / Н.В. Щербина, Д.А. Мельниченко, А.В. Копыток. - Минск: БГУИР, 2009. - 37с.

Опасные и вредные факторы. ПЭВМ. [Электронный ресурс]. - Электронные данные. - Режим доступа: http://infograd.mos.ru/.

СанПиН 9-131 РБ 2000. Гигиенические требования к видеодисплейным терминалам, электронно-вычислительным машинам и организации работы.

Оценка искусственного освещения в производственных помещениях: методическое пособие /А.Ю. Борбот, Е.Н. Зацепин, А.И. Навоша. Мн.: БГУИР, 2002. - 16 с.

ПРИЛОЖЕНИЕ А

(обязательное)

Листинг программы персонифицированного учета

//*******************************************

Перем Запрос,Док,ДокСв,ЖрнЗарплата,Кадр,Сотр,ДПУ,Дог,ТекДог; //,КадрЭ

Перем Слои[4],Назв[4],СтНомер,НазвПУ;

Перем ТЗ,ТЗ_,тзНач,тзСт,_ЗаМесяцы;

Перем ДатаП,ДатаУ;

Перем Т1,Т2,Т3,Т4,Тпачка,ТЛист,ФПУ,кол03,Список;

Перем СтПенс;

Перем КодМР,КодПричины;

Перем Индекс,Область,Район,Город,НП,Улица,Дом,Корпус,Квартира;

Перем ДатаР,Ргород,Ррайон,Робласть,Рстрана,ПолМ,ПолЖ,БелДА,БелНет,Пол,Бел;

Перем ДокументВид,ДокументСерия,ДокументНомер,ДокументДатаВыдачи,ДокументЛичныйНомер,ДокументКемВыдан,СтраховойНомер;

Перем ФамилияСт,ИмяСт,ОтчествоСт,ДатаРст;

Перем Имя,Отчество,Фамилия;

Перем СтрокаСост,ТТ;

Перем Г,Кв,НазвМесяца[12];

Перем НеЗаписан;

Перем ИсхНомер,НомерПФ,КНО,НомерНалогоплательщика,ГлБух;

Перем ВыпИт,ПосИт,ВзнИт,ВзнИт1,ВзнИт35,НпоП,Ни,НеоблИт;

Перем СтрНач;

Перем ДатаЗаполнения,Кварталы,Год;

Перем Вып,Пос,Взн;

Перем Списком;

Перем НачалоПенсия,ОкончаниеПенсия,КоэфПенсия;

Перем НачКор,КонКор;

//*******************************************

Процедура ПриРедактированииТЗ(тз_)

Перем ТекКол,текСтр;

ТекКол=ТЗ_.ТекущаяКолонка();

ТекСтр=ТЗ_.ТекущаяСтрока();

ЗначВвода=тз_.ПолучитьЗначение(ТекСтр,ТекКол);

ВВестиЗначение(ЗначВвода,"исправьте значение ","Строка",36);

Тз_.УстановитьЗначение(ТекСтр,ТекКол,ЗначВвода);

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

//****************************************

Процедура ПриВводеНомера(ДЛН)

СЗ=СоздатьОбъект("СписокЗначений");

СЗ.ИзСтрокиСРазделителями("""0"",""1"",""2"",""3"",""4"",""5"",""6"",""7"",""8"",""9"",""A"",""B"",""C"",""D"",""E"",""F"",""G"",""H"",""I"",""J"",""K"",""L"",""M"",""N"",""O"",""P"",""Q"",""R"",""S"",""T"",""U"",""W"",""V"",""X"",""Y"",""Z");

Рез=0; СтрПр="7317317317317";

Для КК=1 по 13 Цикл

найз=СЗ.НайтиЗначение(Сред(ДЛН,КК,1)); //

Рез=Рез+(НайЗ-1)*Число(Сред(СтрПр,КК,1));

КонецЦикла;

Рез=((Рез/10)-Цел(Рез/10))*10;

Если Число(Сред(ДЛН,14,1))<>Рез тогда

сообщить(""+"неверный страховой номер "+ДЛН+"_"+Кадр.Владелец);

КонецЕсли;

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

//*******************************************

Процедура ТПК()

Если (Подр.Выбран()=1) и ( Подр.Код="ТПК") тогда

Руководитель="Пруидзе И.Г." ; НомерПФ=Константа.НомерДляПФ_тпк;

НомерНалогоплательщика=Константа.НомерНалогоплательщикаТПК;

КНО="Торгово-производственный комплекс ";

ГлБух="Томина С.П.";

Иначе

Руководитель="Малинка В.И." ; НомерПФ=Константа.НомерДляПФ; КНО="";

НомерНалогоплательщика=Константа.НомерНалогоплательщика;

ГлБух="Городова Ж.А.";

КонецЕсли;

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

//*******************************************

Процедура ПрисвоитьСтраховойНомер()

Если ТЗ=ТЗ3 тогда возврат; КонецЕсли;

ТЗ.ВыбратьСтроки();

Пока ТЗ.ПолучитьСтроку()=1 Цикл

Если Кадр.НайтиЭлемент(ТЗ.Наименование)=1 тогда

ДЛН=Кадр.НомСтраховой; ДЛН=Кадр.ДокументЛичныйНомер;

Если ТЗ=ТЗ1 тогда ВвестиСтроку(ДЛН,"Введите страховой номер "+ТЗ.Наименование.Владелец ,14);

Кадр.ПУ="1"+Сред(Кадр.ПУ,2); //Кадр.ПУ="1";

Кадр.НомСтраховой=ДЛН;

ПриВВодеНомера(ДЛН);

ИначеЕсли ТЗ=ТЗ2 тогда

Кадр.НомСтраховой=кадр.ДокументЛичныйНомер;

Кадр.ПУ="2"+Сред(Кадр.ПУ,2); //Кадр.ПУ="2";

КонецЕсли;

Кадр.Записать();

Если (Кадр.Владелец.ДатаРождения=Дата(0)) и (ПустоеЗначение(Кадр.ДокументЛичныйНомер)=0) тогда

ДатаР=Дата(Сред(ДокументЛичныйНомер,2,2)+"."+Сред(ДокументЛичныйНомер,4,2)+".19"+Сред(ДокументЛичныйНомер,6,2));

Если Сотр.НайтиЭлемент(Кадр.Владелец)=1 тогда Сотр.ДатаРождения=ДатаР; Сотр.Записать();

КонецЕсли;

КонецЕсли;

КонецЕсли;

КонецЦикла;

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

//**********************************************

Функция ОпрЗаМесяцы()

Если Списком=1 тогда возврат ""; конецесли;

Замесяцы="";

НачКор=НачМесяца(ТекущаяДата());

КонКор=КонМесяца(ТекущаяДата());

Если ВвестиПериод(НачКор,КонКор,"введите период, в котором корректировались записи")=1 тогда

Для лл=ДатаМесяц(НачКор) по ДатаМесяц(КонКор) цикл

ЗаМесяцы=ЗаМесяцы+Формат(лл,"Ч(0)2");

КонецЦикла;

Конецесли;

Возврат ЗаМесяцы;

КонецФункции

//*******************************************

Функция ФормДата(ДатаВх)

Если ПустоеЗначение(ДатаВх)=1 Тогда ДатаВых="";

Иначе

ДатаВых=СтрЗаменить(Формат(ДатаВх,"Д ДДММГГГГ"),".","/");

КонецЕсли;

Возврат ДатаВых;

КонецФункции

//*******************************************

Функция СтрокаСотрудник()

Если тз.КоличествоСтрок()>0 тогда

СтрСот=Тз.Наименование.Владелец.Код+" ("+Тз.Наименование.Владелец.ДатаРождения+") "+Лев(ТЗ.Наименование.ПУ,1)+ТЗ.Наименование+ "("+ТЗ.Наименование.Владелец.Подразделение.Получить(ДатаК)+") /";

Пр=?(ТЗ.Наименование.Владелец.ПриказОПриеме.Вид()="ПриказОПриемеНаРаботу",ТЗ.Наименование.Владелец.ПриказОПриеме.ДатаПриема,ТЗ.Наименование.Владелец.ПриказОПриеме.Начало);

Ув=?(ТЗ.Наименование.Владелец.ПриказОбувольнении.Вид()="ПриказОбУвольнении","-"+ТЗ.Наименование.Владелец.ПриказОбУвольнении.ДатаУвольнения,"");

СтрСот=СтрСот+Пр+ув;

КонецЕсли;

Возврат СтрСот;

КонецФункции

//*******************************************

Процедура ОпределитьПериод(ДатаПерН,ДатаПер,Кв,Г)

Г=ДатаГод(ДатаПер);

Если (тз=тз3) и ((тз.Тип="П") или (тз.Тип="О")) тогда

Кв="";

Кв=?((ДатаМесяц(ДатаПер)>=1) и (ДатаМесяц(ДатаПер)<=3),"1",Кв);

Кв=?((ДатаМесяц(ДатаПер)>=4) и (ДатаМесяц(ДатаПер)<=6),"12",Кв);

Кв=?((ДатаМесяц(ДатаПер)>=7) и (ДатаМесяц(ДатаПер)<=9),"123",Кв);

Кв=?((ДатаМесяц(ДатаПер)>=10) и (ДатаМесяц(ДатаПер)<=12),"1234",Кв);

Иначе

Кв1=?((ДатаМесяц(ДатаПерН)=1) и (ДатаМесяц(ДатаПер)>=3),"1","");

Кв2=?((ДатаМесяц(ДатаПерН)<=4) и (ДатаМесяц(ДатаПер)>=6),"2","");

Кв3=?((ДатаМесяц(ДатаПерН)<=7) и (ДатаМесяц(ДатаПер)>=9),"3","");

Кв4=?((ДатаМесяц(ДатаПерН)<=10) и (ДатаМесяц(ДатаПер)=12),"4","");

Кв=Кв1+Кв2+Кв3+Кв4; // сообщить("!"+Кв+"!");

КонецЕсли;

Если (тз=тз3) и ((тз.Тип="И") ) тогда

Кв=?((ДатаМесяц(ТЗ.Наименование.СправкаВСобесПо)>=10) и (ДатаМесяц(ТЗ.Наименование.СправкаВСобесПо)<=12),"4",Кв);

КонецЕсли;

Кв=?(КВ=""," ",Кв);

//

//Кв1=?(ДатаМесяц(ДатаПер)=3,"1",Кв);

// Кв=?(ДатаМесяц(ДатаПер)=6,"12",Кв);

// Кв=?(ДатаМесяц(ДатаПер)=9,"123",Кв);

// Кв=?(ДатаМесяц(ДатаПер)=12,"1234",Кв); Кв=4;

СтПенс=константа.ПроцентПФ.получить(ДатаПер);

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

//*******************************************

Процедура РазобратьОстальное(Сотрудник,Кадр,ДатаР,Ргород,Ррайон,Робласть,Рстрана,Пол,Бел,ДокументВид,

ДокументСерия,ДокументНомер,ДокументДатаВыдачи,ДокументЛичныйНомер,ДокументКемВыдан,

СтраховойНомер,ФамРанее,ИмяРанее,ОтчРанее,ДатаРст);

ДатаР=ФормДата(Сотрудник.ДатаРождения);

Ргород=ВРег(Кадр.РождениеГород); Ргород=СтрЗаменить(Ргород,"Г.",""); Ргород=СтрЗаменить(Ргород,"Д.","");

Ррайон=ВРег(Кадр.РождениеРайон);

Робласть=ВРЕГ(Кадр.РождениеОбласть);

Рстрана=ВРег(Кадр.РождениеСтрана);

ПолМ=?(Нрег(СокрЛП(Кадр.Пол))="мужской","Х","");

ПолЖ=?(НРег(СокрЛП(Кадр.Пол))="женский","Х","");

Пол=?(ПолМ="Х","М","Ж");

БелДА=?(СокрЛП(Кадр.Гражданство)="БЕЛАРУСЬ","Х","");

БелНет=?(СокрЛП(Кадр.Гражданство)="БЕЛАРУСЬ","","Х");

Бел=?(БелДА="Х",1,0);

ДокументВид= Кадр.ДокументВид;

ДокументСерия= Кадр.ДокументСерия;

ДокументСерия = СтрЗаменить(ДокументСерия,"1","I");

ДокументСерия = СтрЗаменить(ДокументСерия,"У","V");

ДокументСерия = СтрЗаменить(ДокументСерия,"Х","X"); //ДокументСерия = СтрЗаменить(ДокументСерия,"L","Л");

ДокументСерия = СтрЗаменить(ДокументСерия,"C","С");

ДокументСерия = СтрЗаменить(ДокументСерия,"B","В");

ДокументСерия = СтрЗаменить(ДокументСерия,"H","Н");

ДокументНомер=Кадр.ДокументНомер;

ДокументДатаВыдачи=ФормДата(Кадр.ДокументДатаВыдачи);

ДокументЛичныйНомер=Кадр.ДокументЛичныйНомер;

Если (Сотрудник.ДатаРождения=Дата(0)) и (ПустоеЗначение(ДокументЛичныйНомер)=0) тогда

ДатаР=Дата(Сред(ДокументЛичныйНомер,2,2)+"."+Сред(ДокументЛичныйНомер,4,2)+".19"+Сред(ДокументЛичныйНомер,6,2));

ДатаР=ФормДата(ДатаР);

КонецЕсли;

ДокументКемВыдан=Врег(Кадр.ДокументКемВыдан);

СтраховойНомер=Кадр.НомСтраховой;

ФамРанее=Врег(Фамилия);

ИмяРанее=Врег(Имя);

ОтчРанее=Врег(Отчество);

ДатаРст=ФормДата(Сотрудник.ДатаРождения);

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

//*******************************************

Процедура РазобратьАдрес(Адрес,АдресФ,Индекс)

Адр = Адрес;

// страну пропускаем

Адр = Сред(Адр,Найти(Адр,",")+1);

Индекс = Лев(Адр,Найти(Адр,",")-1);

Адр = Сред(Адр,Найти(Адр,",")+1);

Область = Лев(Адр,Найти(Адр,",")-1); Область=?(Область<>"",Область+ " обл. ","");

// регион пропускаем

Адр = Сред(Адр,Найти(Адр,",")+1);

Район = Лев(Адр,Найти(Адр,",")-1); Район=?(Район<>"",Район+" р-н ","");

Адр = Сред(Адр,Найти(Адр,",")+1);

Город = Лев(Адр,Найти(Адр,",")-1);

Адр = Сред(Адр,Найти(Адр,",")+1);

НП = Лев(Адр,Найти(Адр,",")-1);

Адр = Сред(Адр,Найти(Адр,",")+1);

Улица = Лев(Адр,Найти(Адр,",")-1);

Адр = Сред(Адр,Найти(Адр,",")+1);

Дом = Лев(Адр,Найти(Адр,",")-1); Дом=?(Дом<>"","д."+Дом+" ","");

Адр = Сред(Адр,Найти(Адр,",")+1);

Корпус = Лев(Адр,Найти(Адр,",")-1); Корпус=?(корпус<>"","к."+корпус+" ","");

Адр = Сред(Адр,Найти(Адр,",")+1);

Квартира = СокрЛП(Адр); Квартира=?(Квартира<>"","кв."+квартира,"");

АдресФ=Область+Район+Город+" "+Улица+" "+Дом+Корпус+Квартира;

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

//*******************************************

Процедура РазобратьИмя(Наименование,Имя,Отчество,Фамилия)

Наим=Наименование;

Фамилия=Лев(Наим,Найти(Наим," ")-1);

Наим=Сред(Наим,Найти(Наим," ")+1);

Имя=Лев(Наим,Найти(Наим," ")-1);

Наим=Сред(Наим,Найти(Наим," ")+1);

Отчество=СокрЛП(Наим);

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

//*******************************************

Процедура ЗаполнитьСтроку(Кадр,ФлагНС) //исправить,ввести,заполнить тз

перем имя,отчество,фамилия,Адрес,Индекс;

перем ДатаР,Ргород,Ррайон,Робласть,Рстрана,Пол,Бел,

ДокументСерия,ДокументНомер,ДокументДатаВыдачи,ДокументЛичныйНомер,ДокументКемВыдан,

СтраховойНомер,ФамРанее,ИмяРанее,ОтчРанее,ДатРанее;

Перем кодПФ;

//1*********************

Если (ТЗ=ТЗ1) Тогда

РазобратьИмя(Кадр.Владелец,Имя,Отчество,Фамилия);

РазобратьАдрес(Кадр.ФактАдрес,Адрес,Индекс) ;

РазобратьОстальное(Кадр.Владелец,Кадр,ДатаР,Ргород,Ррайон,Робласть,Рстрана,Пол,Бел,ДокументВид,

ДокументСерия,ДокументНомер,ДокументДатаВыдачи,ДокументЛичныйНомер,ДокументКемВыдан,

СтраховойНомер,ФамРанее,ИмяРанее,ОтчРанее,ДатРанее);

//11------регистрация-------------------------------------------------------------

Если (ТЗ=ТЗ1) и (П1=1) Тогда

Если ФлагПР=1 Тогда //для первоначальной регистрации: (для старых паспортов)

Если ДокументВид.КодДок<>"01" тогда //включать с другими документами (не паспорт РБ)

иначе //проверять личный номер

Если ПустаяСтрока(ДокументЛичныйНомер)=0 тогда Возврат; КонецЕсли;

КонецЕсли;

Если (ДатаУ<ДатаН) или (ДатаП>ДатаК) Тогда Возврат; КонецЕсли;

Иначе состояние(""+ДатаП+""+Кадр.Владелец); //для регистрации:(по мере приема)

Если ((ДатаП>ДатаК) или (ДатаП<ДатаН)) Тогда Возврат; КонецЕсли;

Если ПустаяСтрока(СтраховойНомер)=0 тогда

сообщить(""+Кадр.Владелец.Код+Кадр+" застрахован, номер:"+СтраховойНомер+". Анкета не нужна. Дата приема:"+ДатаП);

Возврат;

//Кадр.ПУ="1"+Сред(Кадр.ПУ,2); Кадр.Записать();

КонецЕсли;

КонецЕсли;

Если ФлагНС=1 Тогда ТЗ.НОВАЯСТРОКА(); ФлагНС=0; КонецЕсли;

ТЗ.ФПУ="ПУ-1"; ТЗ.Тип="Р"; ТЗ.РегНомер=номерПФ;

ТЗ.Наименование=Кадр;

ТЗ.Имя=Врег(Имя); ТЗ.Отчество=ВРЕГ(отчество); тз.фамилия=Врег(фамилия);

ТЗ.Адрес=ВРЕГ(Адрес); ТЗ.Индекс=Индекс;

ТЗ.ТелефонС=ТелефонКадр;

ТЗ.ДатаР=ДатаР; ТЗ.Ргород=Ргород; ТЗ.Ррайон=Ррайон; ТЗ.Робласть=Робласть; ТЗ.Рстрана=Рстрана;

ТЗ.Пол=Пол; ТЗ.Бел=Бел;

ТЗ.ДокументСерия=ДокументСерия; тз.ДокументНомер=ДокументНомер; ТЗ.ДокументДатаВыдачи=ДокументДатаВыдачи;

ТЗ.ДокументЛичныйНомер=ДокументЛичныйНомер; ТЗ.ДокументКемВыдан=ДокументКемВыдан;

ТЗ.ДатаЗ=ФормДата(ДатаЗ);

ТЗ.СтраховойНомер=СтраховойНомер;

ТЗ.ФамРанее=""; ТЗ.ИмяРанее=""; ТЗ.ОтчРанее=""; ТЗ.ДатРанее="";

Если КодМР="03" тогда Кол03=Кол03+1; конецесли;

КС=ТЗ.НомерСтроки;

Если (ПустаяСтрока(ДокументЛичныйНомер)=0) и (ДокументВид.КодДок="01") тогда //для новых паспортов достаточно

ТЗ.Заполнить(" ",КС,КС,"11,12,13,20,21,22,23");

КонецЕсли;

//12------изменение------------

ИначеЕсли (ТЗ=ТЗ1) и (П1=2) Тогда

Если (Кадр.ИзменениеАнкеты.Выбран()=1) тогда

Изм=Кадр.ИзменениеАнкеты;

Если (Изм.ДатаДок<ДатаН) или (Изм.ДатаДок>ДатаК) Тогда Возврат; КонецЕсли;

Если ФлагНС=1 Тогда ТЗ.НОВАЯСТРОКА(); ФлагНС=0; КонецЕсли;

ТЗ.ФПУ="ПУ-1"; ТЗ.Тип="И"; ТЗ.РегНомер=номерПФ;

ТЗ.ДатаЗ=ФормДата(ДатаЗ);

ТЗ.Наименование=Кадр;

ТЗ.Имя=Врег(сокрЛП(Изм.Имя)); ТЗ.Отчество=ВРЕГ(сокрЛП(Изм.отчество));

тз.фамилия=Врег(Изм.фамилия);

ТЗ.Адрес=ВРЕГ(Изм.Адрес); ТЗ.Индекс=Изм.Индекс;

ТЗ.ТелефонС=ТелефонКадр;

ТЗ.ДатаР=ФормДата(Изм.ДатаР); ТЗ.Ргород=Изм.Ргород; ТЗ.Ррайон=Изм.Ррайон; ТЗ.Робласть=Изм.Робласть;

ТЗ.Рстрана=?(Изм.Рстрана.Выбран()=1,Изм.Рстрана,"");

//****

//ТЗ.Пол=Пол;

ТЗ.Бел=Бел;

ТЗ.ДокументСерия=Изм.ДокументСерия; тз.ДокументНомер=Изм.ДокументНомер; ТЗ.ДокументДатаВыдачи=ФормДата(Изм.ДокументДатаВыдачи);

ТЗ.ДокументЛичныйНомер=Изм.ДокументЛичныйНомер; ТЗ.ДокументКемВыдан=Врег(Изм.ДокументКемВыдан);

ТЗ.ДатаЗ=ФормДата(ДатаЗ);

ТЗ.СтраховойНомер=Изм.СтраховойНомер;

ТЗ.ФамРанее=Врег(Изм.ФамРанее); ТЗ.ИмяРанее=Врег(Изм.ИмяРанее); ТЗ.ОтчРанее=Врег(Изм.ОтчРанее);

ТЗ.ДатРанее=ФормДата(Изм.ДатРанее);

КС=ТЗ.НомерСтроки;

КонецЕсли;

//13------восстановление------------

ИначеЕсли (ТЗ=ТЗ1) и (П1=3) Тогда

Если ФлагНС=1 Тогда ТЗ.НОВАЯСТРОКА(); ФлагНС=0; КонецЕсли;

ТЗ.ФПУ="ПУ-1"; ТЗ.Тип="В"; ТЗ.РегНомер=номерПФ;

ТЗ.Наименование=Кадр;

ТЗ.ДатаЗ=ФормДата(ДатаЗ);

ТЗ.СтраховойНомер=СтраховойНомер;

ТЗ.Пол=Пол; ТЗ.Бел=Бел;

ТЗ.ФамРанее=Врег(Фамилия); ТЗ.ИмяРанее=Врег(Имя); ТЗ.ОтчРанее=Врег(Отчество); ТЗ.ДатРанее=ДатаР;

КС=ТЗ.НомерСтроки;

ТЗ.Заполнить(" ",КС,КС,"5,6,7,8,10,11,12,13,14,15,16,17,18,19,20,21,22,23");

КонецЕсли;

//2****************************

ИначеЕсли (ТЗ=ТЗ2) Тогда

РазобратьИмя(Кадр.Владелец,Имя,Отчество,Фамилия);

РазобратьОстальное(Кадр.Владелец,Кадр,ДатаР,Ргород,Ррайон,Робласть,Рстрана,Пол,Бел,ДокументВид,

ДокументСерия,ДокументНомер,ДокументДатаВыдачи,ДокументЛичныйНомер,ДокументКемВыдан,

СтраховойНомер,ФамРанее,ИмяРанее,ОтчРанее,ДатРанее);

//21----------первоначальная регистрация--------------------------------------------------

Если (ТЗ=ТЗ2) и (П2=1) Тогда

Если ПустаяСтрока(ДокументЛичныйНомер)=1 тогда Возврат; КонецЕсли; //нет личного номера в паспорте

Если ДокументВид.КодДок="" тогда сообщить(""+кадр.Владелец.Код+""+Кадр+"не заполнены паспортные данные "); Возврат; КонецЕсли;

Если ДокументВид.КодДок<>"01" тогда сообщить(""+кадр.Владелец.Код+""+Кадр+"не паспорт гражданина РБ ");Возврат; КонецЕсли;

Если (ДатаУ<ДатаН) или (ДатаП>ДатаК) Тогда Возврат; КонецЕсли;

Если ФлагНС=1 Тогда ТЗ.НОВАЯСТРОКА(); ФлагНС=0; КонецЕсли;

ТЗ.ФПУ="ПУ-2"; ТЗ.Тип="Р"; ТЗ.РегНомер=номерПФ;

ТЗ.Наименование=Кадр; ТЗ.ДВИЖ="ДВИЖ";

ТЗ.Имя=ВРЕГ(Лев(Имя,1));

ТЗ.Отчество=ВРЕГ(Лев(отчество,1));

ТЗ.фамилия=ВРЕГ(фамилия);

ТЗ.СтраховойНомер=ДокументЛичныйНомер;

ТЗ.ДатаПриема=?(КодМР="01",ФормДата(Макс(ДатаН,ДатаП)),"");

ТЗ.ВидДоговора=КодМР; Если КодМР="03" тогда Кол03=Кол03+1; конецесли;

ТЗ.ДатаУвольнения="";

ТЗ.ПричинаУвольнения=""; //КодПричины 1,2

//22----------исходная----впервые 1-3 квартал 2003---------------------------------------------

ИначеЕсли (ТЗ=ТЗ2) и (П2=2) Тогда //уволенные и принятые за период , не "03"

Если КодМР="03" Тогда Возврат; КонецЕсли; //по договорам

Если (датаН=Дата("01.01.2003")) и (датаК=Дата("30.09.2003")) тогда

Если (ДатаУ<ДатаН) или (ДатаП>ДатаК) Тогда Возврат; КонецЕсли; //уволен раньше начала, принят позже конца

Если ПустоеЗначение(Кадр.НомСтраховой)=1 тогда

сообщить(""+ТТ+" нет стр№ "+": "+Кадр.НомСтраховой+" : "+ДатаП+"-"+?(ДатаУ=ДатаК+1,".......... ",ДатаУ)+" "+Кадр+"-"+Лев(Сотр.Подразделение.Получить(ДатаК),3)+"- "+Сотр.Код+" л№:"+Кадр.ДокументЛичныйНомер+Лев(Сотр.Наименование,7)); ТТ=ТТ+1;

Возврат ;

конецЕсли; //сообщить("_"+Кадр.ПУ+"_дата ув."+ДатаУ+Кадр);

Если ФлагНС=1 Тогда ТЗ.НОВАЯСТРОКА(); КонецЕсли;

ТЗ.ФПУ="ПУ-2"; ТЗ.Тип="И"; ТЗ.РегНомер=номерПФ;

ТЗ.Наименование=Кадр; ТЗ.ДВИЖ="ДВИЖ";

ТЗ.Имя=Врег(Лев(Имя,1));

ТЗ.Отчество=Врег(Лев(отчество,1));

ТЗ.фамилия=ВРЕГ(фамилия);

ТЗ.СтраховойНомер=СтраховойНомер;

ТЗ.ДатаПриемаД=?(ДатаП<НачГода(ДатаН),НачГода(ДатаН),ДатаП); //ДАТАПРИЕМА-дата

ТЗ.ДатаПриема=ФормДата(ТЗ.ДатаПриемаД);

Если (ТЗ.ДатаПриема="01/01/2003") и (Сред(Кадр.ПУ,1,1)="2") тогда

ТЗ.ДатаПриема=""; ТЗ.ДатаПриемаД=Дата(0);

КонецЕсли;

ДатаУ=?(ДатаУ>ДатаК," ",ДатаУ);

ТЗ.ДатаУвольнения=ФормДата(ДатаУ);

ТЗ.ПричинаУвольнения=" ";//КодПричины;

ТЗ.ВидДоговора=КодМР;

Иначе

//22----------исходная---ежеквартально после впервые-----------------------------------------------

Если КодМР="03" Тогда Возврат; КонецЕсли; //по договорам

Если ((ДатаУ>ДатаК) или (ДатаУ<ДатаН)) и ((ДатаП>ДатаК) или (ДатаП<ДатаН)) Тогда Возврат; КонецЕсли;

Если ФлагНС=1 Тогда ТЗ.НОВАЯСТРОКА(); КонецЕсли;

ТЗ.ФПУ="ПУ-2"; ТЗ.Тип="И"; ТЗ.РегНомер=номерПФ;

ТЗ.Наименование=Кадр; ТЗ.ДВИЖ="ДВИЖ";

ТЗ.Имя=Врег(Лев(Имя,1));

ТЗ.Отчество=Врег(Лев(отчество,1));

ТЗ.фамилия=ВРЕГ(фамилия);

ТЗ.СтраховойНомер=СтраховойНомер;

ТЗ.ДатаПриемаД=?((ДатаП<НачГода(ДатаН)) и (ДатаГод(ДатаН)="2003"),НачГода(ДатаН),ДатаП); //ДАТАПРИЕМА-дата

ТЗ.ДатаПриема=ФормДата(ТЗ.ДатаПриемаД);

Если (ТЗ.ДатаПриемаД<ДатаН) тогда //и (Сред(Кадр.ПУ,1,1)="2")

ТЗ.ДатаПриема=""; ТЗ.ДатаПриемаД=Дата(0);

КонецЕсли;

ДатаУ=?(ДатаУ>ДатаК," ",ДатаУ);

ТЗ.ДатаУвольнения=ФормДата(ДатаУ);

ТЗ.ПричинаУвольнения=" ";//КодПричины;

ТЗ.ВидДоговора=КодМР;

КонецЕсли;

//23----------корректирующая--------------------------------------------------------------------

ИначеЕсли (ТЗ=ТЗ2) и (П2=3) Тогда //уволенные и принятые за период , не "03"

Если КодМР="03" Тогда Возврат; КонецЕсли; //по договорам

Если ФлагНС=1 Тогда ТЗ.НОВАЯСТРОКА(); КонецЕсли;

ТЗ.ФПУ="ПУ-2"; ТЗ.Тип="К"; ТЗ.РегНомер=номерПФ;

ТЗ.Наименование=Кадр; ТЗ.ДВИЖ="ДВИЖ";

ТЗ.Имя=Врег(Лев(Имя,1));

ТЗ.Отчество=Врег(Лев(отчество,1));

ТЗ.фамилия=ВРЕГ(фамилия);

ТЗ.СтраховойНомер=СтраховойНомер;

ТЗ.ДатаПриемаД=?((ДатаП<НачГода(ДатаН)) и (ДатаГод(ДатаН)="2003"),НачГода(ДатаН),ДатаП); //ДАТАПРИЕМА-дата

ТЗ.ДатаПриема=ФормДата(ТЗ.ДатаПриемаД);

Если (ТЗ.ДатаПриема="01/01/2003") и (Сред(Кадр.ПУ,1,1)="2") тогда

ТЗ.ДатаПриема=""; ТЗ.ДатаПриемаД=Дата(0);