, (3.14)

372500 руб,

где k_РО - коэффициент, учитывающий затраты на ремонт и техническое обслуживание ЭВМ, в том числе затраты на запчасти, зарплату ремонтного персонала (k_РО = 0,1).

Годовая величина амортизационных отчислений на реновацию производственных площадей, занятых ЭВМ определяется по формуле:

, (3.15)

руб,

где Ц_БПЛ - балансовая стоимость площадей, руб;

Н_АПЛ - норма амортизационных отчислений на производственные площади, % (по данным предприятия) (Н_АПЛ=3,15%);

S_ЭВМ - площадь, занимаемая ЭВМ, кв.м. (S_ЭВМ=2);

k_Д - коэффициент, учитывающий дополнительную площадь (k_Д=3);

Ц_ПЛ - цена 1 кв.м. производственной площади, рублей (2000000).

Годовые затраты на ремонт и содержание производственных площадей могут быть определены по формуле:

, (3.16)

600000 руб,

где k_РЭ - коэффициент, учитывающий затраты на ремонт и эксплуатацию производственных площадей (k_РЭ = 0,05).

Величина налога на недвижимость определяется по формуле:

(3.17)

руб.

Где - ставка налога на недвижимость, %(=2%);

Годовой фонд времени работы ЭВМ определяется исходя из режима ее работы и рассчитывается по формуле:

, (3.18)

,

где t_СС - среднесуточная фактическая загрузка ЭВМ, час (t_СС=8);

Т_СГ - среднее количество дней работы ЭВМ в год, дней (Т_СГ=250).

3.3.3 Определение затрат на отладку ПП

Затраты на отладку программы определяются по формуле:

(3.19)

руб,

где Т_ОТЛ - трудоемкость отладки программы, час (определяется по формуле 3.6)();

S_МЧ - стоимость машино-часа работы ЭВМ, руб./час (определяется по формуле 3.11)();

Себестоимость разработки ПП определяется по формуле:

, (3.20)

руб,

где F - коэффициент накладных расходов проектной организации без учета эксплуатации ЭВМ (F=0,6);

З_РЗ - затраты на заработную плату разработчика (определяется по формуле 3.9)();

3.4 Определение отпускной цены ПП

В основу расчета отпускной цены закладывается затратная цена организации - разработчика. Затратная цена складывается из себестоимости создания программного продукта и плановой прибыли на программу. Затратная цена ПП определяется по формуле:

, (3.21)

руб,

где П_Р - плановая прибыль на программу, руб.

Плановая прибыль на программу определяется по формуле:

, (3.22)

руб,

где С_ПР - себестоимость программы;

Н_П - норма прибыли проектной организации (Н_П = 0,3);

Отпускная цена программы определяется в следующей последовательности:

а) определяется величина налога на добавленную стоимость по формуле:

, (3.23)

руб,

Н_ДОБ - ставка налога на добавленную стоимость, % (Н_ДС = 20);

б) определяется отпускная цена программы по формуле:

(3.24)

руб.

3.5 Определение ожидаемого прироста прибыли в результате внедрения ПП

3.5.1 Определение годовых эксплуатационных расходов при ручном решении задачи

Годовые эксплуатационные расходы при ручной обработке информации (ручном решении задачи) определяются по формуле:

З_р=Т_р к t_ЧР (1+q) (1+a) (1+b), (3.25)

З_р =23003064(1+2,75)(1+0,15)(1+0,349)=10695007 руб,

где Тр - трудоемкость разового решения задачи вручную, чел-ч(Т_р=2);

к - периодичность решения задачи в течение года, раз/год;

tч - среднечасовая ставка работника, осуществляющего ручной расчет задачи, руб ();

q - коэффициент, учитывающий процент премий (q=2,75);

а - коэффициент, учитывающий дополнительную заработную плату (a=0,15);

b - коэффициент, учитывающий начисления на заработную плату (b=0,349).

3.5.2 Определение годовых текущих затрат, связанных с эксплуатацией ПП

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

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

Время решения задачи на ЭВМ определяется по формуле:

, (3.26)

ч,

где Т_ВВ - время ввода в ЭВМ исходных данных, необходимых для решения задачи, мин;

Т_ВЫЧ - время вычислений, мин (Т_ВЫЧ=0,25);

Т_ВЫВ - время вывода результатов решения задачи (включая время распечатки на принтере), мин (Т_ВЫВ=1);

d_ПЗ - коэффициент, учитывающий подготовительно-заключительное время (d_ПЗ = 0,175).

Время ввода в ЭВМ исходных данных может быть определено по формуле:

, (3.27)

мин,

где К_Z - среднее количество знаков, набираемых с клавиатуры при вводе исходных данных(К_ЗН=500);

