Автоматизация учета плательщиков и расчет налога на имущество

Эта форма позволяет просмотреть все формы и отчеты.

Работа с формами

При нажатие на «Главной кнопочной форме» кнопку формы, появляются ряд кнопок с формами:

· Сведения о организации

· Сведения о владельце организации

· Расчет за налоговый отчетный период

· Расчет налога на имущество юридических лиц

· Назад (для возврата в «Главную кнопочную форму»)

Форма «Сведения об организации»

Данная форма содержит в себе кнопки :

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

Найти запись - при помощи этой кнопки можно осуществить поиск определенной организации по ИНН.

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

Удалить запись - этой кнопкой можно удалить ненужную вам организацию.

Просмотр отчета - кнопка просмотр отчета позволяет просмотреть отчет по организациям.

Форма «Сведения о владельце организации»

Данная форма содержит в себе кнопки :

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

Найти запись - при помощи этой кнопки можно осуществить поиск определенной организации по ИНН.

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

Удалить запись - этой кнопкой можно удалить ненужную вам организацию.

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

Форма «Расчет за налоговый отчетный период»

Данная форма содержит кнопку просмотр отчета:

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

Форма «Расчет налога на имущество юридических лиц»

Данная форма содержит кнопки:

Проверка - эта кнопка позволяет, просмотреть правильно ли рассчитал налог на имущество юридическое лицо.

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

Работа с отчетами

При нажатие на «Главной кнопочной форме» кнопку отчеты появляется ряд отчетов:

· Отчет сведения об организациях

· Отчет сведения о владельцах организаций

· Отчет расчет налога на имущество за налоговый отчетный период

· Отчет расчет налога на имущество юридических лиц

· Назад (для возврата в «Главную кнопочную форму»)

Отчеты позволяют просмотреть интересующую вас информацию и вывести ее на печать.

Отчет сведения о владельцах организаций

Отчет расчет налога на имущество за налоговый отчетный период

Отчет налога на имущество юридических лиц

II. Экономическая часть

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

Экономический эффект - это прежде всего снижение затрат инспекции за счет:

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

q высвобождения времени на выполнение других заданий, следовательно, достигая этим повышения эффективности работы отдела;

Расчет затрат на разработку

Распределение трудоемкости по стадиям разработки приведено в Таблице 1

Таблица 1

Коэффициент сложности задачи с - характеризует относительную сложность программы по отношению к так называемой типовой задаче, сложность которой принята равной единице (величина с лежит в пределах от 0,5 до 1,5). В данном программном продукте берется коэффициент сложности 0,8, так как он не сложен в написании, включает в себя алгоритмы ввода и поиска данных, написан на языке Visual Basic.

c = 0,8 - (коэффициент сложности программы)

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

p = 0,2 - коэффициент коррекции программы в ходе разработки.

При расчете основной З/П следует учитывать следующие коэффициенты:

Коэффициент увеличения затрат труда, вследствие недостаточного описания задачи. В зависимости от сложности задачи принимается от 1,2 до 1,5. В связи с тем, что данная задача, потребовала уточнения и больших доработок, примем b = 1,4.

Коэффициент квалификации разработчика k определяется в зависимости от стажа работы и составляет: для работающих до двух лет - 0,8; от трех лет до пяти лет - 1,0; от пяти до восьми - 1,2 ; более восьми лет -1,5. Поскольку стажа работы по специальности у меня нет, возьмем k= 0,8.

Заработная плата сотрудника ИФНС России составляет:

З/П=2000 руб./месяц

Формула расчета заработной платы:

