Автоматизированное рабочее место бухгалтера "Учет основных средств"

Рефераты, курсовые, дипломные, контрольные (предпросмотр)

Тип: Дипломная работа. Файл: Word (.doc) в архиве zip. Категория: Информатика, IT
Адрес этого реферата http://referat-kursovaya.repetitor.info/?essayId=25171 или
Загрузить
В режиме предпросмотра не отображаются таблицы, графики и иллюстрации. Для получения полной версии нажмите кнопку «Загрузить». Рефераты, контрольные, дипломные, курсовые работы предоставляются в ознакомительных целях, не для плагиата.
Страница 3 из 20 [Всего 20 записей]« 1 2 3 4 5 » ... Последняя »

где:

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

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

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

По полностью самортизированным основным фондам начисление амортизации прекращается с первого числа месяца, следующего за последним месяцем, в котором стоимость этих фондов полностью была перенесена на стоимость продукции [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*DataModule1.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;

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

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;

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

DataModule1.Table6.Edit;

IF DataModule1.Table6Pol_iznos.ValueDataModule1.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.Table6Mes_amort.Value:=0;

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

DataModule1.Table6Ost_stoim.Value:=0;

End;

DataModule1.Table6.Post;

В случае если оборудование находится на ответственном хранении, на складе, то на него не начисляются суммы амортизационных отчислений.

Алгоритм расчета сумм амортизационных отчислений

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

1. Обнуляем переменную даты закрытия отчетного месяца.

2. Вводим значение даты закрытия отчетного месяца.

3. Переводим указатель записи базы данных "Osnova.DB", в начало таблицы.

4. Отключаем связь с таблицей "Uhastoc.DB".

5. Переводим таблицу "Osnova.DB" в монопольный режим.

6. Переводим таблицу в режим редактирования (Edit).

7. Проверяем если таблица пустая, если "ДА" то переходим к пункту (16), если "НЕТ", то переходим к пункту (8).

8. Проверяем конец таблицы, если "Да" то переходим к пункту (16), если "НЕТ", то переходим к пункту (9).

9. Проверяем, является запись запрещенной на перерасчет, если "ДА", то переходим к пункту (13), если "НЕТ", то переходим к пункту (10).

10. Проверяем, какой тип оборудования, если "Автотранспорт", то переходим к пункту (11), если "Обычный", то выполняем:

- определяем значение месячной амортизации, путем умножения балансовой стоимости оборудования на процент амортизации, полученное значение разделим на 12 и на 100;

- записываем полученное значение в таблицу;

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

- определяем значение суммы полной амортизации с начала эксплуатации, до отчетного месяца. Определим значение суммы, путем умножения значения месячной амортизации на полученное количество месяцев;

- записываем полученное значение в таблицу;

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

- запишем полученное значение в таблицу и переходим к пункту (11).

11. Проверяем, какой тип оборудования, если "Обычный", то переходим к пункту (11), если "Автотранспорт", то выполняем:

- определяем значение полной суммы амортизации, путем умножения балансовой стоимости на коэффициент 0,481, разделим полученное значение на 1000 и умножим на пробег автотранспорта;

- записываем полученное значение в таблицу;

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

- запишем полученное значение в таблицу и переходим к пункту (12).

12. Проверяем если значение суммы полной амортизации больше, чем балансовая стоимость, то:

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

- полный износ приравняем с балансовой стоимостью;

- значение остаточной стоимости приравняем к 0;

- запишем полученные данные в таблицу.

13. Проверяем если значение остаточной стоимости меньше чем 0, то:

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

- полный износ приравняем с балансовой стоимостью;

- значение остаточной стоимости приравняем к 0;

- запишем полученные данные в таблицу.

14. Переводим таблицу в режим сохранения данных (Post).

15. Перемещаем указатель базы данных на следующую запись.

16. Переходим к началу цикла. Пункт (8).

17. Снимаем с таблицы "Osnova.DB" монопольный режим.

18. Восстанавливаем связь с таблицей "Uhastoc.DB".

19. Завершаем процедуру расчета.

Порядок начисления сумм арендной платы

Так как все используемое оборудование является арендуемым, поэтому начисление сумм арендной платы производится от лица лизинговой компании, у которой данные основные фонды находятся на балансе [3], по формуле:

Аренда=((БалСтоим/100*Процент)+(БалСтоим/100*Процент)/100*КоэфИзн)/365*КолвоДней,

где:

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

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

- Процент - процент амортизации;

- КоэИзн - коэффициент на износ;

- КолвоДней - количество дней в месяце, на который производится расчет арендной стоимости.

Если на момент расчета арендной стоимости основные фонды находится на складе, то организация берет их на ответственное хранение. В этом случае расчет арендной стоимости будет исходить из того, где в настоящее время хранится оборудование (на открытой площадке, в холодном складе, в отапливаемом складе), исходя из этого, изменяется значение коэффициента арендных отчислений для оборудования находящегося в ответственном хранении [2]. Тогда формула расчета стоимости арендной платы будет выглядеть:

Аренда=КоэфОтвХран*Объем*КолвоДней,

где:

- КоэфОтвХран - коэффициент расчета арендной стоимости при ответственном хранении;

- Объем - объем занимаемый на складе;

- КолвоДней - количество дней в отчетном месяце.

Если нет возможности измерить объем в метрической системе измерения, применяют в качестве значения объема, значение в тоннах, которое указано в документации по оборудованию. В этом случае значения коэффициентов указываются для расчета со значениями веса.

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

DataModule1.Table6.Edit;

IF DataModule1.Table6Arenda.Value='Аренда' Then Begin

X:=DataModule1.Table6Bas_stoim.Value/100*DataModule1.Table6Procent.Value;

Y:=X/100*Coofic.AHMRealSpinEdit5.Value;

DataModule1.Table6SunAnda.Value:=(X+Y)/365*AHMSpinEdit1.Value;

End;

IF DataModule1.Table6Arenda.Value='Ответ-хранение' Then Begin

IF DataModule1.Table6Sclad.Value='1' Then X:=Coofic.AHMRealSpinEdit1.Value;

IF DataModule1.Table6Sclad.Value='2' Then X:=Coofic.AHMRealSpinEdit2.Value;

IF DataModule1.Table6Sclad.Value='3' Then X:=Coofic.AHMRealSpinEdit3.Value;

RSSСтраница 3 из 20 [Всего 20 записей]« 1 2 3 4 5 » ... Последняя »


При любом использовании материалов сайта обязательна гиперссылка на сайт «Репетитор».
Разработка и Дизайн компании Awelan
www.megastock.ru
Проверить аттестат