H_Z - норматив набора 100 знаков, мин (H_ЗН=1).

Затраты на заработную плату пользователя ПП определяются по формуле:

(3.28)

руб,

где Т_З - время решения задачи на ЭВМ, час;

t_ЧП -среднечасовая ставка пользователя программы, руб. (определяется аналогично ставке работника, осуществляющего ручной расчет);

k - периодичность решения задачи в течение года, раз/год (k=300);;

q - коэффициент, учитывающий процент премий (q=2,75);

а - коэффициент, учитывающий дополнительную заработную плату (a=0,15);

b - коэффициент, учитывающий начисления на заработную плату (b=0,349).

Затраты на оплату аренды ЭВМ для решения задачи определяются по следующей формуле:

, (3.29)

руб,

где S_МЧ - стоимость одного машино-часа работы ЭВМ, которая будет использоваться для решения задачи, рублей.

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

, (3.30)

руб,

где З_П - затраты на заработную плату пользователя программы;

З_А - затраты на оплату аренды ЭВМ при решении задачи;

З_Д - дополнительные затраты, связанные с эксплуатацией ПП, в частности затраты на формирование базы данных, если она не поставляется вместе с программным продуктом. (З_Д=0).

3.5.3 Определение ожидаемого прироста прибыли в результате внедрения ПП

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

, (3.31)

руб,

где С_НП - ставка налога на прибыль, % (С_НП = 18).

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

3.6 Расчет показателей эффективности использования программного продукта

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

, (3.32)

руб,

где К_З - капитальные и приравненные к ним затраты;

Ц_ПРП - отпускная цена программы для конкретного пользователя.

Капитальные и приравненные к ним затраты в случае, если ЭВМ, на которой предполагается решать рассматриваемую задачу, отслужила к моменту расчета 0,5 года, определяются по формуле:

(3.33)

руб,

где Ц_БЭВМ - балансовая стоимость комплекта вычислительной техники, необходимого для решения задачи, руб;

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

, (3.34)

руб,

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

Годовой экономический эффект от внедрения разработанного ПП определяется по формуле:

, (3.35)

руб,

где Е - коэффициент эффективности, равный ставке за кредиты на рынке долгосрочных кредитов (Е = 0,15).

Срок возврата инвестиций определяется по формуле:

, (3.36)

года

Результаты экономического раздела представлены в таблице 3.1.

Наименование показателя	Варианты
	базовый	проектный
Трудоемкость решения задачи, чел.-ч.	2	0,122
Периодичность решения задачи, раз в год	300	300
Годовые текущие затраты, связанные с решением задачи, р.	10695007	704623
Отпускная цена программы, р.		24254323
Коэффициент тиражирования		1
Отпускная цена программы для конкретного пользователя, р.		24254323
Прирост условной прибыли, р./ год		8192115
Годовой экономический эффект пользователя (рентабельность), р.		6969174
Срок возврата инвестиций (окупаемость), лет		1,2

Таблица 3.1 - Результаты экономического расчета по базовому и проектному варианту

Анализируя данные из таблицы 3.1 можно сделать вывод о том, что разработка и внедрение ПП является целесообразной. Использование программного продукта на предприятии позволяет снизить трудоемкость решения задачи с 2 чел.-ч. до 0,122 чел.-ч., снизить годовые текущие затраты с 10695007 р. до 704623 р. Годовой экономический эффект пользователя составляет 6969174 р., а прирост условной прибыли составит 8192115 р. в год. Срок окупаемости проекта - 1,2 года.

4. ОХРАНА ТРУДА

4.1 Необходимость охраны труда

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

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

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

1) Рост производительности труда в результате увеличения фонда рабочего времени;

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

3) Увеличение совокупного национального продукта за счет улучшения указанных выше показателей и составляющих их компонентов[3].

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

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

4.2 Анализ (оценка) состояния охраны труда

4.2.1 Организация работы по охране труда

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

- физические;

- химические;

- психофизиологические.

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

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

Средства, выделяемые и используемые на мероприятия по охране труда на предприятии, представлены в таблице 4.1.

Показатели	2009	2010	2011
	План	Факт	План	Факт	План	Факт
Всего затрат, млн. руб. В т. ч.: - на номенклатурные мероприятия, предусмотренные коллективным договором (соглашением по социальным вопросам и охране труда в колхозах) - на средства индивидуальной защиты - на лечебно- профилактическое питание и молоко; - прочие мероприятия Ассигновано на одного работающего, тыс. руб.	309,6 186,1 120,4 3,1 - 560	309,6 186,1 120,4 3,1 - 560	172,3 67,9 100,4 4,0 - 310	172,3 67,9 100,4 4,0 - 310	172,9 74,9 92,0 6,0 - 311	172,9 74,9 92,0 6,0 - 311