З/П осн. = оклад *c*(p+1)*b*k = (2000 руб. * 0,8 * (0,2 + 1)*1.4*0.8 =2150,4 руб./месяц

Дополнительная заработная плата выплачивается один раз в квартал и поэтому составляет 1/3 от основной ежемесячной заработной платы:

З/п доп.=2150,4 руб.*1/3=716,8руб. - за период разработки

Основная заработная плата за весь период разработки программного продукта составит:

З/П сум. = 2150,4 руб.+716,8 руб. / 176 час. * 174 час. = 2835 руб.

Фондовые отчисления берутся в размере 26,2% от основной и дополнительной заработной платы:

Фо = З/П * 26,2%

ФО = 2835 руб.*26,2% = 742,77 руб.

Общая стоимость оплаты труда сотрудника с учетом ЕСН составит:

ЗП общ. = 2835 руб.+742,77= 3577,77 руб.

Содержание и эксплуатация вычислительной техники

Суммарная стоимость работы = См-ч * Тотл.,

где См-ч - стоимость машино-часа.

Тотл. - Число часов отладки.

Тотл = 45час. + 83 час. + 30 час. = 158 час. - данные из таблицы № 1

Стоимость машино-часа рассчитывается, как сумма составляющих:

(Стоимость электроэнергии в год + Амортизация в год + Затраты на ремонт за год)/Фвт

Амортизация в год - амортизация оборудования

где Фвт - действительный фонд времени работы вычислительного комплекса.

Рассчитываем стоимость эксплуатации:

Стоимость 1 КВТ/час электроэнергии составляет: 4 руб.

Один компьютер потребляет 300 Вт в час.

За год отчисления за электроэнергию, потребляемую одной ЭВМ, составляет:

8 ч. * 22 дня * 12 мес. * 0,3 КВт/ч. *4 руб. = 2534,4руб.

Программный продукт разрабатывался на компьютере, который является собственностью ОФ ГОУ “Математический колледж”. Т.к. до этого он уже использовался по назначению в течение 3-х лет, мы будем производить расчет амортизации, т.к. срок амортизации компьютера составляет 4 года.

ПК был приобретен в декабре месяце 2002 года. Стоимость компьютера составляет 25500 руб.

Сумма, относительно которой считается амортизация:

25500 руб. / 4 года =6375 руб.

Стоимость ремонта ЭВМ=25500 * 5%=1275руб.

5% - время, затраченное на ремонт и обслуживание.

В год компьютер работает 2112 часов, на его ремонт уходит 5% времени, значит, окончательное время работы компьютера 2006 часов в год.

Стоимость машинного - часа равна:

(2534,4 + 6375 + 1275)/2006 = 5,08руб./час

Содержание и эксплуатация вычислительного комплекса на время написания дипломного проекта составляет:

158 час. * 5,08 руб. = 802,64руб.

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

Смета затрат на разработку программного продукта приведена в таблице 2.

Таблица 2.

Экономический эффект

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

Для ведения расчетов введем следующие обозначения:

Т₀- время, затрачиваемое сотрудниками отдела на поиск информации о имуществе юридических лиц до внедрения программного продукта;

Т₁- время, затрачиваемое на поиск после внедрения программного продукта.

До внедрения программы на то чтобы найти нужную информацию о наличии имущества юридических лиц, в день сотрудник отдела в среднем тратил около 5 мин на 1 предприятие: Т₁ = 5 мин. или 0,08час.

После внедрения программы время сократится и будет составлять всего 3 мин.: Т₂ = 3 мин. или 0,05 час.

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

Среднее количество операций за 1 день = 10 операций. Количество операций за год равна:

10 опер.* 22 дня. * 12мес. = 2640 опер./год

Теперь подсчитаем, сколько времени тратилось в год до внедрения программы.

Т₁ = (0,08 ч.)*2640опер./год=211,2 ч.

Теперь подсчитаем, сколько времени тратилось в год после внедрения программы:

Т₂ = (0,05 ч.)*2640опер./год=132 ч.

Т = Т₁ - Т₂ =211,2ч.-132ч. = 79,2ч. - экономия времени

Экономия во времени возникает из-за того, что сокращается время на поиск и учет налогоплательщика

Снижение трудоемкости за год: 132*100 / 211,2 = 62,5%

Основная заработная плата сотрудника отдела ввода информации составляет 2100 руб. в месяц.

Дополнительная заработная плата выплачивается один раз в квартал и поэтому составляет 1/3 от основной ежемесячной заработной платы:

2100*1/3=700 руб. в месяц

Фондовые отчисления рассчитываются, как 26,2% от основной заработной платы, что составляет:

2100 руб. +700 руб. * 26,2%= 734руб.

В общем, на одного сотрудника отдела инспекция выделяет:

2100 руб. + 700руб. + 734 руб. = 3534 руб. в месяц

3534 руб. /176 час.=20 руб. - стоимость 1 часа работы сотрудника отдела.

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

79,2 час.*20 руб.=3168 руб.

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

Следовательно, если Инспекция по налогам и сборам установит данную программу для своих нужд, она окупит себя через 1,4 года. (Срок окупаемости = Суммарные затраты на внедрение программы за год / Суммарный экономический эффект за год 4380,41/3168)

Заключение

В изложенной дипломной работе на тему «Автоматизация учета налогоплательщиков и расчет налога на имущество юридических лиц» была изучена проблема учета плательщиков и расчета налога. Цель разработки данного программного продукта - автоматизировать работу сотрудника отдела камеральных проверок, с последующим хранением информации на жёстком диске.

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

Разработанная программа полностью соответствует п. 1. «Постановка задачи».

программа информация налогоплательщик запрос

Литература

1. Б. Карпов. «Visual Basic 6: Специальный справочник». СПб.: Питер, - 2002

2. Перри Г. Самоучитель программирования. - СПб.: Питер, - 2002

3. Праг, Керри, Н., Ирвин, Майкл, Р. «Access 2002. Библия пользователя». М: Диалектика, 2003

4. Налоговый Кодекс Российской Федерации - 25 января 2006г.

Приложение

Форма «Главная кнопочная форма»

Программы

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_Switchboard"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

12 Private Sub Form_Open(Cancel As Integer)

13 ' Minimize the database window and initialize the form.

15 ' Move to the switchboard page that is marked as the default.

16 Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Default' "

17 Me.FilterOn = True

19 End Sub

21 Private Sub Form_Current()

22 ' Update the caption and fill in the list of options.

24 Me.Caption = Nz(Me![ItemText], "")

25 FillOptions

27 End Sub

29 Private Sub FillOptions()

30 ' Fill in the options for this switchboard page.

32 ' The number of buttons on the form.

33 Const conNumButtons = 8

35 Dim con As Object

36 Dim rs As Object

37 Dim stSql As String

38 Dim intOption As Integer

40 ' Set the focus to the first button on the form,

41 ' and then hide all of the buttons on the form

42 ' but the first. You can't hide the field with the focus.

43 Me![Option1].SetFocus

44 For intOption = 2 To conNumButtons

45 Me("Option" & intOption).Visible = False

46 Me("OptionLabel" & intOption).Visible = False

47 Next intOption

49 ' Open the table of Switchboard Items, and find

50 ' the first item for this Switchboard Page.

51 Set con = Application.CurrentProject.Connection

52 stSql = "SELECT * FROM [Switchboard Items]"

53 stSql = stSql & " WHERE [ItemNumber] > 0 AND [SwitchboardID]=" & Me![SwitchboardID]

54 stSql = stSql & " ORDER BY [ItemNumber];"

55 Set rs = CreateObject("ADODB.Recordset")

56 rs.Open stSql, con, 1 ' 1 = adOpenKeyset

58 ' If there are no options for this Switchboard Page,

59 ' display a message. Otherwise, fill the page with the items.

60 If (rs.EOF) Then

61 Me![OptionLabel1].Caption = "There are no items for this switchboard page"

62 Else

63 While (Not (rs.EOF))

64 Me("Option" & rs![ItemNumber]).Visible = True

65 Me("OptionLabel" & rs![ItemNumber]).Visible = True

66 Me("OptionLabel" & rs![ItemNumber]).Caption = rs![ItemText]

67 rs.MoveNext

68 Wend

69 End If

71 ' Close the recordset and the database.

72 rs.Close

73 Set rs = Nothing

74 Set con = Nothing

76 End Sub

78 Private Function HandleButtonClick(intBtn As Integer)

79 ' This function is called when a button is clicked.

80 ' intBtn indicates which button was clicked.

82 ' Constants for the commands that can be executed.

83 Const conCmdGotoSwitchboard = 1

84 Const conCmdOpenFormAdd = 2

85 Const conCmdOpenFormBrowse = 3

86 Const conCmdOpenReport = 4

87 Const conCmdCustomizeSwitchboard = 5

88 Const conCmdExitApplication = 6

89 Const conCmdRunMacro = 7

90 Const conCmdRunCode = 8

91 Const conCmdOpenPage = 9

93 ' An error that is special cased.

94 Const conErrDoCmdCancelled = 2501

96 Dim con As Object

97 Dim rs As Object

98 Dim stSql As String

100 On Error GoTo HandleButtonClick_Err

102 ' Find the item in the Switchboard Items table

103 ' that corresponds to the button that was clicked.

104 Set con = Application.CurrentProject.Connection

105 Set rs = CreateObject("ADODB.Recordset")

106 stSql = "SELECT * FROM [Switchboard Items] "

107 stSql = stSql & "WHERE [SwitchboardID]=" & Me![SwitchboardID] & " AND [ItemNumber]=" & intBtn

108 rs.Open stSql, con, 1 ' 1 = adOpenKeyset

110 ' If no item matches, report the error and exit the function.

111 If (rs.EOF) Then

112 MsgBox "There was an error reading the Switchboard Items table."

113 rs.Close

114 Set rs = Nothing

115 Set con = Nothing

116 Exit Function

117 End If

119 Select Case rs![Command]

121 ' Go to another switchboard.

122 Case conCmdGotoSwitchboard

123 Me.Filter = "[ItemNumber] = 0 AND [SwitchboardID]=" & rs![Argument]

125 ' Open a form in Add mode.

126 Case conCmdOpenFormAdd

127 DoCmd.OpenForm rs![Argument], , , , acAdd

129 ' Open a form.

130 Case conCmdOpenFormBrowse

131 DoCmd.OpenForm rs![Argument]

133 ' Open a report.

134 Case conCmdOpenReport

135 DoCmd.OpenReport rs![Argument], acPreview

137 ' Customize the Switchboard.

138 Case conCmdCustomizeSwitchboard

139 ' Handle the case where the Switchboard Manager

140 ' is not installed (e.g. Minimal Install).

141 On Error Resume Next

142 Application.Run "ACWZMAIN.sbm_Entry"

143 If (Err <> 0) Then MsgBox "Command not available."

144 On Error GoTo 0

145 ' Update the form.

146 Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Default' "

147 Me.Caption = Nz(Me![ItemText], "")

148 FillOptions

150 ' Exit the application.

151 Case conCmdExitApplication

152 CloseCurrentDatabase

154 ' Run a macro.

155 Case conCmdRunMacro

156 DoCmd.RunMacro rs![Argument]

158 ' Run code.

159 Case conCmdRunCode

160 Application.Run rs![Argument]

162 ' Open a Data Access Page

163 Case conCmdOpenPage

164 DoCmd.OpenDataAccessPage rs![Argument]

166 ' Any other command is unrecognized.

167 Case Else

168 MsgBox "Unknown option."

170 End Select

172 ' Close the recordset and the database.

173 rs.Close

175 HandleButtonClick_Exit:

176 On Error Resume Next

177 Set rs = Nothing

178 Set con = Nothing

179 Exit Function

181 HandleButtonClick_Err:

182 ' If the action was cancelled by the user for

183 ' some reason, don't display an error message.

184 ' Instead, resume on the next line.

185 If (Err = conErrDoCmdCancelled) Then

186 Resume Next

187 Else

188 MsgBox "There was an error executing the command.", vbCritical

189 Resume HandleButtonClick_Exit

190 End If

191 End Function

Форма «Расчет за налоговый отчетный период»