97
- автоматизации составления отчетности.
Для достижения поставленной цели определены требования к видам
обеспечения автоматизированной системы. Для реализации программного
обеспечения выбрана среда 1С:Предприятие.
Разработана информационная база для проектируемой автоматизиро-
ванной системы. Информационная база содержит ряд справочников, докумен-
тов, регистров и отчетов. Проведены испытания разработанной системы; ис-
пытания показали полное соответствие разработанной системы требованиям
заказчика.
Рассчитанный экономический эффект от внедрения разработанной си-
стемы учета арендованных средств позволяет сделать вывод о том, что си-
стема окупится менее, чем за 2 месяца. Основной эффект достигается за счет
сокращения времени на выполнение трудоемких операций.
Разработанная система должна быть интегрирована в общую учетную
систему, в частности – соединена с бухгалтерской системой для автоматиза-
ции учета платежей.
98
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
1. ГОСТ Р ИСО/МЭК 12207-99
2. Баронов В.В. и др. Автоматизация управления предприятием. – М.:
ИНФРА-М, 2005
3. Васюхин О. В., Варзунов А. В. Информационный менеджмент: крат-
кий курс. Учебное пособие. – СПб.: СПбГУ ИТМО, 2010
4. Гвоздева Г.В., Баллод Б.А., Проектирование информационных систем,
Ростов н/Д: Феникс, 2009 - 508 с
5. Гончаров А, Хрусталева Е. Технологии интеграции «1С:Предприятия
8.2. 1С-Паблишинг, 2011
6. Грекул В.И., Денищенко Г.Н., Коровкина Н.Л. Проектирование ин-
формационных систем – М.: ИУИТ, 2012 – 300 с.
7. Душин В.К. Теоретические основы информационных процессов и
систем: Учебник / В.К. Душин. – М.: Издательско-торговая корпорация
«Дашков и Ко», 2012.
8. Жихарев А.П. Автоматизированные информационные системы и
ресурсы / А.П. Жихарев — Москва, Юнити-Дана, Закон и право, 2013.
9. Избачков Ю.С. Информационные системы / Ю.С. Избачков, В.Н. Пет-
ров. — СПб.: Питер, 2012.
10. Исаев Г.В. Проектирование информационных систем. Учебное
пособие / Г.В.Исаев. – М.:Омега-Л, 2013.
11. Кашаев C. 1С:Предприятие 8. Учимся программировать на
примерах. БХВ-Петербург, 2008г.
12. Козырев А.А. Информационные технологии в экономике и
управлении. Учебник. 2-е издание. / А.А.Козырев. – СПб.: Издательство
Михайлова В.А., 2011.
13. Колесов Ю.Б. Моделирование систем. Объектно-
ориентированный подход. Учебное пособие / Ю.Б. Колесов, Ю.Б. Сениченков.
– СПБ.: БХВ-Петербург, 2013.
99
14. Красин В. Как оценить экономическую эффективность ИТ-
проекта, СК ПРЕСС https://www.iemag.ru/, 24.03.2014
15. Миронов В.И. Трудовое право России. Учебник. - ООО "Журнал
"Управление персоналом", 2004.
16. Митичкин С.А. Разработка в системе "1С:Предприятие 8.0". ООО
«1С-Паблишинг», 2003г.
17. Советов Б.Я. Базы данных: учебник / Б.Я. Советов, В.В. Цеханов-
ский, В.Д. Чертовский. – 2-е изд., перераб. и доп. - М.: Юрайт, 2015. - 463с.
18. Фирма 1С. WWW:http://www.1c.ru
100
ПРИЛОЖЕНИЕ 1. ТЕКСТ ПРОГРАММНЫХ МОДУЛЕЙ
Модуль формы документа «Техника»
&НаКлиенте
Процедура ПриОткрытии(Отказ)
состояние=ПриОткрытииНаСервере(объект.ссылка);
элементы.Декорация1.Заголовок=состояние;
КонецПроцедуры
&НаСервере
функция ПриОткрытииНаСервере(техника)
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| СостояниеТехникиСрезПоследних.Состояние
|ИЗ
| РегистрСведений.СостояниеТехники.СрезПоследних КАК Со-
стояниеТехникиСрезПоследних
|ГДЕ
| СостояниеТехникиСрезПоследних.Техника = &Техника";
Запрос.УстановитьПараметр("Техника", Техника);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
возврат выборкадетальныезаписи.состояние;
КонецЦикла;
КонецФункции
Модель формы документа «Передача в аренду»
&НаСервере
Функция РассчитатьНаСервере(техника, выбдата, Почасовая)
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| СтоимостьАрендыСрезПоследних.Техника,
101
| СтоимостьАрендыСрезПоследних.СтоимостьПосуточная,
| СтоимостьАрендыСрезПоследних.СтоимостьПочасовая
|ИЗ
| РегистрСведений.СтоимостьАренды.СрезПоследних
(&выбдата)КАК СтоимостьАрендыСрезПоследних
|ГДЕ
| СтоимостьАрендыСрезПоследних.Техника = &Техника";
Запрос.УстановитьПараметр("Техника", Техника.ссылка);
Запрос.УстановитьПараметр("выбдата", выбдата);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
если Почасовая тогда возврат ВыборкаДетальныеЗаписи.стоимостьПочасо-
вая иначе возврат ВыборкаДетальныеЗаписи.стоимостьПосуточная ;
конецесли;
КонецЦикла;
КонецФункции
&НаКлиенте
Процедура Рассчитать(Команда)
объект.СтоимостьАренды=РассчитатьНаСервере(объект.Техника, объ-
ект.дата, объект.Почасовая)*объект.ЧислоСмен;
КонецПроцедуры
Модуль документа «Передача в аренду»
Процедура ОбработкаПроведения(Отказ, Режим)
Движения.СостояниеТехники.Записывать = Истина;
Движение = Движения.СостояниеТехники.Добавить();
Движение.Период = Дата;
Движение.Техника = Техника;
Движение.Состояние = перечисления.СостояниеТехники.ВАренде;
Движение.ДатаОкончания=окончаниеАренды;
Движение.Клиент=Клиент;
// регистр Оплаты Приход
102
Движения.Оплаты.Записывать = Истина;
Движение = Движения.Оплаты.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Техника = Техника;
Движение.Клиент = Клиент;
Движение.Оплата = Оплачено;
Движение.ДокументАренды=Ссылка;
КонецПроцедуры
Модуль менеджера документа «Передача в аренду»
Процедура Печать(ТабДок, Ссылка) Экспорт
Макет = Документы.ПередачаВАренду.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ПередачаВАренду.Дата,
| ПередачаВАренду.Клиент,
| ПередачаВАренду.НачалоАренды,
| ПередачаВАренду.Номер,
| ПередачаВАренду.ОкончаниеАренды,
| ПередачаВАренду.Оплачено,
| ПередачаВАренду.СтоимостьАренды,
| ПередачаВАренду.Техника,
| ПередачаВАренду.ЧислоСмен
|ИЗ
| Документ.ПередачаВАренду КАК ПередачаВАренду
|ГДЕ
| ПередачаВАренду.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
103
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
Шапка.Параметры.Госномер=Выборка.Техника.Госномер;
Шапка.Параметры.Техника1=Выборка.Техника.ПолноеНаименование;
Шапка.Параметры.Марка=Выборка.Техника.Марка;
Шапка.Параметры.ГодВыпуска=Выборка.Техника.ГодВыпуска;
Шапка.Параметры.ЗаводскойНомер=Выборка.Техника.ЗаводскойНомер;
Шапка.Параметры.НомерДвигателя=Выборка.Техника.НомерДвигателя;
ТабДок.Вывести(Шапка, Выборка.Уровень());
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
КонецПроцедуры
Процедура ПечатьАкта(ТабДок, Ссылка) Экспорт
Макет = Документы.ПередачаВАренду.ПолучитьМакет("ПечатьАкта");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ПередачаВАренду.Дата,
| ПередачаВАренду.Клиент,
| ПередачаВАренду.Номер,
| ПередачаВАренду.Техника,
| ПередачаВАренду.ТехническоеСостояние
|ИЗ
| Документ.ПередачаВАренду КАК ПередачаВАренду
|ГДЕ
| ПередачаВАренду.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
104
Шапка = Макет.ПолучитьОбласть("Шапка");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
Шапка.Параметры.Госномер=Выборка.Техника.Госномер;
Шапка.Параметры.Техника1=Выборка.Техника.ПолноеНаименова-
ние;
Шапка.Параметры.Марка=Выборка.Техника.Марка;
Шапка.Параметры.ГодВыпуска=Выборка.Техника.ГодВыпуска;
Шапка.Параметры.ЗаводскойНомер=Выборка.Техника.ЗаводскойНомер;
Шапка.Параметры.НомерДвигателя=Выборка.Техника.НомерДвигателя;
Шапка.Параметры.Телефон=Выборка.Клиент.Телефон;
ТабДок.Вывести(Шапка, Выборка.Уровень());
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
КонецПроцедуры
Модуль формы документа «Получение из аренды»
&НаСервере
Функция РассчитатьНаСервере(техника, выбдата, Почасовая)
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| СтоимостьАрендыСрезПоследних.Техника,
| СтоимостьАрендыСрезПоследних.СтоимостьПосуточная,
| СтоимостьАрендыСрезПоследних.СтоимостьПочасовая
|ИЗ
105
| РегистрСведений.СтоимостьАренды.СрезПоследних
(&выбдата)КАК СтоимостьАрендыСрезПоследних
|ГДЕ
| СтоимостьАрендыСрезПоследних.Техника = &Техника";
Запрос.УстановитьПараметр("Техника", Техника.ссылка);
Запрос.УстановитьПараметр("выбдата", выбдата);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
если Почасовая тогда возврат ВыборкаДетальныеЗаписи.стоимостьПочасо-
вая иначе возврат ВыборкаДетальныеЗаписи.стоимостьПосуточная ;
конецесли;
КонецЦикла;
КонецФункции
&НаКлиенте
Процедура Рассчитать(Команда)
объект.СтоимостьАренды=РассчитатьНаСервере(объект.Техника, объ-
ект.дата, объект.Почасовая)*объект.ЧислоСмен;
Объект.ОстатокПереплата=объект.СтоимостьАренды-объект.Оплачено;
КонецПроцедуры
Модуль документа «Получение из аренды»
Процедура ОбработкаПроведения(Отказ, Режим)
Движения.СостояниеТехники.Записывать = Истина;
Движение = Движения.СостояниеТехники.Добавить();
Движение.Период = Дата;
Движение.Техника = Техника;
Движение.Состояние = перечисления.СостояниеТехники.Свободен;
Движение.ДатаОкончания=окончаниеАренды;
Движение.Клиент=Клиент;
Движения.Оплаты.Записывать = Истина;
Движение = Движения.Оплаты.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
106
Движение.Период = Дата;
Движение.Техника = Техника;
Движение.Клиент = Клиент;
Движение.Оплата = ОстатокПереплата;
Движение.ДокументАренды=ДокументПередачи;
КонецПроцедуры
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.ПередачаВА-
ренду") Тогда
Клиент = ДанныеЗаполнения.Клиент;
НачалоАренды = ДанныеЗаполнения.НачалоАренды;
ОкончаниеАренды = ДанныеЗаполнения.ОкончаниеАренды;
Оплачено = ДанныеЗаполнения.Оплачено;
ДокументПередачи = ДанныеЗаполнения.Ссылка;
СтоимостьАренды = ДанныеЗаполнения.СтоимостьАренды;
Техника = ДанныеЗаполнения.Техника;
ЧислоСмен = ДанныеЗаполнения.ЧислоСмен;
ОстатокПереплата= СтоимостьАренды-Оплачено;
КонецЕсли;
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
Движения.СтоимостьАренды.Записывать = Истина;
Для Каждого ТекСтрокаТехника Из Техника Цикл
Движение = Движения.СтоимостьАренды.Добавить();
Движение.Период = Дата;
Движение.Техника = ТекСтрокаТехника.техника;
Движение.Стоимость = ТекСтрокаТехника.Стоимость;
КонецЦикла;
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
Движения.СостояниеТехники.Записывать = Истина;