Дипломная работа: Автоматизация приема платежей в базе конфигурации "1С: Предприятия 8.3" в ООО "Мастер Плюс"
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
90
Удалось предоставить экономическое обоснование для модификации
информационной системы автоматизации выбранного процесса.
Полнота практической части обеспечивается моделированием
алгоритмов механизма информационной системы, описанием основных
принципов ее работы и разработки.
Полученные в ходе проведенного исследования результаты имеют
практическую значимость, выражающуюся в общественной и
производственной пользе при использовании данной разработки.
Имеется возможность оперативно отладить или усовершенствовать
продукт, в случае обнаружения недоработок или в случае необходимости
добавить дополнительные функции.
Разработанный механизм можно внедрить в любое предприятие, которое
ведет учет в программы "1С:Предприятие 8" и не имеет возможности перехода
на актуальную версию.
Результаты выпускной квалификационной работы внедрены на
предприятии «Мастер Плюс».
91
Список использованной литературы
1) 1C: Предприятие 8.2. Руководство администратора / А.Алексеев и
др. – М.: Фирма «1С», 2009. – 239 с.
2) 1C: Предприятие 8.2. Руководство разработчика часть 1 /
А.Алексеев и др. – М.: Фирма «1С», 2009. – 638 с.
3) 1C: Предприятие 8.2. Руководство разработчика часть 2 /
А.Алексеев и др. – М.: Фирма «1С», 2009. – 1109 с.
4) Ажеронок, В.А. Разработка управляемого интерфейса / В. А.
Ажеронок и др. – М.: 1С-Паблишинг, 2010. – 728 с 5.
5) Андерсен, Б. Бизнес-процессы. Инструменты совершенствования /
Б. Андерсен – М.: Стандарты и качество, 2007. – 272 с.
6) Банковские информационные системы: учебник для вузов / под ред.
В.В. Дика. – М.: Маркет ДС. Раздел 2, глава 14, стр. 395-407.
7) Банковские операции в Интернет: Учебное пособие / Московский
государственный университет экономики, статистики и информатики. – М.,
2005. – 120 с.
8) Габец, А.П. Реализация прикладных задач в системе "1С:
Предприятие 8.3" / А.П.Габец [и др.] – М.: 1С-Паблишинг, 2010. – 720 с.
9) Гончаров, Д.И. Решение специальных прикладных задач в
"1С:Предприятии 8.2" / Д.И. Гончаров, Е.Ю.Хрусталева – М.: 1С-Паблишинг,
2009. – 300 с.
10) Джестон, Д. Управление бизнес-процессами / Д. Джестон – М.:
Символ-Плюс, 2008. – 512 с.
11) Дубянский, В.В. 1С: Предприятие. Конфигурирование и
администрирование для начинающих / В.В. Дубянский. – СПб.: «БХВ -
Петербург», 2005.– 172 с.
12) Технология разработки программных продуктов / А. В. Рудаков. -
3-е изд., стер. - Москва : Академия, 2007. - 206 с.
13) Информационно-технологическое сопровождение пользователей
1С:Предприятия [Электронный ресурс] // URL: http://solutions.1c.ru
92
14) Отраслевые и специализированные решения 1С: Предприятие
[Электронный ресурс] // URL: http://solutions.1c.ru
15) DirectBank (прямой обмен с банком) [Электронный ресурс] // URL:
https://v8.1c.ru
16) DirectBank (прямой обмен с банком) – технология системы
"1С:Предприятие 8", 1C-Company [Электронный ресурс] // URL:
https://github.com/
17) Как начать использовать технологию DirectBank [Электронный
ресурс] // URL: https://portal.1c.ru/
18) Официальный сайт фирмы «1С» [Электронный ресурс] / URL:
http://www.1c.ru
19) Официальный сайт компании «Nordberg» [Электронный ресурс] //
URL: https://nordberg.ru
20) Официальный сайт компании «Мастер инструмент» [Электронный
ресурс] // URL: https://www.master-instrument.ru
93
Приложение
Модуль приложения конфигурации
Процедура ПриНачалеРаботыСистемы()
СтандартныеПодсистемыКлиент.ПриНачалеРаботыСистемы();
МенеджерОборудованияКлиент.ПриНачалеРаботыСистемы();
//++ Попов Д.Б. АвтоматическоеПолучениеВыписки
Если
ОбменСБанкамиСлужебныйВызовСервера.ЗагрузкаДоступна_()
Тогда
Форма =
ПолучитьФорму("Обработка.КлиентБанк.Форма.ЗагрузкаВыписк
и");
Форма.Открыть();
Форма.Объект.ПроводитьДокументы = Истина;
Таб = Форма.Объект.БанковскиеСчета;
Для Каждого Стр Из Таб Цикл
Если Стр.ПрямойОбмен Тогда
Стр.Пометка = Истина;
КонецЕсли;
КонецЦикла;
Форма.ЗагрузитьДокументы(Форма.Команды.ЗагрузитьДоку
менты);
ПодключитьОбработчикОжидания("ppv_ПроверитьГотовнос
ть", 60);
КонецЕсли;
//-- Попов Д.Б.
Если
ОбменССайтомМ.РольДоступна_("КладовщикиРабочийСтол")
Тогда
ОткрытьФорму("Документ.ЗаказКлиента.Форма.ФормаСписк
аДокументовКладовщик");
ОткрытьФорму("Документ.ЗаказКлиента.Форма.ФормаСписк
аДокументовКладовщикНеполнаяогрузка");
КонецЕсли;
Если ОбменССайтомМ.РольДоступна_("КассаОфис") Тогда
Если
ОбменССайтомМ.РольДоступна_("МенеджерДокументы") Тогда
ОткрытьФорму("Отчет.ОжидаемыеЗакупкиВадим.Форма");
ОткрытьФорму("Документ.РеализацияТоваровУслуг.ФормаС
писка");
94
ОткрытьФорму("Документ.ПутевойЛист.ФормаСписка");
ОткрытьФорму("Документ.ЗаказКлиента.Форма.ФормаСписк
аДокументов");
ОткрытьФорму("Документ.ЗаказКлиента.Форма.ФормаСписк
аДокументовСайт");
ОткрытьФорму("Документ.КонтактСПартнером_.ФормаСписк
а");
КонецЕсли;
КонецЕсли;
КонецПроцедуры
Процедура ppv_ПроверитьГотовность() Экспорт
Форма = ПолучитьОкна().Получить(1);
Готовность = Истина;
ПроблемныйОбмен = "";
Таб = Форма.Содержимое[0].Объект.БанковскиеСчета;
Для Каждого Стр Из Таб Цикл
Если Стр.ПрямойОбмен И Стр.ПериодЗагрузки <> "" Тогда
Если Не Стр.Загружается И Не Стр.Загружен Тогда
Готовность = Ложь;
ПроблемныйОбмен = Строка(ПроблемныйОбмен)
+ "; " + Строка(Стр.Ссылка);
КонецЕсли;
КонецЕсли;
КонецЦикла;
Если Готовность Тогда
ppv_ЗавершениеРаботыПользователя();
Иначе
Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.ИспользоватьSSLIMAP = Истина;
Профиль.АдресСервераSMTP = "smtp.yandex.ru";
Профиль.ПользовательSMTP = "nordberg-
1c@yandex.ru"; // адрес почты
Профиль.Пользователь = "nordberg-1c@yandex.ru";
Профиль.ПарольSMTP = "’Пароль’"; // пароль от почты
Профиль.ПортSMTP = 25;
ПРофиль.АутентификацияSMTP =
СпособSMTPАутентификации.ПоУмолчанию;
Отправитель = "nordberg-1c@yandex.ru";
СообщениеДляПочты = "Для " + ПроблемныйОбмен + "
выписки не загруженны, необходимо загрузить через файл.";
Источник: https://baza.diplomsite.ru/previewfile/1994