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

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование

?ициент на износ;

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

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

    где:

    1. КоэфОтвХран - коэффициент расчета арендной стоимости при ответственном хранении;
    2. Объем - объем занимаемый на складе;
    3. КолвоДней - количество дней в отчетном месяце.

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

    Вариант реализации расчетов на языке 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;

     

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

    В случае если оборудование начинают использовать в организациях субподрядчиках, с этого момента происходит расходование оборудования с баланса УПТК ОАО Бамтоннельстрой, в лизинговую компанию, которая и будет являться организацией арендодателем.

     

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

     

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

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

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

     

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

    где:

    1. НовБалСтоим балансовая стоимость после переоценки;
    2. БалСтоим балансовая стоимость до переоценки;
    3. Коэффициент коэффициент на переоценку оборудования.

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

     

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

    где:

    1. НовБалСтоим Балансовая стоимость после переоценки;
    2. БалСтоим Балансовая стоимость до переоценки;
    3. Коэффициент коэффициент на переоценку оборудования.

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

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

    Вариант реализации расчетов на языке 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;

    IF DataModule1.Table6Kod.Value=4 Then Koof:=AHMRealSpinEdit4.Value;

    IF DataModule1.Table6Kod.Value=5 Then Koof:=AHMRealSpinEdit5.Value;

    IF DataModule1.Table6Kod.Value=6 Then Koof:=AHMRealSpinEdit6.Value;

    IF DataModule1.Table6Kod.Value=7 Then Koof:=AHMRealSpinEdit7.Value;

    IF DataModule1.Table6Kod.Value=8 Then Koof:=AHMRealSpinEdit8.Value;

    IF DataModule1.Table6Kod.Value=9 Then Koof:=AHMRealSpinEdit9.Value;

    IF Koof<>0 Then Begin

    DataModule1.Table13.Append;

    DataModule1.Table6.Edit;

    DataModule1.Table13.FieldByName(Old_Stoim).AsFloat:=DataModule1.Table6Bas_stoim.Value;

    PolZnac:=DataModule1.Table6Bas_stoim.Value/100*Koof;

    DataModule1.Table6Bas_stoim.Value:=DataModule1.Table6Bas_stoim.Value+PolZnac;

    DataModule1.Table13.FieldByName(New_Stoim).AsFloat:=DataModule1.Table6Bas_stoim.Value;

    DataModule1.Table13.FieldByName(Inventar).AsString:=DataModule1.Table6Inventar.Value;

    DataModule1.Table13.FieldByName(Uhastoc).AsString:=DataModule1.Table6Uhastoc.Value;

    DataModule1.Table13.FieldByName(DataRash).AsDateTime:=Date;

    DataModule1.Table13.Post;

    DataModule1.Table6.Post;

    End;

    DataModule1.Table6.Next;

    End;

    DataModule1.Table9.First;

    While not DataModule1.Table9.EOF Do Begin

    IF DataModule1.Table9Kod.Value=1 Then Koof:=AHMRealSpinEdit1.Value;

    IF DataModule1.Table9Kod.Value=2 Then Koof:=AHMRealSpinEdit2.Value;

    IF DataModule1.Table9Kod.Value=3 Then Koof:=AHMRealSpinEdit3.Value;

    IF DataModule1.Table9Kod.Value=4 Then Koof:=AHMRealSpinEdit4.Value;

    IF DataModule1.Table9Kod.Value=5 Then Koof:=AHMRealSpinEdit5.Value;

    IF DataModule1.Table9Kod.Value=6 Then Koof:=AHMRealSpinEdit6.Value;

    IF DataModule1.Table9Kod.Value=7 Then Koof:=AHMRealSpinEdit7.Value;

    IF DataModule1.Table9Kod.Value=8 Then Koof:=AHMRealSpinEdit8.Value;

    IF DataModule1.Table9Kod.Value=9 Then Koof:=AHMRealSpinEdit9.Value;