Таблица 4.1 - Выделение и использование средств на мероприятия по охране труда

Проанализировав данные, отображенные в таблице 4.1, можно наблюдать снижение уровня финансирования мероприятий по охране труда в 2010 году. Это связано с тем, что РУПП «Брестхлебпром» филиал Барановичский хлебозавод является прибыльным учреждением. Высокие выделения средств на мероприятия по охране труда в 2009 году связаны с закупкой необходимого оборудования и наглядных пособий.

4.2.2 Техника безопасности

К основным помещениям предъявляются особые требования. Площадь машинного зала соответствует площади, необходимой по заводским техническим условиям для данного типа ЭВМ.

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

Помещения ЭВМ имеют естественное и искусственное освещение. В дневное время в бухгалтерии используется естественное боковое одностороннее освещение, в вечернее время или при недостаточных нормах освещения - искусственное общее равномерное.

Согласно помещения для работы с дисплеями и видеотерминалами относятся к 1 группе по задачам зрительной работы. Нормированный уровень освещенности для работы с ЭВМ - 400лк, КЕО - 4%.

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

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

Для искусственного освещения помещений ВЦ используются главным образом, люминесцентные лампы белого света (ЛБ), темно-белого света (ЛТБ) мощностью 65 или 80 Вт [14].

В таблице 4.2 представлены показатели производственного травматизма на предприятии РУПП «Брестхлебпром» филиал Барановичский хлебозавод.

Показатели	Формулы и обозначения	Годы
		2009	2010	2011
Среднесписочное число рабочих	P	555	555	555
Число несчастных случаев в отчетный период	T	-	-	-
Число дней нетрудоспособности	Д	-	-	-
Показатель частоты травматизма		-	-	-
Показатель тяжести травматизма		-	-	-
Показатель потерь рабочего времени		-	-	-

Таблица 4.2 - Показатели производственного травматизма

Проанализировав данные в таблице 4.2, можно сделать вывод о том, что мероприятия по охране труда в РУПП «Брестхлебпром» филиал Барановичский хлебозавод поставлены на должном уровне. По данным за период с 2009 по 2011 года в учреждении не произошло ни одного случая травматизма.

4.2.3 Производственная санитария

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

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

Одним из мероприятий по оздоровлению воздушной среды является устройство вентиляции и отопления. Задачей вентиляции является обеспечение чистоты воздуха и заданных метеорологических условий на рабочих местах. Для поддержания нормального микроклимата необходим достаточный объем вентиляции, для чего в бухгалтерии предусматривается кондиционирование воздуха, осуществляющее поддержание постоянных параметров микроклимата в помещении независимо от наружных условий. В отделе установлены кондиционеры неполного кондиционирования марки БК-2500.

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

Опасность воздействия электромагнитных полей на человека зависит от напряженностей электрического и магнитного полей, потока энергии, частоты колебаний, размера облучаемой поверхности тела и индивидуальных особенностей организма. Уровни напряженности электрического поля тока промышленной частоты 50 Гц, создаваемые монитором, системным блоком, клавиатурой, изделием в целом не превышают допустимого 0,5 кВ/м согласно. Напряженность электростатического поля на рабочем месте не превышает допустимого значения 15 кВ/м согласно [15].

4.2.4 Пожарная безопасность

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

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

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

Здание построено из естественных и искусственных каменных материалов и имеет защищенные стальные конструкции. Степень огнестойкости такого здания - 2-ая (огнестойкость несущих стен не менее 2ч, перегородок не менее 15 мин).

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

В качестве первичных средств пожаротушения используются огнетушители ОХП-10. Кроме того, на некоторых участках предусмотрено место для противопожарного инвентаря, где находится ящик с песком, ведра, топор, лопаты и огнетушители.

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

4.3 Мероприятия по улучшению условий и безопасности труда

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

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

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

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

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

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

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

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

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

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

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

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

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

Физиологическими и клиническими исследованиями установлено, что при ограничении или лишении человека естественного света наступает так называемое световое голодание, в основе которого ультрафиолетовая недостаточность она выражается в возникновении гипо- и авитаминоза (недостаток витамина Д), нарушение фосфорно-кальциевого обмена (появляется кариес зубов, рахит и др.), ослабление защитных сил организма, в частности, предрасположенности ко многим заболеваниям. Эти изменения ухудшают самочувствие и влекут за собой снижение работоспособности, быструю утомляемость и увеличение сроков восстановления сил. Известно, что применение дополнительных доз ультрафиолетовых лучей благоприятно влияет на организм человека, повышает его работоспособность, улучшает самочувствие и способствует снижению заболеваемости. Ультрафиолетовое облучение рекомендуется для лиц, занятых физическим трудом в условиях пониженной температуры воздуха, работающих в помещениях с малой естественной ультрафиолетовой радиацией и в условиях резких перемен температур окружающей среды[16].

