|
Заключение
Прогресс, достигнутый за последние несколько лет во всех аспектах вычислительной техники, включая теорию, технологию и приложения, привели к значительному расширению области применения компьютеров и росту числа их пользователей. Существенной частью современного общества являются разнообразные системы доступа и хранения информации, которые являются неотъемлемой составляющей современного научно-технического прогресса. Существует много веских причин перевода существующей информации на компьютерную основу, так как более быстрая обработка данных и централизация их хранения с использованием клиент-серверных технологий позволяют сберечь значительные средства, а главное и время для получения необходимой информации, а также упрощает доступ и ведение.
Профессионально структурированная компьютерная информационная система и расчетные модули по различным видам страхования увеличат конкурентное преимущество страховой компании, информационные потоки которой с каждым днем увеличиваются. Процесс перехода страховой компании к компьютерным информационным системам включает этапы разработки, программирования и внедрения.
Разработанный модуль страховых калькуляторов позволит автоматизировать процесс расторжения страховых договоров автогражданской ответственности агентами страховой компании. Приложение позволяет максимально сэкономить время на вычисления и заполнение необходимой документации, а также уменьшить денежные затраты на разработку калькулятора, что и было реализовано в течение всего проекта, повышает оперативность работы и производительность труда, тем самым увеличивает конкурентные преимущества компании в целом.
Для ее достижения были поставлены и решены задачи:
- изучена специфика деятельности страховых агентов в страховой компании;
-изучена организация и уровень автоматизации деятельности страховой компании;
-выполнен обзор программных продуктов, автоматизирующих деятельность страховой компании;
- рассмотрены основные бизнес-процессы страховой компании.
- спроектирован система.
Результатом работы является разработка модуля страховых калькуляторов, а также интеграция полученных данных с существующей КИС «АРМ Страховщика».
ИС благодаря дружественному интерфейсу, удобна в использовании и не требует дополнительного обучения пользователей.
Дальнейшим этапом разработки может быть сформирование совокупных отчетов по всем отделениям по Республике Марий Эл, а также модернизация существующей ИС в плане процесса урегулирования убытков - автоматизация расчетов и составление графиков выплат.
Литература
1. Гражданский Кодекс РФ № 14-ФЗ от 26.01.1996 г.
2. Федеральный Закон № 293-ФЗ «Об актуарной деятельности в Российской Федерации»от 02.11.2013г.
3. Постановление Правительства РФ от 7 мая 2003 г. № 263 «Об утверждении правил обязательного страхования гражданской ответственности владельцев транспортных средств»
4. Вендров А. М. Проектирование программного обеспечения экономических информационных систем. - М.: «Финансы и статистика», 2000г.
5. Вендров А.М. Практикум по проектированию программного обеспечения экономических информационных систем: учебное пособие. – М.: «Финансы и статистика», 2002г.
6. Вендров А.М. Проектирование программного обеспечения экономических информационных систем / А.М Вендров. – М.: «Финансы и статистика», 2006г. – 544стр.
7. Гвоздева Т.В., Баллод Б.А Проектирование информационных систем: учебное пособие – М., «Феникс», 2009г. – 512 стр.
8. Гвозденко А.А. Страхование: учебник – М.: ТК Велби, Издательство «Проспект», 2006г.– 464стр.
9. Грекул, В.И. Проектирование информационных систем: учебное пособие / В.И. Грекул, Г.Н. Денищенко, Н.Л. Коровкина. – М.: «Интернет-Университет Информационных технологий», 2005г. – 304 стр.
10. Маклаков С. В. BPwin и Erwin: Case-средства для разработки информационных систем – М.:«Диалог-МИФИ», 2001г. – 224 стр.
11. Маклаков С.В. Создание информационных систем – М.: «Диалог-МИФИ», 2003.
12. Назарова С.В. Программирование в пакетах MSOffice:учебное пособие – М.: «Финансы и статистика», 2007г. – 656 стр.
13. Смирнова Г.Н. Проектирование экономических информационных систем / Г.Н. Смирнова, А.А. Сорокин, Ю.Ф. Тельнов. М.: Финансы и статистика, 2002. – 158стр.
14. Федорова Т.А. «Основы страховой деятельности учебник»– М.: Издательство «БЕК», 2002г.
15. Шахова В. В. Введение в страхование: учебник для ВУЗов – М.: «Финансы и статистика»,2005г.– 304 стр.
16. Олбрайт К. Моделирование с помощью MicrosoftOfficeExcel и VBA: разработка систем поддержки принятия решений: учебник –М.: Издательский дом «Вильямс», 2005г. – 669 стр.
17. Мак Т. Математика рискового страхования, – М.: ЗАО «Олимп-Бизнес», 2005г. – 432 стр.
18. Уокенбах Дж. Профессиональное программирование на VBA в Excel2003: учебник –М.: Издательский дом «Вильямс», 2005г. –800 стр.
19. О компании «Росгосстрах» [электронный ресурс], режим доступа: http://www.rgs.ru/about/information/index.wbp, свободный, 24.04.2014г.
20. VBAв приложении к Excel, Wordи PowerPoint [электронный ресурс], режим доступа: http://inf.1september.ru/article.php?ID=200601015, свободный, 04.04.2014г.
Приложение А
Таблица 1 – анализ динамики актива баланса
Показатели | 2010г. | 2011 г. | 2012г. | Отклонения, тыс.р. | Темпы изменения, % | ||
2011г./ 2010г. | 2012г./ 2011г. | 2011г./ 2010г. | 2012г./ 2011г. | ||||
I. Активы |
|
|
|
|
|
|
|
Инвестиции | -187699 | 137,34 | 97,86 | ||||
в том числе:здания | - | - | - | - | - | - | - |
финансовые вложения в дочерние, зависимые общества и другие организации | -323862 | 171,35 | 95,47 | ||||
в том числе:вклады в уставные (складочные) капиталы дочерних и зависимых обществ | |||||||
акции других организаций | -143275 | -569345 | 87,59 | 43,72 | |||
долговые ценные бумаги других организаций и предоставленные им займы | 210,61 | 104,14 | |||||
вклады в уставные капиталы других организаций | -530 | 100,00 | 99,73 | ||||
иные инвестиции | -591286 | 73,37 | 106,52 |
Продолжение таблицы 1
втч:банковские вклады (депозиты) | -604455 | 71,47 | 109,03 | ||||
прочие инвестиции | -572 | 113,01 | 99,50 | ||||
Доля перестраховщиков в страховых резервах | -177630 | -16739 | 23,91 | 70,01 | |||
в резервах по страхованию жизни | 177,35 | 112,65 | |||||
в резерве незаработанной премии, втч: | -116017 | -9564 | 11,64 | 37,43 | |||
в резервах убытков | -61975 | -7280 | 39,05 | 81,67 | |||
Дебиторская задолженность по операциям страхования, сострахования, втч | -10176 | 109,77 | 98,89 | ||||
страхователи | -8743 | 108,79 | 99,04 | ||||
страховые агенты | -1433 | 7911,32 | 82,91 | ||||
Дебиторская задолженность по операциям перестрахования | - | - | - | - | - | ||
Прочая дебиторская задолженность, платежи по которой ожидаются более чем через 12 месяцев после отчетной даты | - | - | - | - | - |
Продолжение таблицы 1
Прочая дебиторская задолженность, платежи по которой ожидаются в течение 12 месяцев после отчетной даты | 226,45 | 78,85 | |||||
Основные средства | -25490 | 87,51 | 78,34 | ||||
Незавершенное строительство | 103,21 | 87,64 | |||||
Отложенные налоговые активы | 257,93 | 147,04 | |||||
Запасы | -3774 | 95,30 | 71,61 | ||||
в том числе: материалы и др.аналогичные ценности | -23161 | 68,38 | 65,21 | ||||
расходы будущих периодов | 130,58 | 58,93 | |||||
прочие запасы и затраты | 1448,47 | 93,53 | |||||
Денежные средства | -1543186 | 32,70 | 131,43 | ||||
Прочие активы | 236,45 | 96,25 | |||||
Итого по разделу 1 | 109,34 | 100,06 | |||||
БАЛАНС | 109,34 | 100,06 |
Таблица 2 – анализ динамики пассива баланса
Показатели | 2010г. | 2011г. | 2012г. | Отклонения, тыс.р. | Темпы изменения, % | ||
2011г./ 2010г. | 2012г./ 2011г. | 2011г./ 2010г. | 2012г./ 2011г. | ||||
II. Капитал и резервы |
|
|
|
|
|
|
|
Уставный капитал | |||||||
Добавочный капитал | |||||||
Резервный капитал | |||||||
в том числе: резервы, образованные в соответствии с учредительными документами | |||||||
Нераспределенная прибыль (непокрытый убыток) | 101,1041 | 101,1919 | |||||
Итого по разделу II | 100,2724 | 100,2467 | |||||
III. Страховые резервы |
|
|
|
|
|
|
|
Резервы по страхованию жизни | -31140 | 103,8105 | 83,26436 | ||||
Резерв незаработанной премии | 107,3615 | 113,6828 | |||||
резерв убытков | 116,4184 | 147,8595 | |||||
иные страховые резервы | -41311 | 100,2483 | 95,48297 | ||||
Итого по разделу III | 107,9509 | 117,5202 |
Продолжение таблицы 2
IV. Обязательства |
|
|
|
|
|
|
|
Отложенные налоговые обязательства | -4789 | 224,1641 | 35,06441 | ||||
Краткосрочные кредиты и займы | - | - | -160009 | - | 70,23 | ||
Кредиторская задолженность по операциям страхования, сострахования | 72497,3 | 117,09 | |||||
Задолженность перед страховыми агентами | 72497,3 | 117,03 | |||||
Кредиторская задолженность по операциям перестрахования | -122176 | -839 | 4,26 | 84,57 | |||
Прочая кредиторская задолженность | -950018 | 101,43 | 58,04 | ||||
в том числе: задолженность перед персоналом организации | -37721 | -3336 | 47,82 | 90,35 | |||
задолженность перед государственными внебюджетными фондами | -4825 | 75,37 | 124,02 | ||||
задолженность по налогам и сборам | -60613 | 519,46 | 39,39 | ||||
прочие кредиторы | -6347 | -889615 | 99,70 | 57,93 |
Продолжение таблицы 2
Доходы будущих периодов | - | -189 | - | 90,98 | - | ||
Фонд (резерв) предупредительных мероприятий | 103,62 | 101,79 | |||||
Итого по разделу IV | -1103006 | 122,32 | 62,16 | ||||
БАЛАНС | -1164 | 109,41 | 99,99 |
Приложение Б
Приложение В
Листинг главного модуля
Option Explicit
Public Sub main1()
Dim i, n As Integer 'для работы в журнале
'расчет выплаты ОСАГО
UserForm1.Caption = rachOSAGO 'форма
UserForm1.Label1.Caption = rgs 'плательщик
UserForm1.Label2.Caption = vyplatt 'выплата производится в
UserForm1.Label3.Caption = nomerpp '№
UserForm1.Label4.Caption = osago 'о возврате части страх.премии
UserForm1.Label5.Caption = adres 'адрес
UserForm1.Label6.Caption = passport 'паспорт
UserForm1.Label7.Caption = strahovatel 'страхователь
UserForm1.Label8.Caption = polis 'полис №
UserForm1.Label9.Caption = sstrah 'сумма по виду страхования
UserForm1.Label10.Caption = srok 'срок страхования в днях
UserForm1.Label11.Caption = koldni 'кол-во дней за истекший период
UserForm1.Label12.Caption = otchetag 'расчет составил
UserForm1.CommandButton1.Caption = svypl 'рассчитать сумму выплаты
UserForm1.CommandButton2.Caption = okey 'рассчитать и заполнить
UserForm1.CommandButton3.Caption = ex 'не заполнять и не сохранять
UserForm1.Show
End Sub
Листинг описания глобальных переменных
Option Explicit
Public Const rachOSAGO As String = "Расчет ОСАГО"
Public Const rgs As String = "Плательщик: Филиал ООО 'Росгосстрах' в Республике Марий Эл"
Public Const vyplatt As String = "Выплата производится в"
Public Const nomerpp As String = "№"
Public Const osago As String = "О ВОЗВРАТЕ ЧАСТИ СТРАХОВОЙ ПРЕМИИ, ПОДЛЕЖАЩЕЙ ПЕРЕРАСЧЕТУ по ОСАГО"
Public Const adres As String = "Адрес"
Public Const pasport As String = "Паспорт"
Public Const strahovatel As String = "Страхователь"
Public Const polis As String = "полис №"
Public Const sstrah As String = "Cтраховая премия, уплаченная по договору страхования"
Public Const srok As String = "Срок страхования в днях"
Public Const koldni As String = "Количество дней за истекший период страхования"
Public Const otchetag As String = "Расчет составил"
Public Const svypl As String = "Рассчитать сумму выплаты"
Public Const okey As String = "Сохранить"
Public Const ex As String = "Отмена"
Листинг формы
Private Sub CommandButton1_Click() 'кнопка "Рассчитать сумму выплаты"
Dim summa As Currency 'сумма, подл-ая возврату страхователю
Dim srokN As Integer 'срок страхования в днях
Dim n As String 'кол-во дней за истекший п/д страхования
Dim sumvypl As Currency 'вывод суммы выплаты по ОСАГО
summa = CDbl(TextBox12.Text)
'Range("B35") = summa
srokN = CDbl(TextBox13.Text)
'Range("B36") = srokN
n = CDbl(TextBox14.Text)
'Range("B37") = n
TextBox15.Text = (summa - summa * 0.23) * (srokN - n) / srokN
End Sub
Private Sub CommandButton2_Click() 'кнопка "Сохранить"
Dim nomer As String 'номер распоряжения
Dim data1 As Date 'дата распоряжения
Dim fiolitsa As String 'ФИО
Dim adreslitsa As String 'адрес лица (страх-ль, доверенное лицо)
Dim s_pasp, n_pasp As Integer 'серия и номер паспорта
Dim kemvydan As String 'кем выдан паспорт
Dim fiostrah As String 'ФИО страхователя
Dim n_polis As String 'номер выданного полиса
Dim data2 As Date 'дата выдачи страхового полиса
Dim otdel As String 'в каком отделе выдан страховой полис
Dim i, n As Integer
'РАБОТА В ЛИСТЕ "Расчет ОСАГО"
Sheets("Расчет_ОСАГО").Activate 'заполнение бланка-листа ОСАГО
With ActiveSheet
'заполнение бланка
Range("A1") = "Плательщик: Филиал ООО 'Росгосстрах' в Республике Марий Эл"
Range("M2") = "Выплата производится в"
Range("D4") = "№"
Range("A5") = "О ВОЗВРАТЕ ЧАСТИ СТРАХОВОЙ ПРЕМИИ, ПОДЛЕЖАЩЕЙ перерасчету"
Range("S5") = "по"
Range("T5") = "ОСАГО"
Range("A9") = "Адрес:"
Range("A10") = "Паспорт"
Range("M11") = "Сумма по виду страхования, руб."
Range("W11") = "Следует к выплате, руб."
Range("A12") = "Осаго"
Range("A13") = "(расторжение)"
Range("E13") = "от"
Range("E15") = "Х"
Range("M15") = "Х"
Range("S15") = "Х"
Range("A17") = "Руководитель"
Range("A19") = "Главный бухгалтер"
Range("E18") = "(подпись)"
Range("E20") = "(подпись)"
Range("A24") = "Страхователь"
Range("A25") = "полис №"
Range("A29") = "Пвозвр.- сумма, подлежащая возврату страхователю;"
Range("A30") = "По- страховая премия, уплаченная по договору страхования;"
Range("A31") = "23%- часть брутто-премии, включающая расходы на ведение дела страховщика, резервы гарантии и текущих компенсационных выплат;"
Range("A32") = "n- количество дней за истекший срок страхования;"
Range("A33") = "N- срок страхования в днях;"
Range("A36") = "N"
Range("A37") = "n"
Range("C36") = "дн."
Range("A39") = "Пвозвр.="
Range("A43") = "Расчет составил:"
'заполнение знаков в расчетах
Range("E39") = "-"
Range("N39") = "-"
Range("C39") = "("
Range("F39") = "("
Range("C39") = "("
Range("F39") = "("
Range("L39") = "("
Range("J39") = "))"
Range("P39") = ")"
Range("Q39") = "/"
Range("H39") = "x"
Range("K39") = "x"
Range("U39") = "x"
Range("S39") = "="
Range("W39") = "="
'расчет выплаты по формуле
Cells(39, 4) = CDbl(TextBox12.Text) 'сумма по виду страхования
Cells(39, 7) = Cells(39, 4).Value 'сумма по виду страхования
Cells(39, 9) = 0.23 'часть брутто-премии
Cells(39, 13) = CDbl(TextBox13.Text) 'срок страхования в днях
Cells(39, 18) = Cells(39, 13).Value 'срок страхования в днях
Cells(39, 15) = CDbl(TextBox14.Text) 'кол-во дней за истек.п/д страх-я
Cells(39, 20) = Cells(39, 4).Value - Cells(39, 7).Value * Cells(39, 9).Value
Cells(39, 22) = (Cells(39, 13).Value - Cells(39, 15).Value) / Cells(39, 18).Value
Cells(39, 24) = CCur(TextBox15.Text)
Range("U2") = Me.ComboBox1.Value
Range("U4") = Me.ComboBox2.Value
Range("F7") = Me.ComboBox3.Value
Range("R44") = Me.ComboBox4.Value
'ЗАПОЛНЕНИЕ ПЕРВОЙ ЧАСТИ БЛАНКА
nomer = CStr(TextBox1.Text)
Range("F4") = nomer 'запись номера распоряжения
data1 = CDate(TextBox2.Text)
Range("I4") = data1 'запись даты распоряжения
fiolitsa = CStr(TextBox3.Text)
Range("J8") = fiolitsa 'запись ФИО лица
adreslitsa = CStr(TextBox4.Text)
Range("D9") = adreslitsa 'запись адрес лица
s_pasp = CStr(TextBox5.Text)
Range("D10") = s_pasp 'запись в ячейку - серия паспорта
Range("I10") = CStr(TextBox6.Text) 'запись в ячейку - номер паспорта
Range("O10") = CStr(TextBox7.Text) 'запись - кем выдан паспорт
'ЗАПОЛНЕНИЕ ВТОРОЙ ЧАСТИ БЛАНКА
Range("D24") = CStr(TextBox8.Text) 'ФИО страхователя
Range("D25") = CStr(TextBox9.Text) 'номер страхового поля
data2 = CDate(TextBox10.Text)
Range("J25") = data2 'запись - дата выдачи полиса
otdel = CStr(TextBox11.Text)
Range("R25") = otdel 'запись - отдел страхового полиса
Range("B35") = CDbl(TextBox12.Text)
Range("B36") = CDbl(TextBox13.Text)
Range("B37") = CDbl(TextBox14.Text)
'заполнение таблицы
Cells(12, 13) = Cells(35, 2).Value 'сумма по виду страхования
Range("W12") = CCur(TextBox15.Text) 'сумма к выплате
Cells(15, 23) = CCur(TextBox15.Text) 'итоговая сумма к выплате
Cells(12, 8) = Cells(25, 4).Value 'номер страхового полиса
Cells(13, 8) = Cells(25, 10).Value 'дата выдачи страхового полиса
Cells(14, 5) = CCur(TextBox15.Text) 'отдел, в кот. выдан полис
End With
Sheets("Журнал регистрации").Activate 'открытие журнала распоряжений
'ввод в журнал распоряжений основных данных
For i = 4 To 30000
If Sheets("Журнал регистрации").Cells(i, 1) = CStr(TextBox1.Text) _
And Sheets("Журнал регистрации").Cells(i, 6) = CStr(TextBox8.Text) Then
'страховой отдел
Sheets("Журнал регистрации").Cells(i, 7) = CStr(TextBox11.Text)
'номер полиса
Sheets("Журнал регистрации").Cells(i, 9) = CStr(TextBox9.Text)
'сумма к возврату
Sheets("Журнал регистрации").Cells(i, 10) = CCur(TextBox15.Text)
End If
Next
Unload UserForm1 'выгружает форму из памяти и закрывает ее
End Sub
Private Sub CommandButton3_Click() 'кнопка "Отмена"
Application.Caption = Empty
End
End Sub
Дата добавления: 2015-09-30; просмотров: 66 | Нарушение авторских прав
<== предыдущая лекция | | | следующая лекция ==> |
Корзина с еловыми шишками (рассказ) | | | АБАНДОН (фр. abandon; англ. abandonment) - право страхователя заявить об отказе от своих прав на застрахованное имущество в пользу страховщика и получить полную страховую сумму. Заявление об А. 1 страница |