Разработка автоматизированного рабочего места бухгалтера по расчету единого социального налога (ЕСН) в бюджетном учереждении" Ступинская ЦБС"

Разработка АРМ бухгалтера по расчету ЕСН
Содержание
Введение
1Аналитическая часть
1.1Деятельность Ступинской ЦБС
1.2Анализ проблем в деятельности бухгалтерии Ступинской ЦБС
1.3Экономическая сущность задачи расчета ЕСН
1.4Процесс расчета ЕСН в Ступинской ЦБС до автоматизации
1.5Обоснование необходимости использования вычислительной техники для решения задачи расчета ЕСН
1.6Пути решения задачи расчета ЕСН
2Проектная часть
2.1Постановка задачи расчета ЕСН для компьютерной реализации
2.1.1Характеристика комплекса задачи расчета ЕСН
2.1.2Входная и выходная информация
2.2Проектирование состава и структуры базы данных
2.3Проектирование пользовательского интерфейса
2.4Разработка алгоритма решения задачи по расчету ЕСН
2.5Описание программного комплекса
2.6Руководство пользователя и контрольный пример
2.6.1Руководство для Администратора
2.6.2Руководство для бухгалтера
3Экономическая часть
3.1Методика расчета экономической эффективности
3.2Расчет показателей экономической эффективности проекта
3.2.1Расчет единовременных затрат
3.2.2Расчет эксплуатационных затрат по базовому и предлагаемому варианту решения задачи расчета ЕСН
3.3Показатели экономической эффективности
3.4Организация безопасной работы человека с компьютерной техникой
Заключение
Список использованной литературы
Приложение АФорма входного документа «Расчетная ведомость»
Приложение БПример заполненной формы выходного документа «Индивидуальная карточка»
Приложение ВПример заполненной формы выходного документа «Сводная карточка»
Приложение ГПример заполнения раздела 2 расчета авансовых платежей по ЕСН за I кв. 2006 г.
Приложение ДПример заполнения раздела 2 Налоговой декларации по ЕСН за 2006 г.
Приложение ЕСхема базы данных
Приложение ЖПрограммный код

Затраты на технические средства 1 800 руб. Затраты на информационное обеспечение 1757,14 руб. Затраты на обучение персонала 565,71 руб. Затраты на опытную эксплуатацию 4397,86 руб. Общая сумма единовременных затрат 18025,71 руб. Эксплуатационные затраты по базовому варианту: Заработная плата управленческого персонала 38 720 руб./год Амортизационные отчисления 1 500 руб./год Затраты на техническое обслуживание 1 500 руб./год Затраты на носители информации 60 руб./год Прочие затраты 250 руб./год Общая сумма эксплуатационных затрат до внедрения комплекса задач 42 030 руб./год Эксплуатационные затраты по предлагаемому варианту: Заработная плата управленческого персонала 15 488 руб./год Амортизационные отчисления 600 руб./год Затраты на техническое обслуживание 600 руб./год Затраты на носители информации 120 руб./год Прочие затраты 250 руб./год Общая сумма эксплуатационных затрат после
внедрения комплекса задач 17 058 руб./год