4.4 Инструкция по охране труда для оператора ПЭВМ

4.4.1 Общие требования по охране труда

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

2. Организация рабочего места с ПЭВМ должна учитывать требования безопасности, удобство положения, движений и действий работника.

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

4. Клавиатура располагается на поверхности стола таким образом, чтобы пространство перед клавиатурой было достаточным для опоры рук работника (на расстоянии не менее чем 300 мм от края, обращенного к работнику).

5. Чтобы обеспечивалось удобство зрительного наблюдения, быстрое и точное считывание информации, плоскость экрана монитора располагается ниже уровня глаз работника, предпочтительно перпендикулярно к нормальной линии взгляда работника (нормальная линия взгляда -15° вниз от горизонтали).

6. Применяемые подвижные подставки для документов (пюпитры) размещаются в одной плоскости и на одной высоте с экраном. Рабочий стул (кресло) должен быть устойчивым, место сидения должно регулироваться по высоте, а спинка сиденья - по высоте, углам наклона, а также расстоянию спинки от переднего края сиденья.

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

8. При размещении рабочих столов в ряд не допускается расположение экранов видеомониторов навстречу друг другу из-за их взаимного отражения.

9. Для обеспечения безопасности работников на соседних рабочих местах расстояние между рабочими столами с мониторами (в направлении тыла поверхности одного монитора и экрана другого монитора) должно быть не менее 2,0 м, а расстояние между боковыми поверхностями мониторов - не менее 1,2 м.

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

11. При работе с ПЭВМ обеспечивается доступ работников к первичным средствам пожаротушения, аптечкам первой медицинской помощи.

12. При проведении работ на ПЭВМ работник обязан соблюдать требования по охране труда, а также правила поведения на территории учреждения, в производственных, вспомогательных и бытовых помещениях.

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

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

4.4.2 Требования по охране труда перед началом работы

1. Работающий на ПЭВМ перед началом работы обязан:

- проветрить рабочее помещение;

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

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

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

- протереть специальной салфеткой поверхность экрана ПЭВМ и защитного фильтра (с обеих сторон);

- убедиться в отсутствии дискет в дисководах процессора;

- проверить исправность мебели, правильность установки стола, кресла, подставки для ног, положении оборудования, клавиатуры, при необходимости отрегулировать.

2. При включении ПЭВМ работающий обязан соблюдать следующую последовательность включения оборудования:

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

- включить блок питания;

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

- включить системный блок (процессор).

3. Запрещается приступать к работе при:

- обнаружении неисправности оборудования;

- повреждении кабеля электропитания, проводов, разъемов, штепсельных соединений;

- выраженном дрожании изображения на экране монитора;

- отсутствии защитного заземления устройств ПЭВМ;

- отсутствии защитного фильтра «полная защита» либо отключении заземляющего проводника фильтра;

- нарушении гигиенических норм размещения ПЭВМ;

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

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

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

Ремонт оборудования проводится только специалистами или в специализированных организациях.

4.4.3 Требования по охране труда при выполнении работы

1. Во время работы с ПЭВМ работник обязан:

- соблюдать требования охраны труда, установленные настоящей Инструкцией;

- содержать в чистоте и порядке свое рабочее место;

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

- соблюдать оптимальное расстояние от экрана монитора до глаз.

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

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

4. Продолжительность непрерывной работы на ПЭВМ без регламентированного перерыва не должна превышать 2 часов.

5. С целью уменьшения отрицательного влияния монотонности работы необходимо применять чередование операции

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

7. При работе с ПЭВМ запрещается:

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

- загромождать верхние панели оборудования, рабочее место бумагами, посторонними предметами;

- прикасаться одновременно к экрану ВДТ и клавиатуре;

- производить переключения, отключение питания во время выполнения активной задачи;

- допускать попадание влаги на поверхность системного блока, монитор, рабочую поверхность клавиатуры, дисководов, принтеров и других устройств;

- допускать резкие сгибы и защемления шнуров питания;

- прикасаться к поврежденным или неисправным выключателям, штепсельным розеткам, вилкам, к проводам с поврежденной изоляцией;

- включать сильно охлажденное (принесенное с улицы в зимнее время) оборудование;

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

- вытирать пыль на включенном оборудовании;

- допускать нахождение вблизи оборудования посторонних лиц.

4.4.4 Требования по охране труда по окончании работ

1. По окончании работы работающий на ПЭВМ обязан:

- произвести закрытие всех активных задач;

