АРМ бухгалтера "Учет основных средств"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
°щается с первого числа месяца, следующего за последним месяцем, в котором стоимость этих фондов полностью была перенесена на стоимость продукции [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;
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;
DataModule1.Table6Bas_Stoim.ValueThenBegin">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.Value<0 Then Begin
DataModule1.Table6Mes_amort.Value:=0;
DataModule1.Table6Pol_iznos.Value:=DataModule1.Table6Bas_Stoim.Value;
DataModule1.Table6Ost_stoim.Value:=0;
End;
DataModule1.Table6.Post;
В случае если оборудование находится на ответственном хранении, на складе, то на него не начисляются суммы амортизационных отчислений.
5 Алгоритм расчета сумм амортизационных отчислений
Для расчета сумм амортизационных отчислений необходимо воспользоваться алгоритмом.
- Обнуляем переменную даты закрытия отчетного месяца.
- Вводим значение даты закрытия отчетного месяца.
- Переводим указатель записи базы данных Osnova.DB, в начало таблицы.
- Отключаем связь с таблицей Uhastoc.DB.
- Переводим таблицу Osnova.DB в монопольный режим.
- Переводим таблицу в режим редактирования (Edit).
- Проверяем если таблица пустая, если ДА то переходим к пункту (16), если НЕТ, то переходим к пункту (8).
- Проверяем конец таблицы, если Да то переходим к пункту (16), если НЕТ, то переходим к пункту (9).
- Проверяем, является запись запрещенной на перерасчет, если ДА, то переходим к пункту (13), если НЕТ, то переходим к пункту (10).
- Проверяем, какой тип оборудования, если Автотранспорт, то переходим к пункту (11), если Обычный, то выполняем:
- определяем значение месячной амортизации, путем умножения балансовой стоимости оборудования на процент амортизации, полученное значение разделим на 12 и на 100;
- записываем полученное значение в таблицу;
- вычисляем количество месяцев с момента введения в эксплуатацию, до отчетного месяца;
- определяем значение суммы полной амортизации с начала эксплуатации, до отчетного месяца. Определим значение суммы, путем умножения значения месячной амортизации на полученное количество месяцев;
- записываем полученное значение в таблицу;
- определяем значение остаточной стоимости, вычтя из балансовой стоимости значение суммы полной амортизации;
- запишем полученное значение в таблицу и переходим к пункту (11).
- Проверяем, какой тип оборудования, если Обычный, то переходим к пункту (11), если Автотранспорт, то выполняем:
- определяем значение полной суммы амортизации, путем умножения балансовой стоимости на коэффициент 0,481, разделим полученное значение на 1000 и умножим на пробег автотранспорта;
- записываем полученное значение в таблицу;
- определяем значение остаточной стоимости, вычтя из балансовой стоимости значение суммы полной амортизации;
- запишем полученное значение в таблицу и переходим к пункту (12).
- Проверяем если значение суммы полной амортизации больше, чем балансовая стоимость, то:
- обнулим значение месячной амортизации;
- полный износ приравняем с балансовой стоимостью;
- значение остаточной стоимости приравняем к 0;
- запишем полученные данные в таблицу.
- Проверяем если значение остаточной стоимости меньше чем 0, то:
- обнулим значение месячной амортизации;
- полный износ приравняем с балансовой стоимостью;
- значение остаточной стоимости приравняем к 0;
- запишем полученные данные в таблицу.
- Переводим таблицу в режим сохранения данных (Post).
- Перемещаем указатель базы данных на следующую запись.
- Переходим к началу цикла. Пункт (8).
- Снимаем с таблицы Osnova.DB монопольный режим.
- Восстанавливаем связь с таблицей Uhastoc.DB.
- Завершаем процедуру расчета.
6 Порядок начисления сумм арендной платы
Так как все используемое оборудование является арендуемым, поэтому начисление сумм арендной платы производится от лица лизинговой компании, у которой данные основные фонды находятся на балансе [3], по формуле:
Аренда=((БалСтоим/100*Процент)+(БалСтоим/100*Процент)/100*КоэфИзн)/365*КолвоДней,
где: