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*КолвоДней,
где:
Аренда - стоимость арендной платы за месяц;
БалСтоим - балансовая стоимость оборудования;
Процент - процент амортизации;
КоэИзн - коэффициент на износ;
КолвоДней - количество дней в месяце, на который производится расчет арендной стоимости.
Если на момент расчета арендной стоимости основные фонды находится на складе, то организация берет их на ответственное хранение. В этом случае расчет арендной стоимости будет исходить из того, где в настоящее время хранится оборудование (на открытой площадке, в холодном складе, в отапливаемом складе), исходя из этого, изменяется значение коэффициента арендных отчислений для оборудования находящегося в ответственном хранении [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;
IF DataModule1.Table6Sclad.Value='4' Then X:=Coofic.AHMRealSpinEdit4.Value;
DataModule1.Table6SunAnda.Value:=X*DataModule1.Table6KovMetr.Value*AHMSpinEdit1.Value;
End;
DataModule1.Table6.Post; Полученные отчеты по арендной стоимости на оборудование направляются в подразделения, арендующие основные фонды и копия отправляется в лизинговую компанию, у которой непосредственно числится данное оборудование. Счета на оплату подаются в общей суммой с реестром оборудования в каждое подразделение.
В случае если оборудование начинают использовать в организациях субподрядчиках, с этого момента происходит расходование оборудования с баланса УПТК ОАО «Бамтоннельстрой», в лизинговую компанию, которая и будет являться организацией арендодателем.
|