Реферат: АРМ бухгалтера Учет основных средств
Аренда=((БалСтоим/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;
Полученные отчеты по арендной стоимости на оборудование направляются в подразделения, арендующие основные фонды и копия отправляется в лизинговую компанию, у которой непосредственно числится данное оборудование. Счета на оплату подаются в общей суммой с реестром оборудования в каждое подразделение.