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

7 Переоценка основных фондов

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

1. Если произошла деноминация рубля, после чего для всех основных фондов необходимо пересчитать балансовую стоимость, в этом случае пользуемся следующими формулами.

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

НовБалСтоим= БалСтоим+(БалСтоим/100*Коэффициент),

где:

- НовБалСтоим – балансовая стоимость после переоценки;

- БалСтоим – балансовая стоимость до переоценки;

- Коэффициент – коэффициент на переоценку оборудования.

Для случая если производится расчет на понижение стоимости:

НовБалСтоим= БалСтоим-(БалСтоим/100*Коэффициент),

где:

- НовБалСтоим – Балансовая стоимость после переоценки;

- БалСтоим – Балансовая стоимость до переоценки;

- Коэффициент – коэффициент на переоценку оборудования.

Для переоценки оборудования необходимо точно указать коэффициенты перерасчета для каждого типа оборудования (Здания, сооружения, автотранспорт и т.д.).

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

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

DataModule1.Table1.Active:=False;

DataModule1.Table13.First;

While not DataModule1.Table13.Eof Do DataModule1.Table13.Delete;

IF RadioButton1.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;

<