Таблица 4.6 - Малоценные и быстроизнашивающиеся предметы

№ п/п	Наименование	Количество, шт	Цена, руб.	Сумма с НДС, руб.	Сумма без НДС, руб.	НДС, руб.	Срок службы, лет	Амортизация	Амортизационные отчисления в месяц, руб.
1	Мышь	2	150,00	300,00	254,24	45,76	5	0,20	4,24
2	Клавиатура	2	550,00	1100,00	932,20	167,80	5	0,20	15,54
	ИТОГО			1400,00	1186,44	213,56			19,77

Расчет постоянных расходов приведен в таблице 4.7.

Таблица 4.7 - Расчет постоянных расходов

№ п/п	Наименование	Сумма в 1-й месяц, руб.	Сумма в месяц без НДС, руб.	Сумма во 2-й месяц и след. мес., руб.
1	Аренда помещения	15000	12711,86	12711,86
2	Электроэнергия	840	711,86	711,86
3	Коммунальные платежи	1300	1101,69	1101,69
4	Оплата телефона	512	433,90	433,90
5	Вывоз мусора	500	423,73	423,73
6	Водоотведение	1000	847,46	847,46
7	Водоснабжение	800	677,97	677,97
8	Интернет	2500	2118,64	2118,64
9	Автомат. сигнализация	1340	1135,59	1135,59
10	Арендная плата за ОС на балансе заказчика (Амортизационные отчисления)			1144,63
11	Проценты за кредит		0,00	690,83
12	ФОТ	14300	14300,00	14300,00
13	Отчисления с ФОТ (ЕСН)	3718	3718,00	3718,00
14	Подоходный налог	1859	1859,00	1859,00
	ИТОГО	43669	40039,71	41184,34
	В сумме с предыдущими периодами		41449,71	84044,06

К переменным расходам относятся: компакт-диски, бумага для принтера и тонер для принтера. Расчет переменных расходов приведен в таблице 4.8.

Таблица 4.8 - Расчет переменных расходов

№ п/п	Наименование	Кол-во, шт.	Сумма в месяц ед. наименования с НДС, руб.	Сумма в месяц с НДС, руб.	Сумма в месяц без НДС, руб.	НДС, руб.
1	Компакт-диски	15	22	330	279,66	50,34
2	Бумага для принтера	2	140	280	237,29	42,71
3	Тонер для принтера	1	800	800	677,97	122,03
	ИТОГО	18	962	1410	1194,92	215,08

4.9 Налогообложение

Теперь нужно определить, какие налоги предприниматель должен будет оплатить. В соответствии с НК РФ ст. 19 налогоплательщиками и плательщиками сборов признаются организации и физические лица, на которых в соответствии с настоящим Кодексом возложена обязанность уплачивать соответственно налоги и (или) сборы.

Налоговые ставки приведены в таблице 4.9

Таблица 4.9 - Налоговые ставки

Наименование	Значение
ЕСН	0,26
Подоходный налог	0,13
Налог на прибыль	0,2

4.10 Амортизация

Основные средства подлежат амортизации.

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

При применении линейного метода норма амортизации по каждому объекту амортизируемого имущества определяется по формуле:

	(4.11)

где - норма амортизации в процентах к первоначальной (восстановительной) стоимости объекта амортизируемого имущества; n - срок полезного использования данного объекта амортизируемого имущества, выраженный в месяцах.

Кроме того, следует отметить, что для каждого объекта амортизации можно указать группу, к которой относится объект (группа определяется сроком полезного использования объекта).

Таким образом, получилось что стул, стол, принтер и корзина для мусора относятся:

– ко второй группе (3 года) - монитор и системный блок;

– к третьей группе (срок использования 4 года и 5 лет);

– к четвертой группе (7 лет) - телефон и журнальный столик.

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

Согласно ст. 258 НК РФ определение срока полезного использования объекта нематериальных активов производится исходя из срока действия патента, свидетельства и (или) из других ограничений сроков использования объектов интеллектуальной собственности в соответствии с законодательством Российской Федерации или применимым законодательством иностранного государства, а также исходя из полезного срока использования нематериальных активов, обусловленного соответствующими договорами.

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

4.11 Расчет заработной платы

Расчет заработной платы приведен в таблице 4.10.

Таблица 4.10 - Расчет заработной платы

№ п/п	Наименование	Кол-во, шт.	Заработная плата с вычетом налогов, руб.	Сумма, руб.
1	Программист	4	4370	17480
2	Подоходный налог			2272,4
	Итого			19752,4

Рассчитывать затраты на разработку программы программист будет исходя из собственной прибыли. Именно поэтому никаких премиальных не начисляется и не приводится тарифная сетка. Доход программиста должен обеспечивать жизнь семьи из четырех человек. Прожиточный уровень в городе Магнитогорске составляет 4370 руб./мес. на человека. Отсюда программист получит заработную плату в размере 19752,4 рублей. Подоходный налог составляет 13% от суммы заработной платы и составляет 2272,4 рублей.

4.12 Расчет продажной стоимости

Для расчета продажной стоимости программы была использована программа "Инфо-Бухгалтер 8.1". Результаты представлены в таблице 4.11

Таблица 4.11 - Результаты расчета продажной стоимости

