87
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
1. Федеральный закон от 27.07.2006 N 149-ФЗ (ред. от 03.04.2020)
"Об информации, информационных технологиях и о защите информации".
2. Басыня, Е.А. Системное администрирование и информационная
безопасность : учебное пособие : [16+] / Е.А. Басыня ; Новосибирский
государственный технический университет. – Новосибирск : Новосибирский
государственный технический университет, 2018. – 79 с.
3. Вдовин, В.М. Информационные технологии в финансово-
банковской сфере: Учебное пособие / В.М. Вдовин, Л.Е. Суркова. - М.:
Дашков и К, 2016. - 304 c.
4. Галиновский, А.Л. Информационные системы управления
качеством в автоматизированных и автоматических производствах: Учебное
пособие / А.Л. Галиновский, В.М. Корнеев, С.В. Бочкарев. - М.: Инфра-М,
2016. - 32 c.
5. Голицына, О.Л. Информационные системы: Учебное пособие /
О.Л. Голицына, Н.В. Максимов, И.И. Попов. - М.: Форум, 2016. - 352 c.
6. Корнеев, И.К. Информационные технологии в работе с
документами: Учебник / И.К. Корнеев. - М.: Проспект, 2016. - 304 c.
7. Лашина, М.В. Информационные системы и технологии в
экономике и маркетинге: Учебное пособие / М.В. Лашина, Т.Г. Соловьев. -
М.: КноРус, 2018. - 480 c.
8. Мезенцев, К.Н. Автоматизированные информационные системы /
К.Н. Мезенцев. - М.: Academia, 2016. - 1280 c.
9. Мирошниченко, И.И. Языки и методы программирования:
учебное пособие / И.И. Мирошниченко, Е.Г. Веретенникова, Н.Г. Савельева;
Министерство образования и науки РФ, РГЭУ (РИНХ). – Ростов-на-Дону:
Издательско-полиграфический комплекс РГЭУ (РИНХ), 2019. – 188 с.
10. Михеева, Е.В. Информационные технологии в профессиональной
88
деятельности экономиста и бухгалтера / Е.В. Михеева. - М.: Academia, 2018.
11. Информационные системы и технологии: Научное издание / Под
ред. Ю.Ф. Тельнова. - М.: Юнити, 2016. - 303 c.
12. Информационные системы и технологии / Под ред. Тельнова
Ю.Ф.. - М.: Юнити, 2017. - 544 c.
13. Остроух, А.В. Интеллектуальные информационные системы и
технологии: Монография / А.В. Остроух, А.Б. Николаев. - СПб.: Лань, 2019. -
308 c.
14. Федорова, Г.Н. Информационные системы / Г.Н. Федорова. - М.:
Academia, 2018. - 544 c.
15. Федорова, Г.Н. Информационные системы: Учебник / Г.Н.
Федорова. - М.: Academia, 2018. - 384 c.
16. Филиппов, Б.И. Информационная безопасность. Основы
надежности средств связи: учебник / Б.И. Филиппов, О.Г. Шерстнева. –
Москва; Берлин: Директ-Медиа, 2019. – 241 с. - режим доступа http://
biblioclub.ru.
17. - 64 c.
18. https://compnote.ru/otdelit/politika-ib-2/
19. https://economy-ru.info/info/178725/
20. https://economy-ru.info/info/135791/
21. https://theoryandpractice.ru/organizations/17423-pepsico
22. https://pandia.ru/text/78/226/72676.php
23. https://philosoft-services.com/itinfras.zhtml
24. https://searchinform.ru/informatsionnaya-
bezopasnost/osnovyib/dokumenty-po-informatsionnoj-bezopasnosti/.
25. https://studbooks.net/2140071/informatika/programmnoe_obespechen
ie_zadachi_kompleksa_zadach
26. https://studfile.net/preview/4593884/page:3/
27. https://studfile.net/preview/4392177/page:8/
89
28. https://studopedia.ru/5_11893_proektirovanie-bazi-dannih.html
29. https://studopedia.ru/19_320284_opredelenie-ekonomicheskoy-
effektivnosti-it-na-osnove-metodiki-rascheta-trudovih-i-stoimostnih-zatrat-na-
vipolnenie-funktsii-upravleniya-pri-mashinnoy-obrabotke-dannih.html
30. https://studwood.ru/1840261/buhgalterskiy_uchet_i_audit/avtomatizat
siya_rabochego_mesta_buhgaltera
31. https://www.intuit.ru/studies/courses/3609/851/lecture/31660?page=2
32. https://wiseadvice-it.ru/o-kompanii/blog/articles/vnedrenie-
informacionnyh-sistem/
90
Приложение 1 - Листинг программы
&НаКлиенте
Перем ПродолжительностьГодности, ОриентировочнаяСтоимость, Ссылка;
&НаКлиенте
Процедура НачалоЗаказаПриИзменении(Элемент)
НачалоЗаказа=Объект.НачалоЗаказа;
КонецЗаказа=НачалоЗаказа+ПродолжительностьГодности*3600*24;
Объект.КонецЗаказа=КонецЗаказа;
КонецПроцедуры
&НаСервере
Процедура ПолучитьДанныеТура(ИмяТовара,
_ПродолжительностьГодности, _ОриентировочнаяСтоимость, _Ссылка)
Товар=Справочники.МатерилаНаПроизводство.НайтиПоНаименовани
ю(ИмяТовара).ПолучитьОбъект();
_ПродолжительностьГодностиь=Товар.ПродолжительностьГодности;
_ОриентировочнаяСтоимость=Товар.ОриентировочнаяСтоимость;
_Ссылка=Товар.Ссылка;
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
Если(ЗначениеЗаполнено(Объект.Ссылка))Тогда
Элементы.Товар.Вид=ВидПоляФормы.ПолеНадписи;
Элементы.Товар.ЦветФона=Новый Цвет(255,255,0);
91
Элементы.Товар.Шрифт=Новый Шрифт(,10,Истина,,,,,);
ИмяТовара=Объект.Товар;
ПолучитьДанныеТура(ИмяТовара, ПродолжительностьГодности,
ОриентировочнаяСтоимость, Ссылка);
Объект.Стоимость=ОриентировочнаяСтоимость;
Иначе
Элементы.Товар.Вид=ВидПоляФормы.ПолеВвода;
КонецЕсли;
ПриОткрытииНаСервере();
КонецПроцедуры
&НаСервереБезКонтекста
Процедура ПриОткрытииНаСервере()
КонецПроцедуры
&НаКлиенте
Процедура КонецЗаказаПриИзменении(Элемент)
КонецЗаказа=Объект.КонецЗаказа;
НачалоЗаказа=КонецЗаказа-ПродолжительностьГодности*3600*24;
Объект.НачалоЗаказа=НачалоЗаказа;
КонецПроцедуры
&НаКлиенте
Процедура ТоварПриИзменении(Элемент)
92
ИмяТовара=Объект.Товар;
ПолучитьДанныеТовара(ИмяТовара, ПродолжительностьГодности,
ОриентировочнаяСтоимость, Ссылка);
Если(ЗначениеЗаполнено(Объект.НачалоЗаказа))Тогда
НачалоЗаказа=Объект.НачалоЗаказа;
КонецЗаказа=Началозаказа+ПродолжительностьГодности*3600*24;
Объект.КонецЗаказа=КонецЗаказа;
Иначе
Если(ЗначениеЗаполнено(Объект.КонецЗаказа))Тогда
КонецЗаказа=Объект.КонецЗаказа;
НачалоЗаказа=КонецТура-
ПродолжительностьГодности*3600*24;
Объект.НачалоЗаказа=НачалоЗаказа;
КонецЕсли
КонецЕсли;
Объект.Стоимость=ОриентировочнаяСтоимость;
Объект.Владелец=Ссылка;
КонецПроцедуры
&НаКлиенте
Процедура ПослеЗакрытияВопроса(Результат, Параметры)Экспорт
Если (Результат=КодВозвратаДиалога.Да)Тогда
Объект.КоличествоСвободныхМест=Объект.КоличествоМатерила;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
93
Процедура КоличествоМатерилаОкончаниеВводаТекста(Элемент, Текст,
ДанныеВыбора, Параметры, СтандартнаяОбработка)
КонецПроцедуры
&НаКлиенте
Процедура СоздатьДоговорНаТур(Команда)
Форма = ПолучитьФорму("Документ.Договор.ФормаОбъекта");
ДанныеФормыДоговора=Форма.Объект;
КодТурКПродаже=ЭтаФорма.Объект.Код;
ЗаполнитьДокументНаСервере(ДанныеФормыДоговора,
КодТовараКПродаже);
КопироватьДанныеФормы(ДанныеФормыДоговора, Форма.Объект);
Форма.Открыть();
КонецПроцедуры
&НаСервереБезКонтекста
Функция
ЗаполнитьДокументНаСервере(ДанныеФормы,КодТовараКПродаже);
Док = ДанныеФормыВЗначение(ДанныеФормы,
Тип("ДокументОбъект.Договор"));
Док = Документы.Договор.СоздатьДокумент();
Док.Дата=ТекущаяДата();
94
Материал=Справочники.ЗаказаныеМатерилы.НайтиПоКоду(КодТовараКПро
даже);
Док.Товар=Материал;
Наименование=Материал.Материал.Наименование;
Док.Наименованиетовара=Наименование;
Док.ДатаНачалоЗаказа=Материал.НачалоЗаказа;
Док.ДатаОкончанияЗаказа=Материал.КонецЗаказа;
Док.ЦенаТовара=Материал.Стоимость;
Док.Оплачен=0;
ТЧДетализацияТовара=Материал.Материал.Детализация;
Док.ДетализацияЗаказа.Загрузить (ТЧДетализацияТовара.Выгрузить());
ЗначениеВДанныеФормы(Док,ДанныеФормы);
КонецФункции
&НаСервере
Процедура СоздатьДоговорНаТурНаСервере(Материал)
КонецПроцедуры
&НаКлиенте
Процедура КоличествоТовараПриИзменении(Элемент)
ЦенаЗаОдного=Объект.ЦенаТовара;
Количество=Объект.КоличествоТовара;
Итого=ЦенаЗаОдного*Количество;
Объект.ЦенаТовара=Итого;
95
КонецПроцедуры
&НаКлиенте
Процедура СписокПоставщиковПриИзменении(Элемент)
Количество=Объект.СписокПоставщиков.Количество();
Объект.КоличествоТовара=Количество;
КоличествоТовараПриИзменении(Элемент);
ПересчитатьЦенуДоговора();
КонецПроцедуры
&НаКлиенте
Процедура ПересчитатьЦенуДоговора()
ЦенаТовара=Число(Объект.ЦенаТовара);
ЦенаДоговора=Ценатовара;
ТЧТовар=Объект.Товар;
Для каждого СтрокаТЧТовар из ТЧТовар Цикл
//ЦенаТовара=СтрокаТЧТовар.Цена;
//КоличествоТовара=СтрокаТЧТовара.Количество;
ИтогоТовара=Число(СтрокаТЧТовара.Итого);
ЦенаДоговора=ЦенаДоговора+ИтогоТовара;
КонецЦикла;
Итого=ЦенаДоговора;
Объект.Итого=Итого;
Объект.Задолженность=Итого-Число(Объект.Оплачен);
96
КонецПроцедуры
&НаКлиенте
Процедура СписокТоваровВыбор(Элемент, ВыбраннаяСтрока, Поле,
СтандартнаяОбработка)
Если (Строка(Поле.Имя)="СписокТоваровНомерСтроки")Тогда
СтандартнаяОбработка=Ложь;
ТекущаяСтрока=Элемент.ТекущиеДанные;
ФИО=ТекущаяСтрока.ФИО;
ФормаКлиента=ПолучитьФорму("Справочник.Клиенты.ФормаОбъекта
");
ДанныеФормыКлиента=ФормаКлиента.Объект;
СписокТоваровВыборНаСервере(ДанныеФормыПоставщики,ФИО);
КопироватьДанныеФормы(ДанныеФормыКлиента,ФормаПоставщики.
Объект);
ФормаПоставщики.Открыть();
КонецЕсли;
КонецПроцедуры
&НаСервереБезКонтекста
Функция СписокПоставщиковВыборНаСервере(ДанныеФормы, ФИО)
Спр=ДанныеФормыВЗначение(ДанныеФормы,