Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

Прогресс, достигнутый за последние несколько лет во всех аспектах вычислительной техники, включая теорию, технологию и приложения, привели к значительному расширению области применения компьютеров и



Заключение

Прогресс, достигнутый за последние несколько лет во всех аспектах вычислительной техники, включая теорию, технологию и приложения, привели к значительному расширению области применения компьютеров и росту числа их пользователей. Существенной частью современного общества являются разнообразные системы доступа и хранения информации, которые являются неотъемлемой составляющей современного научно-технического прогресса. Существует много веских причин перевода существующей информации на компьютерную основу, так как более быстрая обработка данных и централизация их хранения с использованием клиент-серверных технологий позволяют сберечь значительные средства, а главное и время для получения необходимой информации, а также упрощает доступ и ведение.

Профессионально структурированная компьютерная информационная система и расчетные модули по различным видам страхования увеличат конкурентное преимущество страховой компании, информационные потоки которой с каждым днем увеличиваются. Процесс перехода страховой компании к компьютерным информационным системам включает этапы разработки, программирования и внедрения.

Разработанный модуль страховых калькуляторов позволит автоматизировать процесс расторжения страховых договоров автогражданской ответственности агентами страховой компании. Приложение позволяет максимально сэкономить время на вычисления и заполнение необходимой документации, а также уменьшить денежные затраты на разработку калькулятора, что и было реализовано в течение всего проекта, повышает оперативность работы и производительность труда, тем самым увеличивает конкурентные преимущества компании в целом.

Для ее достижения были поставлены и решены задачи:

- изучена специфика деятельности страховых агентов в страховой компании;

-изучена организация и уровень автоматизации деятельности страховой компании;

-выполнен обзор программных продуктов, автоматизирующих деятельность страховой компании;

- рассмотрены основные бизнес-процессы страховой компании.

- спроектирован система.

Результатом работы является разработка модуля страховых калькуляторов, а также интеграция полученных данных с существующей КИС «АРМ Страховщика».

ИС благодаря дружественному интерфейсу, удобна в использовании и не требует дополнительного обучения пользователей.



Дальнейшим этапом разработки может быть сформирование совокупных отчетов по всем отделениям по Республике Марий Эл, а также модернизация существующей ИС в плане процесса урегулирования убытков - автоматизация расчетов и составление графиков выплат.


Литература

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 страница

mybiblioteka.su - 2015-2024 год. (0.084 сек.)