99
СПИСОК ИСПОЛЬЗОВАННОЙ ИСТОЧНИКОВ
1. ГОСТ 2.105-95 ЕСКД. Общие требования к текстовым документам (с
Изменением N 1).
2. ГОСТ 7.32- 2001 Структура и правила оформления 22с.
3. ГОСТ Р 50922-2006 Защита информации. Основные термины и
определения.
4. ГОСТ Р ИСО/МЭК 12207-2010 Информационная технология.
Системная и программная инженерия. Процессы жизненного цикла
программных средств.
5. Алексеева Т.В. Защита электронных документов [Электронный
ресурс]. // Современные технологии делопроизводства и
документооборота 2014 № 6
6. Балдин, К.В. Информационные системы в экономике: Учебное
пособие / К.В. Балдин. - М.: НИЦ ИНФРА-М, 2015. – 218с.
7. Бодров, О.А Предметно-ориентированные экономические
информационные системы. - М.: ГЛТ, 2013. - 244 c.
8. Вдовин, В.М. Предметно-ориентированные экономические
информационные системы: Учебное пособие / В.М. Вдовин, Л.Е.
Суркова, А.А. Шурупов. - М.: Дашков и К, 2016. – 388с.
9. Емельянов, С.В. Информационные технологии и вычислительные
системы. - М.: Ленанд, 2015. – 96с.
10. Радченко М.Г. 1С: Предприятие 8.3. Практическое пособие
разработчика. Примеры и типовые приемы. – М.: ООО «1С:
Паблишинг», 2017. – 512 с.
11. Рыжко, А.Л. Информационные системы управления
производственной компанией: Учебник для академического
бакалавриата - Люберцы: Юрайт, 2016. – 354с.
12. Кашаев С. М. 1С: Предприятие 8.3. Разработка прикладных решений.
– Издательство: СПб.: Питер 2016– 269 с.
100
13. Информационные системы и технологии: Научное издание. / Под ред.
Ю.Ф. Тельнова. - М.: ЮНИТИ, 2016. - 303 c.
14. Максимов Н.В., Попов И.И., Голицына О.Л. Информационные
системы. Учебное пособие. Форум, 2009 г. - 496 с.
15. Хрусталева Е.Ю. Язык запросов «1С: Предприятия8» -Москва ООО
«1С-Паблишинг»2016.
16. 1С Предприятие: 8.3. Руководство администратора – М.: ООО «1С-
Паблишинг», 2017. – 420 с.
101
ПРИЛОЖЕНИЯ
Приложение А Код программного обеспечения
Function ИдентификаторИнформационнойБазы() Экспорт
ИдентификаторИнформационнойБазы =
Константы.ИдентификаторИнформационнойБазы.Получить();
If ПустаяСтрока(ИдентификаторИнформационнойБазы) Then
ИдентификаторИнформационнойБазы = Новый УникальныйИдентификатор();
Константы.ИдентификаторИнформационнойБазы.Установить(Строка(Идентифик
аторИнформационнойБазы));
EndIf;
Возврат ИдентификаторИнформационнойБазы;
EndFunction
Function ЗначенияРеквизитовОбъектов(МассивСсылок, ИменаРеквизитов)
Экспорт
ЗначенияРеквизитов = Новый Соответствие;
If ТипЗнч(МассивСсылок) = Тип("Массив") ИЛИ ТипЗнч(МассивСсылок) =
Тип("ФиксированныйМассив") Then
If МассивСсылок.Количество() = 0 Then
Возврат ЗначенияРеквизитов;
EndIf;
Else
ОбщегоНазначения.СообщитьОбОшибке("Неверный тип параметра
""МассивСсылок""");
EndIf;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Ссылка КАК Ссылка, " + ИменаРеквизитов + "
|ИЗ
102
| " + МассивСсылок[0].Метаданные().ПолноеИмя() + " КАК Таблица
|ГДЕ
| Таблица.Ссылка В (&МассивСсылок)";
Запрос.УстановитьПараметр("МассивСсылок", МассивСсылок);
ВыборкаЗапроса = Запрос.Выполнить().Выбрать();
Пока ВыборкаЗапроса.Следующий() Цикл
Результат = Новый Структура(ИменаРеквизитов);
ЗаполнитьЗначенияСвойств(Результат, ВыборкаЗапроса);
ЗначенияРеквизитов[ВыборкаЗапроса.Ссылка] = Результат;
КонецЦикла;
Возврат ЗначенияРеквизитов;
EndFunction
Function ЗначениеРеквизитаОбъектов(МассивСсылок, ИмяРеквизита)
Экспорт
ЗначенияРеквизитов = ЗначенияРеквизитовОбъектов(МассивСсылок,
ИмяРеквизита);
Для Каждого Элемент Из ЗначенияРеквизитов Цикл
ЗначенияРеквизитов[Элемент.Ключ] = Элемент.Значение[ИмяРеквизита];
КонецЦикла;
Возврат ЗначенияРеквизитов;
EndFunction
ProcedureПредупреждениеОбОшибке(ТекстСообщения) Экспорт
#If ТолстыйКлиентОбычноеПриложение Then
Предупреждение(ТекстСообщения);
#Else
ВызватьИсключение(ТекстСообщения);
#EndIf
КонецПроцедуры // ПредупреждениеОбОшибке()
////////////////////////////////////////////////////////////////////////////////
// СИСТЕМНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
103
ProcedureЗапуститьПрограмму(ПутьКПрограмме, РабочийКаталог =
Неопределено) Экспорт
#If ТолстыйКлиентОбычноеПриложение Then
ЗапуститьПриложение(ПутьКПрограмме, РабочийКаталог);
#EndIf
КонецПроцедуры // ЗапуститьПрограмму()
// Получает идентификатор информационной базы.
// If идентификатор не заполнен, то устанавливает его значение.
// Константа ИдентификаторИнформационнойБазы не должна входить в составы
планов обмена и иметь
// различные значения в каждой информационной базе.
//
Function ИдентификаторИнформационнойБазы() Экспорт
ИдентификаторИнформационнойБазы =
Константы.ИдентификаторИнформационнойБазы.Получить();
If ПустаяСтрока(ИдентификаторИнформационнойБазы) Then
ИдентификаторИнформационнойБазы = Новый УникальныйИдентификатор();
Константы.ИдентификаторИнформационнойБазы.Установить(Строка(Идентифик
аторИнформационнойБазы));
EndIf;
Возврат ИдентификаторИнформационнойБазы;
EndFunction
Function ЗначенияРеквизитовОбъектов(МассивСсылок, ИменаРеквизитов)
Экспорт
ЗначенияРеквизитов = Новый Соответствие;
If ТипЗнч(МассивСсылок) = Тип("Массив") ИЛИ ТипЗнч(МассивСсылок) =
Тип("ФиксированныйМассив") Then
If МассивСсылок.Количество() = 0 Then
Возврат ЗначенияРеквизитов;
104
EndIf;
Else
ОбщегоНазначения.СообщитьОбОшибке("Неверный тип параметра
""МассивСсылок""");
EndIf;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Ссылка КАК Ссылка, " + ИменаРеквизитов + "
|ИЗ
| " + МассивСсылок[0].Метаданные().ПолноеИмя() + " КАК Таблица
|ГДЕ
| Таблица.Ссылка В (&МассивСсылок)";
Запрос.УстановитьПараметр("МассивСсылок", МассивСсылок);
ВыборкаЗапроса = Запрос.Выполнить().Выбрать();
Пока ВыборкаЗапроса.Следующий() Цикл
Результат = Новый Структура(ИменаРеквизитов);
ЗаполнитьЗначенияСвойств(Результат, ВыборкаЗапроса);
ЗначенияРеквизитов[ВыборкаЗапроса.Ссылка] = Результат;
КонецЦикла;
Возврат ЗначенияРеквизитов;
EndFunction
Function ПровестиДокументы(Документы, ТипПроведенныхДокументов =
Неопределено) Экспорт
НепроведенныеДокументы = Новый Массив;
Для Каждого ДокументСсылка Из Документы Цикл
ВыполненоУспешно = Ложь;
ДокументОбъект = ДокументСсылка.ПолучитьОбъект();
If ДокументОбъект.ПроверитьЗаполнение() Then
105
Попытка
ДокументОбъект.Записать(РежимЗаписиДокумента.Проведение);
ВыполненоУспешно = Истина;
Исключение
ПредставлениеОшибки =
КраткоеПредставлениеОшибки(ИнформацияОбОшибке());
ЗаписьЖурналаРегистрации(НСтр("ru = 'Проведение документов при печати'",
ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()),
УровеньЖурналаРегистрации.Информация, ДокументОбъект.Метаданные(),
ДокументСсылка,
ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
КонецПопытки;
Else
ПредставлениеОшибки = НСтр("ru = 'Поля документа не заполнены.'");
EndIf;
If Не ВыполненоУспешно Then
НепроведенныеДокументы.Добавить(Новый
Структура("Ссылка,ОписаниеОшибки", ДокументСсылка,
ПредставлениеОшибки));
EndIf;
КонецЦикла;
Возврат НепроведенныеДокументы;
EndFunction
Function ФиксированныеДанные(Данные, ВызыватьИсключение = Истина)
Экспорт
If ТипЗнч(Данные) = Тип("Массив") Then
Масив = Новый Массив;
Индекс = Данные.Количество() - 1;
Для каждого Значение Из Данные Цикл
If ТипЗнч(Значение) = Тип("Структура")
106
ИЛИ ТипЗнч(Значение) = Тип("Соответствие")
ИЛИ ТипЗнч(Значение) = Тип("Массив") Then
Массив.Добавить(ФиксированныеДанные(Значение, ВызыватьИсключение));
Else
If ВызыватьИсключение Then
ПроверкаФиксированностиДанных(Значение, Истина);
EndIf;
Массив.Добавить(Значение);
EndIf;
КонецЦикла;
Возврат Новый ФиксированныйМассив(Массив);
ElseIf ТипЗнч(Данные) = Тип("Структура")
ИЛИ ТипЗнч(Данные) = Тип("Соответствие") Then
If ТипЗнч(Данные) = Тип("Структура") Then
Коллекция = Новый Структура;
Else
Коллекция = Новый Соответствие;
EndIf;
Для каждого КлючИЗначение Из Данные Цикл
Значение = КлючИЗначение.Значение;
If ТипЗнч(Значение) = Тип("Структура")
ИЛИ ТипЗнч(Значение) = Тип("Соответствие")
ИЛИ ТипЗнч(Значение) = Тип("Массив") Then
Коллекция.Вставить(
КлючИЗначение.Ключ, ФиксированныеДанные(Значение,
ВызыватьИсключение));
Else
If ВызыватьИсключение Then
ПроверкаФиксированностиДанных(Значение, Истина);
EndIf;
107
Коллекция.Вставить(КлючИЗначение.Ключ, Значение);
EndIf;
КонецЦикла;
If ТипЗнч(Данные) = Тип("Структура") Then
Возврат Новый ФиксированнаяСтруктура(Коллекция);
Else
Возврат Новый ФиксированноеСоответствие(Коллекция);
EndIf;
ElseIf ВызыватьИсключение Then
ПроверкаФиксированностиДанных(Данные);
EndIf;
Возврат Данные;
EndFunction
Function ПроверитьИмяЭкспортнойПроцедуры(Знач ИмяЭкспортнойПроцедуры,
ТекстСообщения) Экспорт
// Проверка предусловий на формат ИмяЭкспортнойПроцедуры.
ЧастиИмени =
СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(ИмяЭкспо
ртнойПроцедуры, ".");
If ЧастиИмени.Количество() <> 2 И ЧастиИмени.Количество() <> 3 Then
ТекстСообщения =
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru='Неправильный формат параметра ИмяЭкспортнойПроцедуры (%1)'"),
ИмяЭкспортнойПроцедуры);
Возврат Ложь;
EndIf;
ИмяОбъекта = ЧастиИмени[0];
If ЧастиИмени.Количество() = 2 И
Метаданные.ОбщиеМодули.Найти(ИмяОбъекта) = Неопределено Then
ТекстСообщения =
108
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru='Неправильный формат параметра ИмяЭкспортнойПроцедуры (%1)'"),
ИмяЭкспортнойПроцедуры);
Возврат Ложь;
EndIf;
If ЧастиИмени.Количество() = 3 Then
ДопустимыеТипы = Новый Массив;
ДопустимыеТипы.Добавить(ВРег(ИмяТипаКонстанты()));
ДопустимыеТипы.Добавить(ВРег(ИмяТипаРегистрыСведений()));
ДопустимыеТипы.Добавить(ВРег(ИмяТипаРегистрыНакопления()));
ДопустимыеТипы.Добавить(ВРег(ИмяТипаРегистрыБухгалтерии()));
ДопустимыеТипы.Добавить(ВРег(ИмяТипаРегистрыРасчета()));
ДопустимыеТипы.Добавить(ВРег(ИмяТипаСправочники()));
ДопустимыеТипы.Добавить(ВРег(ИмяТипаДокументы()));
ДопустимыеТипы.Добавить(ВРег(ИмяТипаБизнесПроцессы()));
ДопустимыеТипы.Добавить(ВРег(ИмяТипаЗадачи()));
ДопустимыеТипы.Добавить(ВРег(ИмяТипаПланыСчетов()));
ДопустимыеТипы.Добавить(ВРег(ИмяТипаПланыОбмена()));
ДопустимыеТипы.Добавить(ВРег(ИмяТипаПланыВидовХарактеристик()));
ДопустимыеТипы.Добавить(ВРег(ИмяТипаПланыВидовРасчета()));
ИмяТипа = ВРег(ЧастиИмени[0]);
If ДопустимыеТипы.Найти(ИмяТипа) = Неопределено Then
ТекстСообщения =
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru='Неправильный формат параметра ИмяЭкспортнойПроцедуры (%1)'"),
ИмяЭкспортнойПроцедуры);
Возврат Ложь;
EndIf;
EndIf;