НАУЧНЫЕ РАБОТЫ

АРМ бухгалтера Учет основных средств

производственных мероприятий, обеспечивающих ее эффективное

распространение.

Информация и, особенно, ее автоматизированная обработка, является

важным фактором повышения эффективности производства.

Важную роль в исполнении информации играют способы ее регистрации,

обработки, накопления и передачи, систематизированное хранение информации и

выдача ее в требуемой форме, производство новой числовой и иной информации.

В современных условиях в крупных организациях созданы и эффективно

действуют информационные системы, обслуживающие процесс подготовки и

принятия бухгалтерских и управленческих решений, и решающие следующие

задачи: обработка данных, обработка информации.

Для определения эффективности внутрифирменной системы управления на

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

отношение получаемой прибыли к затратам на технические средства и

обеспечение функционирования внутрифирменной системы информации.

3.3 Основные принципы, цели, задачи и функции внутрифирменной системы

информации

Основными принципами и целями внутрифирменных систем информации

являются:

- определение требований к содержанию информации и к ее характеру,

в зависимости от целенаправленности;

- выработка системы хранения, использования и предоставления

информации в централизованном и децентрализованном управлении;

- определение потребностей в технических средствах (в том числе, в

компьютерной технике) на предприятии в целом;

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

банков данных;

- автоматизированная обработка вводимой и текущей информации и

выдача информации по бухгалтерскому учету и отделов технического

оснащения;

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

использования компьютерной техники.

Важными задачами внутрифирменной системы управления являются:

- координация деятельности по сбору и обработке данных финансовых

отчетов на высшем уровне управления и в производственных

отделениях в целях повышения качества и своевременности

поступления финансовой информации по предприятию в целом;

- определение основных направлений системы сбора, обработки и

хранения первичных данных;

- определение основных направлений развития технологии обработки

информации.

Определение потребностей каждого руководителя в необходимой ему

конкретной информации - чрезвычайно сложная задача, и ее решение зависит от

опыта и функций руководителя, а также, от его полномочий в принятии

управленческих решений.

Оснащение электронной техникой позволяет экономить управленческие и

накладные расходы, значительно повышает эффективность проектно-

конструкторских работ, обеспечивает эффективное внутрифирменное

планирование.

4 Порядок начисления амортизационных отчислений

Возмещение балансовой стоимости (первоначальной или

восстановительной) стоимости основных фондов предприятий осуществляется

путем включения амортизационных отчислений по утвержденным единым нормам в

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

справка о стоимости указанных объектов или их частей по данным учета

капитальных вложений [1]. Формула расчета суммы амортизационных отчислений

на основные фонды.

1. Месячная амортизация:

МесАморт=(БалСтоим*Процент)/12/100,

где:

- МесАморт - месячная амортизация;

- БалСтоим - балансовая стоимость основных фондов;

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

оборудования.

Данная формула рассчитывает сумму амортизационных отчислений на один

месяц, далее подсчитывается полная сумма амортизационных отчислений со дня

введения оборудования в эксплуатацию, по текущий отчетный месяц.

2. Полная сумма амортизационных отчислений:

ПолнАморт=МесАморт*КолвоМес,

где:

- ПолнАморт - полная сумма амортизационных отчислений;

- МесАморт - сумма месячной амортизации;

- КолвоМес - количество месяцев с момента введения в эксплуатацию

оборудования, до текущего отчетного месяца.

3. Остаточная стоимость:

ОстСтоим=БалСтоим-ПолАморт,

где:

- ОстСтоим - остаточная стоимость;

- БалСтоим - балансовая стоимость основных фондов;

- ПолнАморт - полная сумма амортизационных отчислений.

Начисление амортизационных отчислений по основным фондам, по вновь

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

месяцем их введения в эксплуатацию, а по выбывшим основным фондам –

прекращается с первого числа месяца, следующим за месяцем выбытия [2].

Для расчета суммы амортизационных отчислений для подвижного состава

автомобильного транспорта, по которому начисление амортизации на реновацию

производится по нормам, определенным в процентах от стоимости автомашины,

отнесенной к 1000 километрам фактического пробега.

4. Полная стоимость амортизации для автотранспорта:

ПолнАморт=(БалСтоим*0,481)/1000*КМ,

где:

- ПолнАморт - полная стоимость амортизационных отчислений со дня

введения автотранспортного средства в эксплуатацию;

- БалСтоим - балансовая стоимость;

- КМ - фактическое значение пробега.

По полностью самортизированным основным фондам начисление амортизации

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

котором стоимость этих фондов полностью была перенесена на стоимость

продукции [1].

Вариант реализации расчетов на языке Pascal:

1. Обычное оборудование (не являющееся автотранспортным средством):

DataModule1.Table6.Edit;

MonthIn:=StrToInt(Copy(DateTimeToStr(DataModule1.Table6Data_vvod.Value),4,2)

);

YearIn:=StrToInt(Copy(DateTimeToStr(DataModule1.Table6Data_vvod.Value),7,4))

;

YearOut:=StrToInt(AHMSpinEdit1.Text);

SumMonth:=(YearOut-YearIn)*12+(MesNumber-MonthIn);

DataModule1.Table6Mes_amort.Value:=StrToFloat(FormatFloat('0.00',DataModule1

.Table6Procent.Value*DataModule1.Table6Bas_Stoim.Value/12/100));

DataModule1.Table6Pol_iznos.Value:=StrToFloat(FormatFloat('0.00',SumMonth*Da

taModule1.Table6Mes_amort.Value));

DataModule1.Table6Ost_stoim.Value:=StrToFloat(FormatFloat('0.00',DataModule1

.Table6Bas_Stoim.Value-DataModule1.Table6Pol_iznos.Value-

DataModule1.Table6Old_amortiz.Value));