- извлечь дискету из дисковода;

- выключить питание системного блока (процессора);

- выключить питание всех периферийных устройств;

- отключить блок питания;

- отключить стабилизатор напряжения (если он используется);

- осмотреть и привести в порядок рабочее место;

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

- вымыть с мылом лицо и руки;

- закрыть окна, выключить вентиляцию и освещение в рабочем помещении.

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

4.4.5 Требования по охране труда в аварийных ситуациях

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

2. При возникновении пожара:

- прекратить работу;

- вызвать пожарно-спасательную службу по телефону 101, скорую медицинскую помощь по телефону 103 и проинформировать непосредственного или вышестоящего руководителя;

- немедленно организовать эвакуацию людей из помещения в соответствии с утвержденным планом эвакуации;

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

- приступить к тушению пожара имеющимися первичными средствами пожаротушения.

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

4. При несчастном случае (травме):

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

- сообщить о происшедшем руководителю структурного подразделения или другому должностному лицу;

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

5. К работе с ПЭВМ можно приступить после ликвидации аварийной ситуации с разрешения руководителя структурного подразделения[20].

ЗАКЛЮЧЕНИЕ

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

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

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

2. Разработанный ПП позволяет достигнуть следующих эффектов:

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

- автоматизация контроля расхода технических ресурсов;

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

3. Целесообразность разработки обуславливается тем, что в результате внедрения был получен следующий экономический эффект:

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

- прибыль от внедрения и использования программного продукта составит 8192115 бел.руб./год.

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

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

1. Википедия [Электронный ресурс] / Свободная энциклопедия; 2012. - Режим доступа: http://ru.wikipedia.org/wiki/Microsoft_Office

2. Википедия [Электронный ресурс] / Свободная энциклопедия; 2012. - Режим доступа: http://ru.wikipedia.org/wiki/OpenOffice.org

3. Оформление раздела «Охрана труда» в дипломных проектах: метод. указания по выполнению дипломных работ и проектов для студентов специальности 1-27 01 01 Экономика и организация производства; 1-40 01 02 Информационные системы и технологии / сост. Ю. И. Шадид. -- Барановичи: РИО БарГУ, 2009.

4. Гарбер Г.З. Основы программирования на Visual Basic и VBA в Excel 2007 -- Салон - Пресс, 2008 г.- 192 с.

5. Симонович С., Евсеев Г. Занимательное программирование. Visual Basic -- АСТ-Пресс, 2001 г.- 320 с.

6. Сафронов А.К. Visual Basic в задачах и примерах--БХВ - Петербург, 2008 г.- 401 с.

7. Зиборов В.В. Visual Basic на примерах -- БХВ - Петербург, 2010 г.- 336 с.

8. Гвоздев А.А., Дьяков Н.А. Операционная система Windows XP -- Москва, АСТ, Астрель-СПб, 2007 г.- 224 с.

9. Корнеев В. В. Базы данных. Интеллектуальная обработка информации/ В.В. Корнеев -- М.: Ноллидж, 2000. -- 352с.

10. Карпова Т.С. Базы данных: модели, разработка, реализация. - С-Пб.: Питер, 2001. - 458 с.

11. Инструкция по охране труда при работе с персональными компьютерами (согласно постановлению Министерства труда и социальной защиты Республики Беларусь от 30 ноября 2004 г. № 138).

12. Хоменко А.Д. Базы данных. Учебник для ВУЗОВ. - М.: Технология, 2000. - 325 с.

13. Назаров С.В. Компьютерные технологии обработки информации. - М.: Финансы и статистика, 2005. - 248 с.

14. Белова С.Б. Безопасность жизнедеятельности: Учебник для высших учебных заведений / С.Б. Белова. -- М.: Высшая шк, 1999.

15. Инструкция по охране труда при работе с персональными компьютерами (согласно постановлению Министерства труда и социальной защиты Республики Беларусь от 30 ноября 2004 г. № 138).

16. Раздорожный А.А. Охрана труда и производственная безопасность: Учебно-методическое пособие / А.А. Раздорожный -- Москва: Экзамен, 2005. -- 512 с.

17. Энциклопедия об информационных технологиях. [Электронный ресурс] Режим доступа: http://www. itpedia.ru

18. Грофф, Д.А SQL: Полное руководство \ Д.А. Грофф, П.П. Вайнберг. - СПб.: БХВ-Петербург, 2001. - 816с.

19. Диго, С.М. Проектирование и использования баз данных / C.М. Диго. - М.: Финансы и статистика, 2004. - 365с.

20. Ермолович, Л.Л. Анализ финансово - хозяйственной деятельности предприятия / Л.Л. Ермолович. - Мн.: БГЭУ,2001. - 567 с.