Таблица 3.2 Результаты расчета показателей экономической эффективности
Показатели Формулы для расчета Значение Годовая экономия Эгод = Сб – С 24 972 Расчетная прибыльность Ер = Эгод/К 1,39 Срок окупаемости Ток = 1/ Ер = К/Эгод 0,72 года Годовой экономический эффект Э = Эгод – ЕК 22 268,14 руб/год Внутренний экономический эффект Эвнут = Пб - П 22 268,14 руб/год
Внешний эффект от автоматизации расчета ЕСН на момент написания дипломного проекта сложно оценить количественно. Источниками внешнего экономического эффекта можно считать приобретение положительной репутации в глазах Налоговых органов. Автоматизация процесса составления отчетных документов снижает вероятность ошибки в Расчете авансовых платежей и Налоговой декларации по ЕСН, что приводит к снижению их корректировок. Это создает благоприятную среду во взаимоотношениях организации и Налоговых органов. В результате появляется вероятность избежать дополнительных налоговых проверок, которые отнимают много времени и создают напряженную обстановку в организации.
Учитывая расчеты внутреннего экономического эффекта и прогноз внешнего экономического эффекта можно сделать вывод, что создание АРМа бухгалтера по расчету ЕСН экономически оправдано и является эффективным.
Организация безопасной работы человека с компьютерной техникой
Использование большого количества персональных компьютеров, создание информационных систем, увеличение числа лиц, непосредственно использующих компьютерные технологии, вызывает необходимость специальной подготовки людей для безопасной работы в сфере обработки информации. В настоящее время, как у нас, так и за рубежом разработаны и приняты к исполнению соответствующие санитарные нормы и правила, при соблюдении которых негативное воздействие на оператора ПК сводится к минимуму.
Законодательство Российской Федерации об охране труда состоит из соответствующих норм Конституции Российской Федерации, Основ законодательства Российской Федерации об охране труда и издаваемых в соответствии с ними законодательных и иных нормативных актив Российской Федерации. Гарантии реализации права работников на охрану и нормативные требования по охране труда, установленные законодательными актами республик в составе РФ, не могут быть ниже гарантий и нормативные требований, предусмотренных основами законодательства РФ об охране труда.
Влияние побочных излучений компьютера на здоровье человека
Электрические сигналы цепей компьютера, обеспечивающие его работоспособность, являются источниками электромагнитного излучения. Излучение может вызываться непосредственно токами, протекающими через различные элементы компьютера, а может быть вызвано и взаимодействием электронных пучков с веществом. Примером последнего является взаимодействие пучка электронов с люминофором экрана в электронно-лучевой трубке, что приводит к возникновению электромагнитных излучений в оптическом (3.1012 - 3.1016 Гц) и рентгеновском (3.1016 - 3.1019 Гц) диапазонах частот.
Непосредственными излучателями являются все элементы компьютера, по которым протекает электрический ток, например, трансформаторы, дроссели, резисторы, конденсаторы, микросхемы и проводники, их соединяющие. Это электромагнитное излучение находится в радиочастотном (3 - 3.1012 Гц) диапазоне.
Электромагнитное излучение можно разделить на основное и побочное. Основным является излучение в видимой части оптического диапазона. Это излучение необходимо для работы компьютера, так как оно обеспечивает взаимодействие оператора с компьютером посредством экрана дисплея. Побочным является излучение в других частях оптического диапазона, а также в других диапазонах частот. Это излучение не является необходимым для работы компьютера, а лишь сопровождает ее.
Побочное электромагнитное излучение (ПЭМИ), с одной стороны, препятствует совместной работе компьютера с электронными и радиоэлектронными средствами. С другой стороны, оно способствует утечке информации, обрабатываемой компьютером, то есть появляется возможность с помощью радиоприемных устройств, что набирается на клавиатуре, выводится на дисплей, печатается принтером, записывается на магнитные диски или считывается с них. Наконец, ПЭМИ оказывает влияние на здоровье оператора.
ПЭМИ компьютера постоянно сопровождает работу оператора. Однако не все болезни оператора могут быть связаны с ПЭМИ, на некоторые из них более существенно влияют другие факторы. К числу таких заболеваний относятся глазные болезни, костно-мышечные заболевания и кожные болезни.
Костно-мышечные заболевания рук, спины, плеч и шеи имеют общее название синдром длительных статических нагрузок. Эти болезни связаны с работой на клавиатуре и (мышью(, во время которой пользователь компьютера повторяет с высокой скоростью одни и те же движения, находясь в сидячем положении.
Кожные болезни, такие как сыпь на лице, вызываются статическим полем дисплея. Под действием этого поля частички пыли у экрана приобретают положительный заряд и устремляются к ближайшему заземленному предмету. Обычно им оказывается лицо пользователя, результатом может явиться непроходящая сыпь.
Рациональная организация рабочего места
С понятием эргономики связано с рациональной организацией рабочего места. При «правильной» работе возрастет не только скорость, но и качество работы.
Чтобы работа была комфортной и эффективной, необходимо позаботиться о внешних условиях. Основное — это освещение. Оно должно быть достаточно ярким (300...500 лк), но рассеянным. Стол надо располагать боком к окну, окно должно иметь жалюзи или плотные шторы (в случае попадания прямого солнечного света).
Много говорят о необходимости поддержания невысокой температуры на рабочем месте. В настоящее время исследователи считают, что оптимальной является температура 22...24°С зимой и 23...25 °С летом. Гораздо реже вспоминают о другом условии: разница температур на уровне пола и головы сидящего оператора не должна превышать трех градусов.
Влажность воздуха в помещении должна лежать в пределах 40... 60 %. Необходимо остерегаться сквозняков. Их на рабочем месте не должно быть, как и разного рода вентиляторов. Сквозняком российские стандарты считают перемещение воздуха со скоростью более 0,1 м/сек.
Основной параметр, влияющий на удобство работы — высота стола. Наука говорит о том, что оптимальное значение этой цифры 72,5 см. Но лучше, конечно, покупать стол с регулируемой высотой. Тогда можно более точно установить удобную для вас высоту. Под столом должно быть достаточно места для ног. Выбирая стол, обратите внимание, что под ним должны помещаться как вытянутые ноги (глубина не менее 65 см), так и закинутые одна на другую (высота пространства под столом не менее 60 см).
Стол должен иметь такие размеры, чтобы на нем можно было разместить монитор, клавиатуру и документы.
Кресло должно позволять телу принимать физиологически рациональную рабочую позу, при которой не нарушается циркуляция крови и не происходит других вредных воздействий. Кресло обязательно должно быть с подлокотниками и иметь возможность поворота, изменения высоты и угла наклона сиденья и спинки. Желательно иметь возможность регулировки высоты и расстояния между подлокотниками, расстояния от спинки до переднего края сиденья. Важно, чтобы все регулировки были независимыми, легко осуществимыми и имели надежную фиксацию.
Размер сиденья должен быть не менее 40 х 40 см. Угол его наклона варьируется от 15° вперед до 5° назад. Оптимальная высота сиденья от 40 до 55 см. Особые требования к спинке кресла: высота опорной поверхности 30±2 см, ширина не менее 38 см, радиус кривизны в горизонтальной плоскости 40 см, угол наклона от 0 до 30°, расстояние до переднего края сиденья от 26 до 40 см. Подлокотники должны быть не менее 25 см в длину, 5...7 см в ширину, находиться над сиденьем на высоте 25 ±3 см и на расстоянии от 35 до 50 см друг от друга.
Требования к эргономичности клавиатуры заключаются исключительно в том, что располагаться она должна на расстоянии 10...30 см от края стола или на специальной регулируемой по высоте подставке. В любом случае, если набирается много текстов, то стоит позаботиться о том, чтобы запястья не висели в воздухе.
Монитор должен стоять так, чтобы изображение было четко видно без необходимости поднимать или опускать голову. Монитор обязательно должен быть расположен ниже уровня глаз. При взгляде вверх быстро устает шея. Подставка монитора должна быть как можно ниже. Угол наблюдения должен составлять 0... 60°. Расстояние до монитора не менее 40 см.
Заболевания, связанные с работой на ЭВМ
Нарушение зрения. В связи с тем, что монитор находиться на близком расстоянии, мышцы глаза управляющие хрусталиком находятся в постоянном напряжении. Помимо этого, дополнительное напряжение глаз создаётся принципом работы монитора т.е., обычно глаз воспринимает отражение света от предметов, монитор же, сам является источником света.
Напряжение, которое испытывают глаза при работе за компьютером, зачастую приводит к развитию состояния, получившего название компьютерного зрительного синдрома (КЗС). Оно характеризуется покраснением век, болью в глазах, глаза начинают слезиться или, наоборот, в них появляется ощущение сухости, рези, жжения. Эти ощущения повышают утомляемость. Появление КЗС связано не только со световым излучением, ведь глаза человека, смотрящего на монитор, выполняют не совсем привычную работу: они воспринимают изображение, принципиально отличающееся от природного. Прежде всего, монитор светится, в отличие, например, от книжной страницы, но, кроме того, он мерцает, четкость и цвета объекта на экране отличаются от естественных, а само изображение состоит из точек.
Чрезмерное увлечение работой за компьютером может также усугубить уже имеющиеся проблемы со зрением. Хотя еще и не доказано, что компьютеры действительно могут вызвать ухудшения зрения, некоторые офтальмологи высказывают опасения, что чрезмерное увлечение ими может оказать негативное влияние на мышцы, управляющие глазами, в результате чего потом будет очень трудно концентрировать зрение на определенном предмете, особенно в таких занятиях, как чтение. Если это произойдет, проблему коррекции зрения придется решать с помощью очков.
Заболевания позвоночника. Основными заболеваниями позвоночника развивающимися в следствии долгого нахождения за компьютером являются: остеохондроз и искривления позвоночника. Если возможность развития искривления позвоночника более велика в раннем возрасте, то остеохондроз опасен для людей всех возрастов, так же стоит отметить что последствия остеохондроза более опасны чем последствия различных видов искривления позвоночника. Искривления позвоночника (сколиоз, лордоз, кифоз). Одной из причин развития искривления позвоночника является не соблюдение правильной осанки, как во время работы за столом так и при ходьбе и т.д.. Таким образом, ребёнок который и в школе за партой и дома за компьютером не сидит прямо, вполне может приобрести искривление позвоночника. Необходимо так же отметить то что, искривление позвоночника не только делает человека не привлекательным, но и может в последствии привести к нарушению работы внутренних органов, что в последствии скажется на его здоровье.
Заболевания органов дыхания. Заболевания органов дыхания, развивающиеся из-за долговременной работы с компьютером имеют в основном аллергический характер. Это связанно с тем, что во время долгой работы компьютера корпус монитора и платы в системном блоке нагреваются и выделяют в воздух вредные вещества, особенно если компьютер новый. Помимо выделения вредных веществ, компьютер создаёт вокруг себя электростатическое поле которое притягивает пыль и соответственно она оседает у вас в лёгких, в то же время работающий компьютер деонизирует окружающую среду, и уменьшает влажность воздуха. Каждый из этих факторов пагубно влияет как на лёгкие, так и на весь организм в целом.
Рекомендации по пожарной безопасности
Пожарная безопасность - это такое состояние объекта, при котором должна быть исключена возможность возникновения пожара, и в случае его
возникновения должны быть обеспечены предотвращение воздействия на людей опасных факторов пожара и защита материальных ценностей.
Нормативная вероятность пожара должна составлять не более 10* в год в расчёте на один пожарный элемент объекта.
Так как системы обработки информации размещаются в зданиях, очень важно знать особенности пожаров в помещениях. В помещениях пожар развивается достаточно медленно (до 40 минут от момента возгорания) из-за недостаточного потока воздуха. Поэтому не следует открывать окна и двери во время тушения пожара в помещении.
Пожарная защита реализуется следующими мероприятиями: использованием негорючих и трудногорючих материалов; ограничением количества используемых и хранимых горючих веществ; применением средств пожаротушения; регламентацией пределов огнестойкости используемых материалов; созданием условий для быстрой эвакуации людей во время пожара; применением пожарной сигнализации.
Огнетушители и другие огнегасительные вещества способствуют созданию условий по успешной борьбе с пожаром. К основным огнегасительным веществам относятся: вода, водные растворы, водяной пар, пена, углекислота, сжатый воздух, порошки, песок, земля.
В рабочих помещениях лучше всего использовать углекислотные огне-тушители, применяющиеся для тушения легковоспламеняющихся веществ, электроприборов и электропроводки. Нормы для помещений с электроаппа-ратурой составляют 2 огнетушителя на 50 м (один пенный и один углеки-слотный) с длительностью работы 50-70 сек.
Заключение
В результате дипломного проектирования был реализован комплекс задач единого социального налога в бюджетной организации Ступинская ЦБС. Он предназначается для ведения индивидуальных и сводных карточек, а также для составления квартального расчета авансовых платежей и Налоговой декларации по ЕСН. Все создаваемые отчетные формы соответствуют требованиям законодательных актов РФ в области налогового и бухгалтерского учета.
В первой главе был произведен анализ деятельности Ступинской ЦБС, выявлены проблемы в деятельности бухгалтерии и приведено обоснование необходимости использовать современные компьютерные технологии для реализации задачи расчета ЕСН. Вторая глава посвящена проектированию АРМ «Расчет ЕСН», начиная от постановки задачи для компьютерной реализации и заканчивая программной разработкой комплекса задач. При разработке использовались современные средства проектирования и анализа информации.
В третьей главе приведено обоснование экономической эффективности данного проекта. Данная разработка привела к снижению трудоемкости процесса расчета ЕСН и снижению вероятности появления ошибки при составлении отчетных документов для внутреннего пользования и для Налоговых органов. Расчет показателей эффективности оправдал затраты на реализацию решения данной задачи. Внутренний эффект составляет 22 268,14 руб/год. Внешний эффект связан с установлением благоприятных отношений организации с Налоговыми органами. Срок окупаемости проекта составляет около 8 месяцев.
Перспектива развития данной системы – создание универсального программного продукта для расчета ЕСН в организациях различной сферы деятельности.
Список использованной литературы
Гражданский кодекс РФ.
Налоговый кодекс РФ.
Федерального закона от 15.12.2001 N 167-ФЗ «Об обязательном пенсионном страховании в Российской Федерации».
Федеральный закон от 06.12.2005 N 158-ФЗ «О внесении изменения в статью 241 части второй Налогового кодекса Российской Федерации».
Федеральный закон от 15.12.2001 года N 167-ФЗ «Об обязательном пенсионном страховании»
Приказ МНС РФ от 27.07.04 № САЭ-3-05/443 «Об утверждении формы индивидуальной карточки учета сумм начисленных выплат и иных вознаграждений, сумм начисленного единого социального налога, а также сумм налогового вычета и порядка ее заполнения»
Приказ Минфина России от 17.03.2005 N 40н «Об утверждении формы Расчета авансовых платежей по единому социальному налогу и порядка ее заполнения».
Приказ Минфина РФ от 31.01.2006 N 19н "Об утверждении формы налоговой декларации по единому социальному налогу для налогоплательщиков, производящих выплаты физическим лицам, и порядка ее заполнения"
ГОСТ 24.204-80. Требования к содержанию документа «описание постановки задачи».
ГОСТ 19.003-80. Схемы алгоритмов и программ. Правила выполнения.
Устав Ступинской централизованной библиотечной системой.
Годовой отчет о работе Ступинской ЦБС в 2006 году.
Автоматизация управления предприятием/Баронов В.В. и др. – М.: ИНФРА-М, 2000. – 239 с.
Анализ хозяйственной деятельности бюджетных организаций: Учеб. пособие / Д.А. Панков, Е.А. Головкова, Л.В. Пашковская и др.; Под общ. ред. Д.А. Панкова, Е.А. Головковой. — 2-е изд., испр. — М.: Новое знание, 2003. — 409 с.
Бугорский В.Н., Соколов Р.В. Экономика и проектирование информационных систем. – СПб.: Роза мира, 1998. – 295 с.
Герц К., Джилберт М. Программирование в Microsoft Office. Для пользователя. – К.: Издательская группа BHV, 2000. – 384 с.
Информационные технологии управления: Учеб. Пособие для вузов /Под ред. проф. Г.А. Титоренко. — 2-е изд., доп. — М.: ЮНИТИ-ДАНА, 2003. - 439 с.
Информационные технологии бухгалтерского учета / О. П. Ильина. — СПб : Питер, 2001. —688 с.
Информационные технологии управления: Учебное пособие / Под ред. Ю.М. Черкасова. - М.: ИНФРА-М, 2001. - 216 с.
Коннолли Томас, Бегг Каролин. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. 3-е издание. : Пер. с англ. - М.: Издательский дом "Вильямс", 2003. - 1440 с.
Лытнева Н. А., Малявкина Л. И., Федорова Т. В. Бухгалтерский учет: Учебник. — М.: ФОРУМ: ИНФРА-М, 2006. - 496 с.
Михеева Е.В. Информационные технологии в профессиональной деятельности. – 2-е издание. – М.: Издательский центр «Академия», 2005. – 384 с.
Пансков В.Г. Налоги и налогообложение в Российской Федерации: Учебник для вузов. — 6-е изд., доп. и перераб. — М.: Международный центр финансово-экономического развития, 2004. — 576 с.
Серогодский В.В. Excel 2003. Эффективный самоучитель — СПб.: Наука и Техника, 2005. — 400 с.
Тимошок Т.В. Microsoft Access 2003. Самоучитель. : — М. : Издательский дом "Вильяме", 2004. — 464 с.
Харитонова И. А. Самоучитель: Office Access 2003. — СПб.: Питер, 2004. — 464 с.
Microsoft Office Excel 2003. Учебный курс / В. Кузьмин, — СПб.: Питер; Киев: Издательская группа BHV, 2004. — 493 с.
Microsoft Office 2003. Новые горизонты/К. Мюррей. — СПб.: Питер, 2004. — 190с.
Ж. «Бухгалтерский учет» №3, 2007 г.
Ж. «Бухгалтерский учет» №6, 2006 г.
Данные сайта Министерства Российской Федерации по налогам и сборам
www.nalog.ru
Данные сайта фирмы 1C www.1c.ru
Форма входного документа «Расчетная ведомость»
                    Унифицированная форма № Т-51                     Утверждена Постановлением                     Государственного комитета РФ по статистике           код     от 06.04.01 № 26         Форма по ОКУД 0301009       по ОКПО 54853897       наименование организации               наименование структурного подразделения                                                               Номер документа Дата   Отчетный период         с по     РАСЧЕТНАЯ ВЕДОМОСТЬ 7  
№ п/п Табельный номер Фамилия, инициалы Профессия (должность) Оклад, руб. Отработано дней (часов) Начислено, руб. Удержано и зачтено, руб. Сумма, руб. рабочих выходных и праздничных за текущий месяц (по видам оплат) Всего Налог на доходы … Всего Долг за организацией Задолженность за работником К выплате Оплата по окладу Премия Пособие по временной нетрудоспособности … 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 1                                   2                                   Итого:                      
Пример заполненной формы выходного документа «Индивидуальная карточка»
Пример заполненной формы выходного документа «Сводная карточка»
Пример заполнения раздела 2 расчета авансовых платежей по ЕСН за I кв. 2006 г.
Пример заполнения раздела 2 Налоговой декларации по ЕСН за 2006 г.
Схема базы данных
Программный код
Процедура обработки событий для формы Инд_карточка
Private Sub Form_Open(Cancel As Integer)
КнДоб.Enabled = False
КнСлед.Enabled = False
End Sub
Private Sub КнДоб_Click() 'Добавление записи в таблицу "Инд_карточка"
Dim db As Database
Dim arec As Recordset, brec As Recordset, crec As Recordset, drec As Recordset
Dim rrec As Recordset, prec As Recordset
Dim tabn As String, mon As Integer, kolreg As Integer, kolz As Integer, reg As Integer, nreg As Integer
tabn = Me!Сотрудники
mon = Me!Месяц
Set db = CurrentDb
Set arec = db.OpenRecordset("Индив_Карточка", dbOpenDynaset, dbAppendOnly)
arec.AddNew
arec![Таб_Номер] = Me!Сотрудники
arec![Код_мес] = Me!Месяц
arec![Всего_начисл] = [Form]![НБ_ЕСН]![Итого]
arec![Графа3] = Me!Графа3
arec![Графа4] = Me!Графа4
arec![Графа5] = Me!Графа5
arec![Графа6] = Me!Графа6
arec![Графа23] = Me!Графа23
arec![Графа32] = Me!Графа32
' Определение налоговых ставок
Set brec = db.OpenRecordset("Select Регрессия.Код_регр, Ставки_налога.Код_регр, Фонды.Код_фонда, Ставки_налога.Код_фонда, Сокр_назв, Макс_Сумма, Мин_Сумма, Процент, Сумма_платежа From Ставки_налога, Фонды, Регрессия Where Регрессия.Код_регр = Ставки_налога.Код_регр And Фонды.Код_фонда = Ставки_налога.Код_фонда")
Set rrec = db.OpenRecordset("Регрессия")
If mon > 1 Then
Set drec = db.OpenRecordset("Select Таб_Номер, Код_мес, Накопл_НБ From [Индив_Карточка] Where [Таб_Номер] = '" & tabn & "'" & " And [Код_мес] = " & mon - 1)
arec![Накопл_НБ] = drec![Накопл_НБ] + [Form]![НБ_ЕСН]![Итого] - Me!Графа3 - Me!Графа4 - Me!Графа5 - Me!Графа6
drec.Close
Else
arec![Накопл_НБ] = [Form]![НБ_ЕСН]![Итого] - Me!Графа3 - Me!Графа4 - Me!Графа5 - Me!Графа6
End If
' Выбор регрессии
rrec.MoveFirst
kolreg = rrec.RecordCount
For reg = 1 To kolreg
If (arec![Накопл_НБ] >= brec![Мин_Сумма]) And (arec![Накопл_НБ] <= brec![Макс_Сумма]) Then
nreg = rrec!Код_регр
Else
rrec.MoveNext
End If
Next reg
rrec.Close
' Определение ставки налога для ФБ
brec.FindFirst ("Ставки_налога.Код_регр = " & nreg & "And Сокр_назв = 'ФБ'")
arec![Графа8] = brec!Процент
' Определение ставки налога для ФСС
brec.FindFirst ("Ставки_налога.Код_регр = " & nreg & "And Сокр_назв = 'ФСС'")
arec![Графа10] = brec!Процент
' Определение ставки налога для ФФОМС
brec.FindFirst ("Ставки_налога.Код_регр = " & nreg & "And Сокр_назв = 'ФФОМС'")
arec![ФФОМС] = brec!Процент
' Определение ставки налога для ФФОМС
brec.FindFirst ("Ставки_налога.Код_регр = " & nreg & "And Сокр_назв = 'ТФОМС'")
arec![ТФОМС] = brec!Процент
brec.Close
' Определение тарифов в Пенсионный фонд в зависомости от возрастной категории сотрудника
Set crec = db.OpenRecordset("SELECT Таб_номер, Дата_рожд FROM Сотрудники WHERE Таб_номер = '" & tabn & "'")
Set prec = db.OpenRecordset("SELECT Регрессия.Код_регр, Пенс_Фонд.Код_регр, Пенс_Фонд.Код_возр, Накоп_часть, Страх_часть, Возр_категория.Код_возр, Возр_кат_н, Возр_кат_к From Пенс_Фонд, Регрессия, Возр_категория WHERE Регрессия.Код_регр = Пенс_Фонд.Код_регр And Возр_категория.Код_возр = Пенс_Фонд.Код_возр And Регрессия.Код_регр = " & nreg)
prec.MoveLast
kolz = prec.RecordCount
prec.MoveFirst
For reg = 1 To kolz
If (crec![Дата_рожд] >= prec![Возр_кат_н]) And (crec![Дата_рожд] <= prec![Возр_кат_к]) Then
arec![Графа18] = prec![Страх_часть]
arec![Графа19] = prec![Накоп_часть]
Else
prec.MoveNext
End If
Next reg
arec.Update
arec.Close
crec.Close
prec.Close
ИК.Enabled = True
КнСлед.Enabled = True
Me!Графа3 = "0"
Me!Графа4 = "0"
Me!Графа5 = "0"
Me!Графа6 = "0"
Me!Графа23 = "0"
Me!Графа32 = "0"
End Sub
Private Sub КнДоб_Exit(Cancel As Integer)
КнДоб.Enabled = False
End Sub
Private Sub Кнопка_начисл_Click()
Dim db As Database, arec As Recordset
Dim tabn As String, mon As Integer
tabn = Me!Сотрудники
mon = Me!Месяц
Set db = CurrentDb
Set arec = db.OpenRecordset("Select * From [Индив_Карточка] Where [Таб_Номер] = '" & tabn & "'" & " And [Код_мес] = " & mon)
If arec.RecordCount <> 0 Then
MsgBox "Для данного сотрудника уже заполнена индивидуальная карточка за указанный месяц", vbOKOnly
Exit Sub
End If
arec.Close
Me![НБ_ЕСН].Requery
КнДоб.Enabled = True
End Sub
Private Sub Выход_Click()
On Error GoTo Err_Выход_Click
DoCmd.Close
Exit_Выход_Click:
Exit Sub
Err_Выход_Click:
MsgBox Err.Description
Resume Exit_Выход_Click
End Sub
Private Sub ИК_Click()
Dim a As Variant
Dim file_name As String
'Определение пути к файлу: Путь к БД\Текущий_Год\Таб_номер.xls
file_name = "Excel " & Application.CurrentProject.Path & "\" & Year(Date) & "\" & Me!Сотрудники & ".xls"
a = Shell(file_name, vbNormalFocus)
End Sub
Private Sub КнСлед_Click()
Me![Сотрудники] = ""
Me![НБ_ЕСН].Requery
End Sub
Процедура обработки событий для формы Свод_ карточка
Private Sub КнExcel_Click()
Dim a As Variant
Dim file_name As String
'Определение пути к файлу: Путь к БД\Текущий_Год\esn_svod.xls
file_name = "Excel " & Application.CurrentProject.Path & "\" & Year(Date) & "\" & "esn_svod.xls"
a = Shell(file_name, vbNormalFocus)
End Sub
Private Sub Кнопка10_Click()
On Error GoTo Err_Кнопка10_Click
DoCmd.Close
Exit_Кнопка10_Click:
Exit Sub
Err_Кнопка10_Click:
MsgBox Err.Description
Resume Exit_Кнопка10_Click

End Sub
Private Sub КнСК_Click()
Dim db As Database
Dim arec As Recordset, brec As Recordset, crec As Recordset, drec As Recordset
Dim rrec As Recordset, prec As Recordset
Dim mon As Integer, i As Integer, kol As Integer
mon = Me!Месяц
Set db = CurrentDb
Set arec = db.OpenRecordset("SELECT * FROM Индив_Карточка WHERE [Код_мес] = " & mon)
Set brec = db.OpenRecordset("Свод_карточка", dbOpenDynaset, dbDenyWrite)
Set crec = db.OpenRecordset("Сотрудники")
arec.MoveLast
crec.MoveLast
' Проверка заполненности индивидуальных карточек за рассматриваемый месяц
If arec.RecordCount <> crec.RecordCount Then
MsgBox "Индивидуальные карточки за данный месяц заполнены не для всех сотрудников", vbOKOnly
Exit Sub
End If
' Проверка наличия записи в сводной карточке за рассматриваемый месяц
'brec.MoveFirst
brec.FindFirst ("Код_мес = " & mon)
If brec.NoMatch = False Then
MsgBox "За данный месяц уже сформирована запись в сводной карточке", vbOKOnly
Exit Sub
End If
' Расчет значений полей сводной карточки и запись в БД
arec.MoveLast
kol = arec.RecordCount
brec.AddNew
arec.MoveFirst
For i = 1 To kol
brec![Код_мес] = mon
brec!Графа2 = brec!Графа2 + arec![Всего_начисл]
brec!Графа3 = brec!Графа3 + arec!Графа3
brec!Графа4 = brec!Графа4 + arec!Графа4
brec!Графа5 = brec!Графа5 + arec!Графа5
brec!Графа6 = brec!Графа6 + arec!Графа6
brec!Графа10 = brec!Графа10 + (arec![Всего_начисл] - arec!Графа3 - arec!Графа4 - arec!Графа6) * arec!Графа8 / 100
brec!Графа11 = brec!Графа11 + (arec![Всего_начисл] - arec!Графа3 - arec!Графа4 - arec!Графа5) * arec!Графа10 / 100
brec!Графа12 = brec!Графа12 + (arec![Всего_начисл] - arec!Графа3 - arec!Графа4) * arec![ФФОМС] / 100
brec!Графа13 = brec!Графа13 + (arec![Всего_начисл] - arec!Графа3 - arec!Графа4) * arec![ТФОМС] / 100
brec!Графа16 = brec!Графа16 + (arec![Всего_начисл] - arec!Графа3 - arec!Графа4 - arec!Графа6) * arec!Графа18 / 100
brec!Графа17 = brec!Графа17 + (arec![Всего_начисл] - arec!Графа3 - arec!Графа4 - arec!Графа6) * arec!Графа19 / 100
brec!Графа18 = brec!Графа18 + arec!Графа23
brec!Графа19 = brec!Графа19 + (arec!Графа23 * arec!Графа8 / 100 - arec!Графа23 * (arec!Графа18 + arec!Графа19) / 100)
brec!Графа20 = brec!Графа20 + (arec!Графа23 * arec!Графа10 / 100)
brec!Графа21 = brec!Графа21 + (arec!Графа23 * arec![ФФОМС] / 100)
brec!Графа22 = brec!Графа22 + (arec!Графа23 * arec![ТФОМС] / 100)
brec!Графа27 = brec!Графа27 + arec!Графа32
arec.MoveNext
Next i
brec!Графа28 = Me!Графа28
Me!Графа28 = "0"
brec.Update
brec.Close
crec.Close
arec.Close
End Sub
Процедура обработки событий для формы Аванс_платеж
' Функция для проверки наличия в сводной карточке записей за все 3 месяца квартала
Private Function Proverka(a As Integer, b As Integer, c As Integer) As Boolean
Dim db As Database
Dim arec As Recordset
Set db = CurrentDb
Set arec = db.OpenRecordset("SELECT * FROM Свод_Карточка WHERE [Код_мес] = " & a & " Or [Код_мес] = " & b & " Or [Код_мес] = " & c)
arec.MoveLast
If arec.RecordCount = 3 Then
Proverka = True
Else
Proverka = False
End If
arec.Close
End Function
Private Sub КнExcel_Click()
Dim a As Variant
Dim file_name As String
'Определение пути к файлу: Путь к БД\Текущий_Год\esn_avans(1, 2, 3 или 4).xls
Select Case Квартал
Case "I квартал"
If Proverka(1, 2, 3) = True Then ' Если сводная карточка заполнена за все 3 месяца
file_name = "Excel " & Application.CurrentProject.Path & "\" & Year(Date) & "\esn_avans1.xls"
a = Shell(file_name, vbNormalFocus)
Else ' Если сводная карточка заполнена не за все 3 месяца
MsgBox "Сформировать расчет авансовых платежей за I квартал невозможно, т.к. в сводной карточке не достаточно записей за данный период", vbOKOnly
Exit Sub
End If
Case "II квартал"
If Proverka(4, 5, 6) = True Then
file_name = "Excel " & Application.CurrentProject.Path & "\" & Year(Date) & "\esn_avans2.xls"
a = Shell(file_name, vbNormalFocus)
Else
MsgBox "Сформировать расчет авансовых платежей за II квартал невозможно, т.к. в сводной карточке не достаточно записей за данный период", vbOKOnly
Exit Sub
End If
Case "III квартал"
If Proverka(7, 8, 9) = True Then
file_name = "Excel " & Application.CurrentProject.Path & "\" & Year(Date) & "\esn_avans3.xls"
a = Shell(file_name, vbNormalFocus)
Else
MsgBox "Сформировать расчет авансовых платежей за III квартал невозможно, т.к. в сводной карточке не достаточно записей за данный период", vbOKOnly
Exit Sub
End If
Case Else
MsgBox "Необходимо выбрать отчетный период из списка", vbOKOnly
Exit Sub
End Select
End Sub
Private Sub Кнопка3_Click()
On Error GoTo Err_Кнопка3_Click
DoCmd.Close
Exit_Кнопка3_Click:
Exit Sub
Err_Кнопка3_Click:
MsgBox Err.Description
Resume Exit_Кнопка3_Click
End Sub
Процедура обработки события при нажатии кнопки Главного меню «Налоговая декларация»
Private Sub КнНД_Click() ' При нажатии кнопки "Налоговая декларация" происходит вызов файла esn_dec.xls
Dim db As Database
Dim arec As Recordset
Dim a As Variant
Dim file_name As String
Set db = CurrentDb
Set arec = db.OpenRecordset("Свод_Карточка")
arec.MoveLast
' Проверка наличия всех записей в сводной карточке
If arec.RecordCount = 12 Then
file_name = "Excel " & Application.CurrentProject.Path & "\" & Year(Date) & "\esn_dek.xls"
a = Shell(file_name, vbNormalFocus)
Else
MsgBox "Сформировать Налоговую декларацию невозможно, т.к. в сводной карточке содержаться не все записи за отчетный период", vbOKOnly
Exit Sub
End If
arec.Close
End Sub
Данные из Годового отчета Ступинской ЦБС за 2006 год.
Пансков В.Г. Налоги и налогообложение в Российской Федерации: Учебник для вузов. — 6-е изд., доп. и перераб. — М.: Международный центр финансово-экономического развития, 2004. с. 364.
Пансков В.Г. Налоги и налогообложение в Российской Федерации: Учебник для вузов. — 6-е изд., доп. и перераб. — М.: Международный центр финансово-экономического развития, 2004. с. 370
Лытнева Н. А., Малявкина Л. И., Федорова Т. В. Бухгалтерский учет: Учебник. — М.: ФОРУМ: ИНФРА-М, 2006, с. 363
Козырев А.А. Информационные технологии в экономике и управлении: Учебник. – СПб.: Изд-во Михайлова В. А., 2000. с. 264.
Данные сайта www.1C.ru
Приказ Минфина России от 17.03.2005 N 40н «Об утверждении формы Расчета авансовых платежей по единому социальному налогу и порядка ее заполнения».
Приказ Минфина России от 17.03.2005 N 40н «Об утверждении формы Расчета авансовых платежей по единому социальному налогу и порядка ее заполнения».
Коннолли Томас, Бегг Каролин. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. 3-е издание. : Пер. с англ. - М.: Издательский дом "Вильямс", 2003. с. 378
Microsoft Office Excel 2003. Учебный курс / В. Кузьмин, — СПб.: Питер; Киев: Издательская группа BHV, 2004. с. 178
Бугорский В.Н., Соколов Р.В. Экономика и проектирование информационных систем. – СПб.: Роза мира, 1998. с. 206
Бугорский В.Н., Соколов Р.В. Экономика и проектирование информационных систем. – СПб.: Роза мира, 1998. с. 207
Бугорский В.Н., Соколов Р.В. Экономика и проектирование информационных систем. – СПб.: Роза мира, 1998. с. 214
Бугорский В.Н., Соколов Р.В. Экономика и проектирование информационных систем. – СПб.: Роза мира, 1998. с. 216
Михеева Е.В. Информационные технологии в профессиональной деятельности. – 2-е издание. – М.: Издательский центр «Академия», 2005. с.357
Михеева Е.В. Информационные технологии в профессиональной деятельности. – 2-е издание. – М.: Издательский центр «Академия», 2005. с. 361
Михеева Е.В. Информационные технологии в профессиональной деятельности. – 2-е издание. – М.: Издательский центр «Академия», 2005. с. 365
Михеева Е.В. Информационные технологии в профессиональной деятельности. – 2-е издание. – М.: Издательский центр «Академия», 2005. с. 361
Бугорский В.Н., Соколов Р.В. Экономика и проектирование информационных систем. – СПб.: Роза мира, 1998. с. 176
72
Налоговая декларация ЕСН
Авансовый платеж
ЕСН
Сводная карточка
Индиви-дуальная карточка
Рис. 2.1 Выходные документы при решении комплекса задач расчета ЕСН
Э = Эгод – ЕK (1)
Ер = Эгод / К (2)
Ток = 1/Ер = К / Эгод (3)
Э = Эвнеш +Эвнут (4)
Эвнут = Пб – П (5)
П = С + ЕК (6)
К = Кпр + Ктс + Клс + Кпо + Кио + Куч + Коэ (7)
Кпр = Краб + Ксвт + Кипс + Кпроч (8)
С = Сзп + Сао + Сто + Слс + Сни + Спр (9)