Dim Дата As Date
DoCmd.Hourglass True
Set dbs = CurrentDb
strSQL = "SELECT DISTINCTROW ДанныеДляАвансОтчета.КодЗаказчика, ДанныеДляАвансОтчета.КодСистемы FROM [ДанныеДляАвансОтчета] WHERE (((ДанныеДляАвансОтчета.КодЗаказчика)=" & Me![КодЗаказчика] & ") AND ((ДанныеДляАвансОтчета.КоличествоМС)0));"
Set rst = dbs.OpenRecordset(strSQL)
Set rstTMP4 = dbs.OpenRecordset("ИнфоПоСистемамЗаказчика")
Do Until rstTMP4.EOF
rstTMP4.Delete
rstTMP4.MoveNext
Loop
If rst.RecordCount = 0 Then
' MsgBox ("Не сопровождается")
rst.Close
Me![ИнфоПоОрганизSub].Form.Visible = -1
Me![ИнфоПоОрганСистемы].Form.Visible = 0
'инфо по 1996 году
strSQLTMP2 = "SELECT DISTINCTROW АвансПоОстаткамС1996Года.Заказчик, АвансПоОстаткамС1996Года.Месяц, АвансПоОстаткамС1996Года.Сумма FROM АвансПоОстаткамС1996Года WHERE (((АвансПоОстаткамС1996Года.Заказчик)=" & Me![КодЗаказчика] & "));"
Set rstTMP5 = dbs.OpenRecordset(strSQLTMP2)
rstTMP4.AddNew
rstTMP5.MoveFirst
rstTMP4![Дата1С1996] = CurrentMWParam(rstTMP5![Месяц])
rstTMP5.MoveLast
rstTMP4![Дата2С1996] = rstTMP5![Месяц]
rstTMP5.Close
rstTMP4.Update
Me.Refresh
rstTMP4.Close
dbs.Close
DoCmd.Hourglass False
Exit Sub
End If
rst.MoveLast
j = rst.RecordCount
rst.MoveFirst
For i = 1 To j
rstTMP4![КодСистемы] = НазваниеСистемы(rst![КодСистемы])
strSQLTMP = "SELECT DISTINCTROW Заказчики.Организация, ДанныеДляАвансОтчета.КодСистемы, АвансовыйОтчет.Месяц, ДанныеДляАвансОтчета.КоличествоМС, Заказчики.КодЗаказчика, ДанныеДляАвансОтчета.КодСчета, ОсновныеСчета.НомерСчета AS НС, АвансовыйОтчет.ИдентКод, Дистрибутивы.СкидкиС, ОсновныеСчета.ДатаСчета"
strSQLTMP = strSQLTMP & " FROM (([ОсновныеСчета] INNER JOIN ([Заказчики] INNER JOIN [ДанныеДляАвансОтчета] ON (Заказчики.КодЗаказчика = ДанныеДляАвансОтчета.КодЗаказчика) AND (Заказчики.КодЗаказчика = ДанныеДляАвансОтчета.КодЗаказчика)) ON (Заказчики.КодЗаказчика = ОсновныеСчета.КодЗаказчика) AND (ОсновныеСчета.КодСчета = ДанныеДляАвансОтчета.КодСчета)) INNER JOIN [АвансовыйОтчет] ON ДанныеДляАвансОтчета.Код = АвансовыйОтчет.ИдентКод) INNER JOIN Дистрибутивы ON ОсновныеСчета.КодСчета = Дистрибутивы.КодСчета"
strSQLTMP = strSQLTMP & " GROUP BY Заказчики.Организация, ДанныеДляАвансОтчета.КодСистемы, АвансовыйОтчет.Месяц, ДанныеДляАвансОтчета.КоличествоМС, Заказчики.КодЗаказчика, ДанныеДляАвансОтчета.КодСчета, ОсновныеСчета.НомерСчета, АвансовыйОтчет.ИдентКод, Дистрибутивы.СкидкиС, ОсновныеСчета.ДатаСчета"
strSQLTMP = strSQLTMP & " HAVING (((ДанныеДляАвансОтчета.КодСистемы)=" & rst![КодСистемы] & ") AND ((ДанныеДляАвансОтчета.КоличествоМС)0) AND ((Заказчики.КодЗаказчика)=" & Me![КодЗаказчика] & "));"
Set rstTMP2 = dbs.OpenRecordset(strSQLTMP)
Дата = Format(rstTMP2![Месяц], "m yy")
rstTMP4![ДатаС] = Дата
rstTMP2.MoveLast
rstTMP4![ДейстПо] = Дата
rstTMP4![ПоСчету] = rstTMP2![НС]
rstTMP4![ДатаСчСопр] = CurrentDateWParam(rstTMP2![ДатаСчета])
rstTMP4![СкидС] = rstTMP2![СкидкиС]
'Запрос по системам
strSQLTMP = "SELECT DISTINCTROW Заказчики.КодЗаказчика, Заказчики.Организация, ОсновныеСчета.НомерСчета, ОсновныеСчета.ДатаСчета, ОсновныеСчета.ДатаУстановки, Дистрибутивы.КодСистемы, Дистрибутивы.Код, Дистрибутивы.СпецвупыскИлиНет, Дистрибутивы.Скидки, Дистрибутивы.Цена, Дистрибутивы.НомерДистрибутива"
strSQLTMP = strSQLTMP & " FROM ([Заказчики] INNER JOIN [ОсновныеСчета] ON Заказчики.КодЗаказчика = ОсновныеСчета.КодЗаказчика) INNER JOIN Дистрибутивы ON ОсновныеСчета.КодСчета = Дистрибутивы.КодСчета"
strSQLTMP = strSQLTMP & " WHERE (((Заказчики.КодЗаказчика)=" & Me![КодЗаказчика] & ") AND ((Дистрибутивы.КодСистемы)=" & rst![КодСистемы] & ") AND ((Дистрибутивы.Цена)0));"
Set rstTMP3 = dbs.OpenRecordset(strSQLTMP)
rstTMP4![ПоСчетуПок] = rstTMP3![НомерСчета]
rstTMP4![ДатСчПок] = CurrentDateWParam(rstTMP3![ДатаСчета])
rstTMP4![Рег] = rstTMP3![НомерДистрибутива]
rstTMP4![Скид] = rstTMP3![Скидки]
rstTMP4![Спец] = rstTMP3![СпецвупыскИлиНет]
If rstTMP3![Код] = 1 Then
rstTMP4![Тип] = "Локальная"
Else
rstTMP4![Тип] = "Сетевая"
labelnext:
If rstTMP5.RecordCount > 0 Then
rstTMP4![Дата2С1996] = CurrentMWParam(rstTMP5![Месяц])
rst.MoveNext
rstTMP2.Close
rstTMP3.Close
Next i
Exit_Кнопка6_Click:
Err_Кнопка6_Click:
If Err.Number = 3021 Then
'MsgBox ("Нет данных по этой организации")
Resume labelnext:
'Resume Exit_Кнопка6_Click
'MsgBox Err.Description
MsgBox ("Нет данных по этой организации")
Me![ИнфоПоОрганизSub].Form.Visible = 0
MsgBox Err.Number
Resume Exit_Кнопка6_Click
End Sub
Задание по организационно – экономической части к дипломному проекту.
Тема: «Технико-экономическое обоснование проекта. Расчет сметы затрат и цены на ПП. Оценка конкурентоспособности разработки»
1. Календарный график.
В силу того, что данная разработка относится к НИР, которая не является комплексом работ высокой сложности и в ее выполнении не участвуют большое количество исполнителей, в данном случае для реализации работ выбран календарный график.
|N |Наименование|Исполнители |Длительность работы | |п/п |работ | | | | | | |Сент. |окт.|ноя|Декабрь|Январь | | | | | | |брь| | | |1 |Разработка |Начальник | | | | | | | |технического|отдела, |20 | | | | | | |задания |менеджер | | | | | | |2 |Подбор |Системный | | | | | | | |литературы |программист,|15 | | | | | | | |программист | | | | | | |3 |Рабочее |Системный | | | | | | | |проектирован|программист,| |25 | | | | | |ие |программист | | | | | | |4 |Отладка и |Системный | | | | | | | |тестирование|программист,| | |55 | | | | | |программист | | | | | | |5 |Обобщение и |Системный | | | | | | | |оценка |программист,| | | | |30 | | |результатов |программист,| | | | | | | | |менеджер | | | | | | |6 |Сдача темы |Начальник | | | | | | | | |отдела, | | | | |5 | | | |менеджер | | | | | |
2. Расчет сметы.
При составлении сметы затрат на НИР учитываются:
- стоимость материалов, покупных полуфабрикатов и изделий, - основная заработная плата, - дополнительная заработная плата, - отчисления на социальные нужды, - накладные расходы, - затраты на машинное время.
2.1. Определения затрат на материалы, покупные изделия и полуфабрикаты.
|Наименование |Единица |Количество |Цена за |Стоимость | | |измерения | |единицу, | | | | | |руб. | | |1. Литература|Шт. |6 |60.000 |360.000 | |2. НЖМД |Пачка. |4 |40.000 |160.000 | |(дискеты) | | | | | |3. Канцтовары|Шт. | | |50.000 | |4. Бумага(А4)|Пачка |3 |5.000 |15.000 | |Итого: | | | |585.000 |
Транспортные расходы учитываются здесь же и состовляют 5% итоговой суммы, т.е. 29.250 р.
Затраты на материалы и покупные изделия равны:
Зм = 585.000 + 29.250 = 614.250 руб.
2.2. Основная заработная плата.
К этой статье относится заработная плата научных сотрудников, программистов, лаборантов, рабочих , непосредственно связанных с выполнением НИР, а также зарплата сотрудников внештатного состава, привлекаемых к разработке и выполнению НИР |Должность |Заработная плата в |Стоимость одного | | |месяц, руб. |рабочего дня, руб. | |Начальник отдела |2.300.000 |115.000 | |Системный программист|1.200.000 |60.000 | |Программист |1.000.000 |50.000 | |Менеджер |1.900.000 |95.000 |
Таблица расчета основной заработной платы.
|N |Наименование |Исполнитель|Трудоем-|Зарплата |Сумма, | |п/п |этапа НИР | |кость |за 1 день,|руб. | | | | | |руб. | | |1 |Разработка |Начальник |20 |115.000 |2,300,000 | | |технического |отдела, | |95.000 |1,900,000 | | |задания |менеджер | | | | |2 |Подбор |Системный |15 |60.000 |900,000 | | |литературы |программист| |50.000 |750,000 | | | |, | | | | | | |программист| | | | |3 |Рабочее |Системный |25 |60.000 |1,500,000 | | |проектирование |программист| |50.000 |1,250,000 | | | |, | | | | | | |программист| | | | |4 |Отладка и |Системный |55 |60.000 |3,300,000 | | |тестирование |программист| |50.000 |2,750,000 | | | |, | | | | | | |программист| | | | |5 |Обобщенеи и |Системный |30 |60.000 |1,800,000 | | |оценка |программист| |50.000 |1,500,000 | | |результатов |, | | | | | | |программист| | | | | | |, менеджер | | | | |6 |Сдача темы |Начальник |5 |115.000 |575,000 | | | |отдела, | |95.000 |475,000 | | | |менеджер | | | | |7 |Итого |19,000,000|
2.3. Дополнительная заработная плата.
На эту статью относятся выплаты, предусмотренные законодательством за неотработанное рабочее время. Размер дополнительной заработной платы сотрудников, непосредственно выполняющий НИР, определяется в процентах от основной. В научных учереждениях она составляет 10-12% от основной заработной платы.
Здоп = Зосн * 0,12 = 2,280,000 руб.
2.4. Отчисления на социальные нужды.
На эту статью относятся отчисления на оплату перерывов в работе по временной нетрудоспособности. Отчисления на социальные нужды составляют 40% от величины основной заработной платы.
В отчисления на социальные нужды входят:
- отчисления на медицинское страхование:
- в городской бюджет – 0,2%
- в федеральный бюджет – 3,4%
- отчисления в фонд занятости – 1,5%;
- отчисления в пенсионный фонд - 29%;
- отчисления на социальное страхование – 5,4%;
- транспортный налог - 1%;
- отчисления на в фонд образования – 1%;
Зсн = Зосн * 0.415 = 7,600,000 руб.
2.5. Накладные расходы.
Накладные расходы в учреждении, где выполняется данная НИР составляют 120% от суммы основной и дополнительной заработной платы.
Зн = (Зосн + Здоп) * 1.2 = 25,536,000 руб.
2.6. Стоимость машинного времени.
Для отладки программы, численных расчетов и построения графиков необходимо 50 дней. В среднем программист работает 6 часов в день, себестоимость одного часа машинного времени около 3000 руб.
Змаш = 3000 * 6 * 50 = 900,000 руб.
Итоговая таблица сметы затрат.
|N |Наименование статьи расходов |Сумма, руб. | |п/п | | | |1 |Стоимость материалов, покупных |614,250 | | |полуфабрикатов и изделий. | | |2 |Основная заработная плата. |19,000,000 | |3 |Дополнительная заработная плата. |2,280,000 | |4 |Отчисления на социальные нужды. |7,600,000 | |5 |Накладные расходы. |25,536,000 | |6 |Стоимость машинного времени. |900,000 | | |Итого |55,930,250 |
2.7. Цена программного продукта.
Цена, определяется себестоимостью и прибылью, которая в свою очередь составляет 30% от ФОТ.
Ц = 55.930.250 + 0,3 * 21,280,000 = 62,314,250 руб.
3. Оценка экономической эффективности.
Данная НИР относится к базам данных в области бухгалтерского учета. Поэтому количественную оценку эффективности целесообразно производить путем оценки конкурентоспособности данного программного продукта. Для этого возьмем подобную программу и определим параметры обоих товаров путем сравнения. Рассчитаем и оценим коэффициент конкурентоспособности.
| |Частота регистраций | | |Обьем |Быстродействие|Аппаратная |Дизайн|Сервис| | |памяти | |независимость| | | |Нащ |0,81 |0,93 |0,85 |0,87 |0,89 | |программный | | | | | | |продукт | | | | | | |Конкутентный|0,62 |0,84 |0,86 |0,78 |0,81 | |программный | | | | | | |продукт | | | | | |
Рассчитаем коэффициент конкурентоспособности.
Представляемый программный продукт превосходит по конкурентоспособности предоставленный образец и, следовательно, можно сделать вывод, что он будут представлять достаточно большой интерес в своей области, связанной с проектированием баз данных.
Задание по охране труда и техника безопасности.
Тема: «Разработать мероприятия по охране труда на рабочем месте пользователя.»
1. Введение.
Охрана труда - система законодательных актов, постановлений, организационных, санитарных, технических мер, обеспечивающих безопасные для здоровья условия труда на рабочем месте. Научно-технический прогресс внес изменения в условия производственной деятельности работников умственного труда. Их труд стал более интенсивным, напряженным, требующим затрат умственной, эмоциональной и физической энергии.
Это имеет прямое отношение и к специалистам, связанным с проектированием, разработкой, эксплуатацией, сопровождением и модернизацией автоматизированных систем управления различного назначения.
На рабочем месте пользователя должны быть созданы условия для высокопроизводительного труда. В настоящее время все большее применение находят автоматизированные рабочие места ИТР, которые оснащаются персональной ЭВМ и графическим дисплеем, клавиатурой и принте ром.
2. Анализ условий труда пользователя.
Помещение, в котором находится рабочее место пользователя, имеет следующие характеристики:
- длина помещения: 9 м;
- ширина помещения: 7 м;
- высота помещения: 3.5 м;
- число окон: 3;
- число рабочих мест: 6;
- освещение: искусственное;
- число вычислительной техники: 5.
На рабочем месте пользователь подвергается воздействию следующих факторов, которые могут привести к неблагоприятным последствиям:
- недостаточное освещение;
- шум от работающих машин;
- облучение от экрана дисплея;
- выделение избытков теплоты.
Кроме того, в помещение могут попадать частички пыли.
3. Постановка задачи.
На основе анализа условий труда пользователя разрабатываются различные средства защиты от факторов, влияющих на пользователя в процессе работы, такие как: ограничение длительности работ, вентиляция, искусственное освещение, звукоизоляция. Имеются нормативы, определяющие комфортные условия и предельно допустимые нормы запыленности, температуры воздуха, шума, освещенности. В данной дипломной работе, согласно заданию, рассчитаем освещение и выберем систему вентиляции.
4. Расчет вентиляции.
4.1. Анализ микроклимата.
Необходимым условием жизнедеятельности человека является поддержка постоянства температуры тела, благодаря свойству терморегуляции, т.е. свойству организма регулировать отдачу тепла в окружающую среду. Поэтому большое значение имеет микроклимат в помещении, где работает инженер- программист. Метеорологические условия на производстве определяются следующими параметрами:
1) температурой воздуха t( C);
2) относительной влажностью (%);
3) скоростью движения воздуха на рабочем месте,V(м/с).
Основной принцип нормирования микроклимата - создание оптимальных условий для теплообмена тела человека с окружающей средой. Выделяемая организмом человека теплота должна отводиться в окружающую среду. Соответствие между количеством этой теплоты и охлаждающей способностью среды характеризует ее как комфортную. В условиях комфорта у человека не возникает беспокоящих его температурных ощущений холода или перегрева. В "Общих санитарно-гигиенических требованиях к воздуху рабочей зоны" (ГОСТ 12.1.005-88) установлены оптимальные и допустимые параметры микроклимата в зависимости от времени года, категории работ и рабочих мест (постоянных и непостоянных). Параметры микроклимата приведены табл. 1.
Таблица 1. Параметры микроклимата.
|Период |Категория |Зона |Тмпера-ту|Относит. |Скорость | |года |работ | |ра, °C |влажность, % |движения, | | | | | | |м/с | |холдн. |Легкая |оптим. |22-24 |40-60 |0.1 | | | |доп. |25-18 |75 |
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18