21. Каратыгин, С.А. Базы данных / С.А. Каратыгин, А.П. Тихонов, В.Н. Долголаптев. - М.: ABF, 2005. - 352 c.

22. Кляуззе, В.П. Охрана труда: правовые и организационные вопросы \ В.П. Кляуззе. - Мн.: Дикта, 2006. - 416с.

23. Ляхевич, А.Г. Обзор существующих СУБД: Oracle, Microsoft SQL Server, PostgreSQL, MySQL, DB2, Informix, VisualFoxPro, MS Access/ А.Г. Ляхевич. - Минск: 2002. - 245 с.

24. Маклаков, С.В. BPwin ERwin CASE-средства разработки информационных систем \ С.В. Маклаков.- М.: ДИАЛОГ-МИФИ, 1999. - 256с.

25. Методические указания по выполнению дипломного проекта для студентов специальностей 1-40 01 02 «Информационные системы и технологии» / сост.: О.И. Наранович. - Барановичи: РИО БарГУ, 2009 -- 40с.

26. Сергеев, И.В. Экономика предприятия: учеб.пособие / И.В. Сергеев. - 2-е изд., испр. - М.: Финансы и статистика, 2001. - 304 с.

27. Смирнов, С.Н. Работаем с Oracle \ С.Н. Смирнов, И.С. Задворьев. - М.: Гелиос АРВ, 2002. - 496с.

28. Урман, С.А. Oracle10g. Программирование на языке PL/SQL \ С.А. Урман. - М.:Лори, 2004. - 528с.

ПРИЛОЖЕНИЕ А

Листинг основных модулей

Код модуля FmMenu

Private Sub Command1_Click()

FmCat.Show

End Sub

Private Sub Command10_Click()

FmSpisanie.Show

End Sub

Private Sub Command11_Click()

FmPrihod.Show

End Sub

Private Sub Command12_Click()

FmPost.Show

End Sub

Private Sub Command13_Click()

FmSnabj.Show

End Sub

Private Sub Command2_Click()

FmInch.Show

End Sub

Private Sub Command3_Click()

FmPack.Show

End Sub

Private Sub Command4_Click()

FmVid.Show

End Sub

Private Sub Command5_Click()

FmManuf.Show

End Sub

Private Sub Command6_Click()

FmTovar.Show

End Sub

Private Sub Command7_Click()

'MsgBox CurDir("C") & "\Price.xlt"

End Sub

Private Sub Command8_Click()

'FmZay.Show

FmZ.Show

End Sub

Private Sub Command9_Click()

FmClient.Show

End Sub

Private Sub mnuCat_Click(Index As Integer)

FmCat.Show

End Sub

Private Sub mnuClient_Click()

FmClient.Show

End Sub

Private Sub mnuExit_Click()

FmMenu.Hide

End Sub

Private Sub mnuInch_Click(Index As Integer)

FmInch.Show

End Sub

Private Sub mnuManuf_Click()

FmManuf.Show

End Sub

Private Sub mnuOtkl1_Click()

DataReport2.Show

End Sub

Private Sub mnuPack_Click()

FmPack.Show

End Sub

Private Sub mnuPrihod_Click()

FmPrihod.Show

End Sub

Private Sub mnuRas_Click()

FmZ.Show

End Sub

Private Sub mnuROtkl_Click()

Set objExcel = CreateObject("Excel.Application")

objExcel.Workbooks.Open FileName:=CurDir & "\Itog.xlt"

With DE

Dim rst As New ADODB.Recordset

'ComRTovar.Open

Set rst =.rsComOtkl

'rst.Open

rst.MoveFirst

i = 0

PosInc = 4

Do Until rst.EOF

'Добавление новой строки:

If i <> 0 Then

objExcel.Rows.Item(PosInc + i).Select

objExcel.Selection.Insert

objExcel.Rows.Item(PosInc).Select

objExcel.Selection.Copy

objExcel.Rows.Item(PosInc + i).Select

objExcel.ActiveSheet.Paste

objExcel.Application.CutCopyMode = False

End If

objExcel.Cells(i + PosInc, 1) = i + 1

objExcel.Cells(i + PosInc, 2) = rst!Tovar_name

objExcel.Cells(i + PosInc, 3) = rst!Tovar_price

objExcel.Cells(i + PosInc, 4) = rst!Tovar_quan

objExcel.Cells(i + PosInc, 5) = rst!Sum_raschod_quan

objExcel.Cells(i + PosInc, 6) = rst!otkl

i = i + 1

rst.MoveNext

Loop

End With

objExcel.Visible = True

Exit Sub

ErrProc:

objExcel.Quit

Set objExcel = Nothing

End Sub

Private Sub mnuRTovar_Click()