Операция	Сумма, руб.
Начисление дохода исполнителю	14247
Налоги ИСП : Уплата налога на прибыль исполнителя	2849
Начисление процентов заказчику	35619
Продажная стоимость с НДС	227964
Денежный доход исполнителя	40630

По результатам расчетов продажной стоимости программы составит 227 964 руб.

Заключение

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

C помощью MS Access разработана база данных, содержащая 11 связных таблиц. Программным средством для создания программы "СпирографОтдел" является среда разработки Borland Delphi 7.0. Разработана схема данных, схема функционирования программного продукта, описано проектирование пользовательского интерфейса и квантификация, приведены результаты работы программного продукта.

Рассмотрены опасные и вредные производственные факторы на рабочем месте оператора ЭВМ и проведен анализ технико-экономических показателей и обоснование экономической целесообразности принятых в проекте решений.

Библиографический список

1. Архангельский А. Я. Программирование в Delphi 7. - М.: Бином, 2003. - 1152 с.

2. Кэнту М. Delphi 7. Для профессионалов. - СПб.: Питер, 2004. - 1101 с: ил.

3. Парфенов Ю. П., Иноземцев А. В. Разработка приложений для обработки баз данных на основе технологии ADO: Конспект лекций и методические указания по курсу "Промышленные СУБД". - Екатеринбург: Издательство УМЦ УПИ, 2003. - 43 с.

4. Фаронов В. В. Программирование баз данных в Delphi 7 - СПб.: Питер, 2003. - 459 с.

5. Ширяева И.С. Методические рекомендации для врачей кабинетов функциональной диагностики и для врачей-педиатров детских больниц и поликлиник - М., 1997.

Приложение

Листинг модуля Cartochka.pas

unit Cartochka;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids, DBGrids, Menus;

type

TCartaForm = class(TForm)

DBGrid1: TDBGrid;

FindEdit: TEdit;

Label1: TLabel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

PopupMenu1: TPopupMenu;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

procedure FormActivate(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure FindEditKeyPress(Sender: TObject; var Key: Char);

procedure N11Click(Sender: TObject);

procedure N12Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

CartaForm: TCartaForm;

implementation

uses DModule, MainForm, Pacient;

{$R *.dfm}

procedure TCartaForm.FormActivate(Sender: TObject);

begin

// Datamodule1.CartaTable.IndexFieldNames:='Фамилия';

end;

procedure TCartaForm.N3Click(Sender: TObject);

begin

PForm.ShowModal;

end;

procedure TCartaForm.N4Click(Sender: TObject);

begin

if Application.MessageBox(PChar('Вы действительно хотете удалить?'+

Datamodule1.CartaTableDSDesigner.AsString),'Внимание!!!',

MB_OKCANCEL)=id_OK then

Datamodule1.CartaTable.Delete;

end;

procedure TCartaForm.N6Click(Sender: TObject);

begin

Datamodule1.CartaTable.sort:='Фамилия';

end;

procedure TCartaForm.N7Click(Sender: TObject);

begin

Datamodule1.CartaTable.Sort:='Дата рождения';

end;

procedure TCartaForm.FindEditKeyPress(Sender: TObject; var Key: Char);

begin

if Length(FindEdit.Text)>0 then

Datamodule1.CartaTable.Filtered:=true

else

Datamodule1.CartaTable.Filtered:=false;

Datamodule1.CartaTable.Filter:='Фамилия>'''+FindEdit.Text+'''';

end;

procedure TCartaForm.N11Click(Sender: TObject);

begin

Close();

end;

procedure TCartaForm.N12Click(Sender: TObject);

begin

Datamodule1.CartaTable.Insert;

PForm.ShowModal;

end;

end.

Листинг модуля UserUnit.pas

unit UserUnit;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids, DB, ADODB;

type

TUserForm = class(TForm)

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Button2: TButton;

LoginEdit: TEdit;

PasswordEdit: TEdit;

UserQuery: TADOQuery;

Button3: TButton;

ADOConnection1: TADOConnection;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

UserForm: TUserForm;

Login:string;

Dostup:boolean;

implementation

uses DModule, MainForm;

{$R *.dfm}

procedure TUserForm.Button2Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TUserForm.Button1Click(Sender: TObject);

begin

If (LoginEdit.Text<>'') and (PasswordEdit.Text<>'') then //поля не пустые

begin

UserQuery.Active:=false;

UserQuery.Parameters.ParamByName('log').Value:=LoginEdit.Text;

UserQuery.Active:=true;

If UserQuery.RecordCount<>0 then

begin

If UserQuery.FieldByName('Пароль').AsString=PasswordEdit.Text then begin

login:=LowerCase(LoginEdit.Text);

If UserQuery.FieldByName('Доступ').AsString='True' then Dostup:=true//есть доступ

else Dostup:=false;

Close;

end

else Showmessage('Неправильный логин или пароль!');

end else ShowMessage('Неправильный логин или пароль!');

end

else ShowMessage('Введите имя пользователя и пароль!');//пустые поля

end;

procedure TUserForm.Button3Click(Sender: TObject);

begin

Messagedlg('Введите Ваши имя пользователя и пароль!',mtinformation,[mbOk],0);

end;

end.

Размещено на Allbest.ru