92
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
1. ГОСТ Р ИСО/МЭК 12207-99
2. Баронов В.В. и др. Автоматизация управления предприятием. – М.: ИН-
ФРА-М, 2005
3. Васюхин О. В., Варзунов А. В. Информационный менеджмент: краткий
курс. Учебное пособие. – СПб.: СПбГУ ИТМО, 2010
4. Гвоздева Г.В., Баллод Б.А., Проектирование информационных систем,
Ростов н/Д: Феникс, 2009 - 508 с
5. Гончаров А, Хрусталева Е. Технологии интеграции «1С:Предприятия
8.2». 1С-Паблишинг, 2011
6. Душин В.К. Теоретические основы информационных процессов и
систем: Учебник / В.К. Душин. – М.: Издательско-торговая корпорация «Дашков и
Ко», 2012.
7. Жихарев А.П. Автоматизированные информационные системы и
ресурсы / А.П. Жихарев — Москва, Юнити-Дана, Закон и право, 2013.
8. Избачков Ю.С. Информационные системы / Ю.С. Избачков, В.Н. Петров.
— СПб.: Питер, 2012.
9. Исаев Г.В. Проектирование информационных систем. Учебное пособие /
Г.В.Исаев. – М.:Омега-Л, 2013.
10. Кашаев C. 1С:Предприятие 8. Учимся программировать на
примерах. БХВ-Петербург, 2008г.
11. Козырев А.А. Информационные технологии в экономике и управлении.
Учебник. 2-е издание. / А.А.Козырев. – СПб.: Издательство Михайлова В.А., 2011.
12. Колесов Ю.Б. Моделирование систем. Объектно-ориентированный
подход. Учебное пособие / Ю.Б. Колесов, Ю.Б. Сениченков. – СПБ.: БХВ-
Петербург, 2013.
13. Красин В. Как оценить экономическую эффективность ИТ-проекта, СК
ПРЕСС https://www.iemag.ru/, 24.03.2014
14. Никонова Е.З., Тарасова И.Н. Встроенный язык программирования
1С:Предприятие как объект изучения // СИСП. 2017. №4-2. URL:
93
https://cyberleninka.ru/article/n/vstroennyy-yazyk-programmirovaniya-1s-predpriyatie-
kak-obekt-izucheniya (дата обращения: 08.01.2019).
15. Митичкин С.А. Разработка в системе «1С:Предприятие 8.0». ООО «1С-
Паблишинг», 2003г.
16. Фирма 1С. WWW:http://www.1c.ru
17. Официальный сайт компании Класс365 [Электронный ресурс] – Режим
доступа: http://class365.ru/
18. Официальный сайт компании Planetsoft [Электронный ресурс] – Режим
доступа: http://www.planetsoft.ru/
94
ПРИЛОЖЕНИЕ 1. ТЕКСТЫ ПРОГРАММНЫХ МОДУЛЕЙ
Модуль формы справочника «Договоры»
Процедура Печать(Элемент)
ТабДок = Новый ТабличныйДокумент;
Макет = Справочники.Договора.ПолучитьМакет("Печать");
Область = Макет.ПолучитьОбласть("Заголовок");
ТабДок.Вывести(Область);
Шапка = Макет.ПолучитьОбласть("Шапка");
Шапка.Параметры.Заполнить(ЭтотОбъект);
ТабДок.Вывести(Шапка);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
КонецПроцедуры
Модуль формы справочника «Клиенты»
Процедура ЮрФизЛицоПриИзменении(Элемент)
Если ЮрФИзЛицо=Истина тогда ЭлементыФор-
мы.Паспорт.Видимость=Ложь;
иначе ЭлементыФормы.Паспорт.Видимость=Истина Конецесли;
ЭлементыФор-
мы.НадписьПаспорт.Видимость=ЭлементыФормы.Паспорт.Видимость;
КонецПроцедуры
Процедура ПриОткрытии()
Если ЮрФИзЛицо=Истина тогда ЭлементыФор-
мы.Паспорт.Видимость=Ложь;
иначе ЭлементыФормы.Паспорт.Видимость=Истина Конецесли;
ЭлементыФор-
мы.НадписьПаспорт.Видимость=ЭлементыФормы.Паспорт.Видимость;
95
КонецПроцедуры
Модуль формы документа «Заявка»
Процедура ЗаполнениеЗаявки(Кнопка)
ДиалогВыбора = Новый ДиалогВыбораФай-
ла(РежимДиалогаВыбораФайла.Открытие);
ДиалогВыбора.Заголовок = "Выберите файл";
Если ДиалогВыбора.Выбрать() Тогда
ИмяФайла = ДиалогВыбора.ПолноеИмяФайла;
КонецЕсли;
Попытка
Excel = Новый COMОбъект("Excel.Application");
Excel.WorkBooks.Open(ИмяФайла);
Состояние("Обработка файла Microsoft Excel...");
Исключение
Сообщить("Ошибка при открытии файла с помощью Excel! Загрузка не будет про-
изведена!");
Сообщить(ОписаниеОшибки());
Возврат;
КонецПопытки;
Попытка
Excel.Sheets(1).Select();
Исключение
Excel.ActiveWorkbook.Close();
Excel = 0;
Сообщить("Файл "+Строка(ИмяФайла)+" не соответствует необходимому форма-
ту! Первый лист не найден!");
ОтменитьТранзакцию();
Возврат;
КонецПопытки;
96
Версия = Лев(Excel.Version,Найти(Excel.Version,".")-1);
Если Версия = "8" тогда
ФайлСтрок = Excel.Cells.CurrentRegion.Rows.Count;
ФайлКолонок = Макс(Excel.Cells.CurrentRegion.Columns.Count, 13);
Иначе
ФайлСтрок = Excel.Cells(1,1).SpecialCells(11).Row;
ФайлКолонок = Excel.Cells(1,1).SpecialCells(11).Column;
Конецесли;
ЗКлиент=Excel.Cells(3, 3).Text;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Клиенты.Ссылка,
| Клиенты.ИНН
|ИЗ
| Справочник.Клиенты КАК Клиенты
|ГДЕ
| Клиенты.ИНН = &ИНН";
Запрос.УстановитьПараметр("ИНН", ЗКлиент);
РезультатЗапроса = Запрос.Выполнить();
л=0;
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
клиент=выборкадетальныезаписи.ссылка;
л=л+1;
КонецЦикла;
если л=0 тогда сообщить ("Клиент не найден");конецесли;
97
ЗДоговор=Excel.Cells(4, 3).Text;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Договора.Ссылка
|ИЗ
| Справочник.Договора КАК Договора
|ГДЕ
| Договора.Наименование = &Наименование";
Запрос.УстановитьПараметр("Наименование", ЗДоговор);
РезультатЗапроса = Запрос.Выполнить();
л=0;
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Договор=выборкадетальныезаписи.ссылка;
л=л+1;
КонецЦикла;
если л=0 тогда сообщить ("Договор не найден");конецесли;
КолПоз=число(Excel.Cells(5, 3).Text);
Для ц=1 по КолПоз Цикл
НС=Заказано.Добавить();
НС.Количество= Excel.Cells(ц+8, 3).Text;
Арт=Excel.Cells(ц+8, 2).Text;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Товары.Ссылка,
98
| Товары.ЦенаПродажи,
| Товары.Артикул
|ИЗ
| Справочник.Товары КАК Товары
|ГДЕ
| Товары.Артикул = &Артикул";
Запрос.УстановитьПараметр("Артикул", Арт);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
л=0;
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
НС.Товар=ВыборкаДетальныеЗаписи.Ссылка;
НС.Цена=ВыборкаДетальныеЗаписи.ЦенаПродажи;
л=л+1;
КонецЦикла;
если л=0 тогда сообщить ("Товар "+Арт+" не найден");конецесли;
НС.Стоимость=НС.Количество*НС.Цена;
КонецЦикла;
Excel.DisplayAlerts = 0;
Excel.Quit();
Excel.DisplayAlerts = 1;
КонецПроцедуры
Процедура КоманднаяПанель2ГрафикВыпонения(Кнопка)
Отчет=отчеты.ГрафикВыполненияЗаявки.Создать();
отчет.Заявка=ссылка;
99
ФормаОтчета=отчет.ПолучитьФорму();
формаотчета.Открыть();
КонецПроцедуры
Процедура ЗаказаноТоварПриИзменении(Элемент)
СтрокаТабличнойЧасти = ЭлементыФормы.заказано.ТекущиеДанные;
СтрокаТабличнойЧасти.цена=Строкатабличнойчасти.Товар.ценаПродажи;
СтрокаТабличнойЧасти.Стоимость = СтрокаТабличнойЧасти.Количество *
СтрокаТабличнойЧасти.Цена;
КонецПроцедуры
Процедура ЗаказаноКоличествоПриИзменении(Элемент)
СтрокаТабличнойЧасти = ЭлементыФормы.заказано.ТекущиеДанные;
СтрокаТабличнойЧасти.Стоимость = СтрокаТабличнойЧасти.Количество *
СтрокаТабличнойЧасти.Цена;
КонецПроцедуры
Процедура Печать(Элемент)
ТабДок = Новый ТабличныйДокумент;
Макет = Документы.Заявка.ПолучитьМакет("Печать");
// Заголовок
Область = Макет.ПолучитьОбласть("Заголовок");
ТабДок.Вывести(Область);
// Шапка
Шапка = Макет.ПолучитьОбласть("Шапка");
Шапка.Параметры.Заполнить(ЭтотОбъект);
ТабДок.Вывести(Шапка);
// Заказано
Область = Макет.ПолучитьОбласть("ЗаказаноШапка");
ТабДок.Вывести(Область);
ОбластьЗаказано = Макет.ПолучитьОбласть("Заказано");
Для Каждого ТекСтрокаЗаказано Из Заказано Цикл
100
ОбластьЗаказано.Параметры.Заполнить(ТекСтрокаЗаказано);
ТабДок.Вывести(ОбластьЗаказано);
КонецЦикла;
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
КонецПроцедуры
Модуль формы документа «Реализация»
Процедура ПоставленоТоварПриИзменении(Элемент)
СтрокаТабличнойЧасти = ЭлементыФормы.поставлено.ТекущиеДанные;
СтрокаТабличнойЧасти.цена=Строкатабличнойчасти.Товар.ценаПродажи;
СтрокаТабличнойЧасти.Стоимость = СтрокаТабличнойЧасти.Количество *
СтрокаТабличнойЧасти.Цена;
// Вставить содержимое обработчика.
КонецПроцедуры
Процедура ПоставленоКоличествоПриИзменении(Элемент)
СтрокаТабличнойЧасти = ЭлементыФормы.поставлено.ТекущиеДанные;
СтрокаТабличнойЧасти.Стоимость = СтрокаТабличнойЧасти.Количество *
СтрокаТабличнойЧасти.Цена;
// Вставить содержимое обработчика.
КонецПроцедуры
Модуль объекта документа «Реализация»
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.Заявка") Тогда
Клиент = ДанныеЗаполнения.Клиент;
Заявка = ДанныеЗаполнения.Ссылка;
101
Для Каждого ТекСтрокаЗаказано Из ДанныеЗаполнения.Заказано
Цикл
НоваяСтрока = Поставлено.Добавить();
НоваяСтрока.Количество = ТекСтрокаЗаказано.Количество;
НоваяСтрока.Стоимость = ТекСтрокаЗаказано.Стоимость;
НоваяСтрока.Товар = ТекСтрокаЗаказано.Товар;
НоваяСтрока.Цена = ТекСтрокаЗаказано.Цена;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, РежимПроведения)
Заявк=Заявка.ПолучитьОбъект();
НС=Заявк.СтатусЗаявки.Добавить();
нс.СтатусЗаявки=справочники.СтатусыЗаявок.Выполнена;
нс.ДатаНачала=Выполнение;
Нс.ДатаОкончания=нс.ДатаНачала+60*60*24;
КЗ=заявк.Заказано.Количество();
КР=Поставлено.Количество();
л=0;
Для каждого тс из поставлено цикл
если значениезаполнено(тс.ЗаменаЗаказанному)=Истина тогда л=л+1;
конецесли;
конеццикла;
если л=0 тогда
если КЗ>КР тогда за-
явк.СтатусВыполненияЗаявки=справочники.СтатусыВыполненияЗаявок.Частично;
иначе за-
явк.СтатусВыполненияЗаявки=справочники.СтатусыВыполненияЗаявок.Полностью;
конецесли;
иначе