Set objExcel = CreateObject("Excel.Application")

objExcel.Workbooks.Open FileName:=CurDir & "\Price.xlt"

With DE

'Шапка счета:

'objExcel.Cells(3, 2) = Format$(.rsComRTovar!NСчета, "0000")

'objExcel.Cells(4, 2) = FormatDateTime(.rsСчета!Дата, vbGeneralDate)

Dim rst As New ADODB.Recordset

'ComRTovar.Open

Set rst =.rsComRTovar

'.rsСчета("СоставСчета").Value

'Экспорт в таблицу состава счета:

rst.Open

rst.MoveFirst

i = 0

PosInc = 4

Do Until rst.EOF

'Добавление новой строки:

If i <> 0 Then

objExcel.Rows.Item(PosInc + i).Select

objExcel.Selection.Insert

objExcel.Rows.Item(PosInc).Select

objExcel.Selection.Copy

objExcel.Rows.Item(PosInc + i).Select

objExcel.ActiveSheet.Paste

objExcel.Application.CutCopyMode = False

End If

objExcel.Cells(i + PosInc, 1) = i + 1

objExcel.Cells(i + PosInc, 2) = rst!idTovar

objExcel.Cells(i + PosInc, 3) = rst!Tovar_num

objExcel.Cells(i + PosInc, 4) = rst!Tovar_name

objExcel.Cells(i + PosInc, 5) = rst!Tovar_price

objExcel.Cells(i + PosInc, 6) = rst!Tovar_quan

i = i + 1

rst.MoveNext

Loop

End With

objExcel.Visible = True

Exit Sub

ErrProc:

objExcel.Quit

Set objExcel = Nothing

End Sub

Private Sub mnuRTovar1_Click()

RepTovar.Show

End Sub

Private Sub mnuSnabj_Click()

FmSnabj.Show

End Sub

Private Sub mnuSpis_Click()

FmSpisanie.Show

End Sub

Private Sub mnuSuppl_Click()

FmPost.Show

End Sub

Private Sub mnuTovar_Click(Index As Integer)

FmTovar.Show

End Sub

Private Sub mnuVid_Click()

FmVid.Show

End Sub

Код модуля FmZ

Private cn As ADODB.Connection

Private rs As ADODB.Recordset

Private rsTovar As ADODB.Recordset

Private Sub Command1_Click()

DE.rsComPZ.Close

DE.rsComPZ.Open

Set TextFlag.DataSource = DE

Set DataGrid1.DataSource = DE

Set DataGrid2.DataSource = DE

DataGrid1.Refresh

DataGrid2.Refresh

End Sub

Private Sub Command2_Click()

DE.rsComPZ.Filter = "idCl_Z = " & DE.rsComPZ!idCl_Z

DataReportZ.Show

End Sub

Private Sub Command3_Click()

DataGrid1.Col = 13

If DataGrid1.Text = "да" Then

MsgBox "Данная заявка уже исполнена. Изменять ее нельзя"

Exit Sub

End If

idRaschod = 0

DataGrid1.Col = 0

If DataGrid1.Text <> "" Then

idCl_Z = DataGrid1.Text

Else

idCl_Z = 0

End If

FmZCont.Show

End Sub

Private Sub Command4_Click()

DataGrid1.Col = 13

If DataGrid1.Text = "да" Then

MsgBox "Данная заявка уже исполнена. Изменять ее нельзя"

Exit Sub

End If

DataGrid1.Col = 0

If DataGrid1.Text <> "" Then

idCl_Z = DataGrid1.Text

Else

idCl_Z = 0

End If

cmd = "Provider = MSDAORA;" & _

"Data Source = " & oracle.world & "\ User Id=4208; Password=4208;Persist Security Info=False"

Set cn = New ADODB.Connection

With cn

.ConnectionString = cmd

.Open

End With

DataGrid2.Col = 0

If DataGrid2.ApproxCount = 0 Then

num = -1

Else

num = DataGrid2.Text

End If

idRaschod = num

SQL = "SELECT * FROM Raschod WHERE idRaschod = " & num

Set rs = New ADODB.Recordset

With rs

.Open SQL, cn, adOpenForwardOnly, adLockReadOnly

End With

If idRaschod = -1 Then num = 0 Else num = rs("Raschod_Tovar")

SQL = "SELECT * FROM Tovar WHERE idTovar = " & num

Set rsTovar = New ADODB.Recordset

With rsTovar

.Open SQL, cn, adOpenForwardOnly, adLockReadOnly

End With

If num <> 0 Then

FmZCont.CBTovar.BoundText = rsTovar("idTovar")

DataGrid2.Col = 3

FmZCont.TextQuan.Text = DataGrid2.Text

DataGrid2.Col = 5

