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

Затраты на технические средства 1 800 руб. Затраты на информационное обеспечение 1757,14 руб. Затраты на обучение персонала 565,71 руб. Затраты на опытную эксплуатацию 4397,86 руб. Общая сумма единовременных затрат 18 025,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 Форма по ОКУД 301 009 по ОКПО 54 853 897 наименование организации наименование структурного подразделения Номер документа Дата Отчетный период с по РАСЧЕТНАЯ ВЕДОМОСТЬ 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

Налоговая декларация ЕСН

Авансовый платеж ЕСН

Сводная карточка

Индиви-дуальная карточка

Рис. 2.1 Выходные документы при решении комплекса задач расчета ЕСН

Э = Эгод — ЕK (1)

Ер = Эгод / К (2)

Ток = 1/Ер = К / Эгод (3)

Э = Эвнеш +Эвнут (4)

Эвнут = Пб — П (5)

П = С + ЕК (6)

К = Кпр + Ктс + Клс + Кпо + Кио + Куч + Коэ (7)

Кпр = Краб + Ксвт + Кипс + Кпроч (8)

С = Сзп + Сао + Сто + Слс + Сни + Спр (9)