DataModule1.Table6.Post;

2. Автотранспортное средство:

DataModule1.Table6.Edit;

DataModule1.Table6Pol_iznos.Value:=(DataModule1.Table6Bas_Stoim.Value*0.481)

/1000*DataModule1.Table6KMetrash.Value;

DataModule1.Table6Ost_stoim.Value:=StrToFloat(FormatFloat('0.00',DataModule1

.Table6Bas_Stoim.Value-DataModule1.Table6Pol_iznos.Value));

DataModule1.Table6.Post;

3. В случае если оборудование полностью самортизировало:

DataModule1.Table6.Edit;

IF DataModule1.Table6Pol_iznos.Value>DataModule1.Table6Bas_Stoim.Value Then

Begin

DataModule1.Table6Mes_amort.Value:=0;

DataModule1.Table6Pol_iznos.Value:=DataModule1.Table6Bas_Stoim.Value;

DataModule1.Table6Ost_stoim.Value:=0;

End;

IF DataModule1.Table6Ost_Stoim.Value0 Then Begin

DataModule1.Table13.Append;

DataModule1.Table6.Edit;

DataModule1.Table13.FieldByName('Old_Stoim').AsFloat:=DataModule1.Table6Bas_

stoim.Value;

PolZnac:=DataModule1.Table6Bas_stoim.Value/100*Koof;

DataModule1.Table6Bas_stoim.Value:=DataModule1.Table6Bas_stoim.Value+PolZnac

;

DataModule1.Table13.FieldByName('New_Stoim').AsFloat:=DataModule1.Table6Bas_

stoim.Value;

DataModule1.Table13.FieldByName('Inventar').AsString:=DataModule1.Table6Inve

ntar.Value;

DataModule1.Table13.FieldByName('Uhastoc').AsString:=DataModule1.Table6Uhast

oc.Value;

DataModule1.Table13.FieldByName('DataRash').AsDateTime:=Date;

DataModule1.Table13.Post;

DataModule1.Table6.Post;

End;

DataModule1.Table6.Next;

End;

DataModule1.Table9.First;

While not DataModule1.Table9.EOF Do Begin

IF DataModule1.Table9Kod.Value='1' Then Koof:=AHMRealSpinEdit1.Value;

IF DataModule1.Table9Kod.Value='2' Then Koof:=AHMRealSpinEdit2.Value;

IF DataModule1.Table9Kod.Value='3' Then Koof:=AHMRealSpinEdit3.Value;

IF DataModule1.Table9Kod.Value='4' Then Koof:=AHMRealSpinEdit4.Value;

IF DataModule1.Table9Kod.Value='5' Then Koof:=AHMRealSpinEdit5.Value;

IF DataModule1.Table9Kod.Value='6' Then Koof:=AHMRealSpinEdit6.Value;

IF DataModule1.Table9Kod.Value='7' Then Koof:=AHMRealSpinEdit7.Value;

IF DataModule1.Table9Kod.Value='8' Then Koof:=AHMRealSpinEdit8.Value;

IF DataModule1.Table9Kod.Value='9' Then Koof:=AHMRealSpinEdit9.Value;

IF Koof<>0 Then Begin

DataModule1.Table13.Append;

DataModule1.Table9.Edit;

DataModule1.Table13.FieldByName('Old_Stoim').AsFloat:=DataModule1.Table9Bal_

stoim.Value;

PolZnac:=DataModule1.Table9Bal_stoim.Value/100*Koof;

DataModule1.Table9Bal_stoim.Value:=DataModule1.Table9Bal_stoim.Value+PolZnac

;

DataModule1.Table13.FieldByName('New_Stoim').AsFloat:=DataModule1.Table9Bal_

stoim.Value;

DataModule1.Table13.FieldByName('Inventar').AsString:=DataModule1.Table9Inve

ntar.Value;

DataModule1.Table13.FieldByName('Uhastoc').AsString:=DataModule1.Table9Uhast

oc.Value;

DataModule1.Table13.FieldByName('DataRash').AsDateTime:=Date;

DataModule1.Table13.Post;

DataModule1.Table9.Post;

End;

DataModule1.Table9.Next;

End;

IF RadioButton2.Checked=True Then Begin

DataModule1.Table6.First;

While not DataModule1.Table6.EOF Do Begin

IF DataModule1.Table6Kod.Value='1' Then Koof:=AHMRealSpinEdit1.Value;

IF DataModule1.Table6Kod.Value='2' Then Koof:=AHMRealSpinEdit2.Value;

IF DataModule1.Table6Kod.Value='3' Then Koof:=AHMRealSpinEdit3.Value;

IF DataModule1.Table6Kod.Value='4' Then Koof:=AHMRealSpinEdit4.Value;

IF DataModule1.Table6Kod.Value='5' Then Koof:=AHMRealSpinEdit5.Value;

IF DataModule1.Table6Kod.Value='6' Then Koof:=AHMRealSpinEdit6.Value;

IF DataModule1.Table6Kod.Value='7' Then Koof:=AHMRealSpinEdit7.Value;

IF DataModule1.Table6Kod.Value='8' Then Koof:=AHMRealSpinEdit8.Value;

IF DataModule1.Table6Kod.Value='9' Then Koof:=AHMRealSpinEdit9.Value;

IF Koof<>0 Then Begin

DataModule1.Table13.FieldByName('Old_Stoim').AsFloat:=DataModule1.Table6Bas_

stoim.Value;

DataModule1.Table6.Edit;

PolZnac:=DataModule1.Table6Bas_stoim.Value/100*Koof;

DataModule1.Table6Bas_stoim.Value:=DataModule1.Table6Bas_stoim.Value-

PolZnac;