FmZCont.TextCost.Text = DataGrid2.Text

End If

rs.Close

rsTovar.Close

Set rs = Nothing

Set rsTovar = Nothing

cn.Close

Set cn = Nothing

If DataGrid2.ApproxCount <> 0 Then FmZCont.Show

End Sub

Private Sub Command5_Click(Index As Integer)

If DataGrid1.Text = "да" Then

MsgBox "Данная заявка проведена"

Exit Sub

End If

cmd = "Provider = MSDAORA;" & _

"Data Source = " & oracle.world & "\ User Id=4208; Password=4208;Persist Security Info=False"

'MsgBox cmd

Set cn = New ADODB.Connection

With cn

.ConnectionString = cmd

.Open

End With

DataGrid2.Col = 0

ras = DataGrid2.Text

'Запрос на вставку данных

SQL = "Delete From Raschod WHERE idRaschod = " & ras

'MsgBox SQL

Set rs = New ADODB.Recordset

With rs

.Open SQL, cn, adOpenForwardOnly, adLockReadOnly

End With

Set rs = Nothing

cn.Close

Set cn = Nothing

DE.rsComPZ.Close

DE.rsComPZ.Open

Set FmZ.DataGrid1.DataSource = DE

Set FmZ.DataGrid2.DataSource = DE

FmZ.DataGrid2.Refresh

DE.rsComPZ.Close

DE.rsComPZ.Open

DE.rsComPZ.Fields(13).Value.Close

Set FmZ.DataGrid1.DataSource = DE

Set FmZ.DataGrid2.DataSource = DE

FmZ.DataGrid2.Refresh

End Sub

Private Sub Command6_Click() 'Отпуск товара по заявке

DataGrid1.Col = 13

If DataGrid1.Text = "да" Then

MsgBox "Данная заявка проведена"

Exit Sub

End If

'DataGrid2.Col = 1

'if DE.rsComPZ.Fields

'If DataGrid2.Text = "" Then

' Exit Sub

'End If

DataGrid1.Col = 0

If DataGrid1.Text <> "" Then

idCl_Z = DataGrid1.Text

Else

idCl_Z = 0

End If

cmd = "Provider = MSDAORA;" & _

"Data Source = " & oracle.world & "\ User Id=4208; Password=4208;Persist Security Info=False"

Set cn = New ADODB.Connection

With cn

.ConnectionString = cmd

.Open

End With

DataGrid1.Col = 13

If idCl_Z <> 0 And (DataGrid1.Text <> "да") Then 'Если имеется необработанная заявка

SQL = "SELECT * FROM Raschod WHERE idCl_Z = " & idCl_Z

Set rs = New ADODB.Recordset

With rs

.Open SQL, cn, adOpenForwardOnly, adLockReadOnly

End With

If rs.BOF Or rs.EOF Then

Exit Sub

End If

rs.MoveFirst

Do While Not rs.EOF 'В цикле проверяем наличие товара на складе

num = rs("Raschod_Tovar") 'Получаем ID Товара

SQL = "SELECT * FROM Tovar WHERE idTovar = " & num

Set rsTovar = New ADODB.Recordset

With rsTovar

.Open SQL, cn, adOpenForwardOnly, adLockReadOnly

End With

If rs("Raschod_quan") > rsTovar("Tovar_quan") Then

MsgBox "Невозможно выполнить заявку. на складе отсутствует требуемое количество товара"

Exit Sub

End If

rsTovar.Close

Set rsTovar = Nothing

rs.MoveNext

Loop

'Если цикл пройден, то значит товар есть

rs.MoveFirst

Do While Not rs.EOF 'В цикле проверяем наличие товара на складе

num = rs("Raschod_Tovar") 'Получаем ID Товара

SQL = "UPDATE Tovar SET Tovar_quan = Tovar_quan - " & rs("Raschod_quan") & " WHERE idTovar = " & num

Set rsTovar = New ADODB.Recordset

With rsTovar

.Open SQL, cn, adOpenForwardOnly, adLockReadOnly

End With

Set rsTovar = Nothing

rs.MoveNext

Loop

rs.Close

Set rs = Nothing

SQL = "UPDATE cl_z set cl_Z_flag = 'да' WHERE idCl_Z = " & idCl_Z

Set rs = New ADODB.Recordset

With rs

.Open SQL, cn, adOpenForwardOnly, adLockReadOnly

End With

Set rs = Nothing

cn.Close

Set cn = Nothing

'DE.rsComPZ.Close

'DE.rsComPZ.Open

FmZ.DataGrid2.Refresh

MsgBox "Расход произведен"

End If

End Sub

Private Sub Form_Activate()

Set FmZ.DataGrid1.DataSource = DE