Автоматизированное рабочее место бухгалтера "Учет основных средств"

Рефераты, курсовые, дипломные, контрольные (предпросмотр)

Тип: Дипломная работа. Файл: Word (.doc) в архиве zip. Категория: Информатика, IT
Адрес этого реферата http://referat-kursovaya.repetitor.info/?essayId=25171 или
Загрузить
В режиме предпросмотра не отображаются таблицы, графики и иллюстрации. Для получения полной версии нажмите кнопку «Загрузить». Рефераты, контрольные, дипломные, курсовые работы предоставляются в ознакомительных целях, не для плагиата.
Страница 4 из 20 [Всего 20 записей]« Первая ... « 2 3 4 5 6 » ... Последняя »

IF DataModule1.Table6Sclad.Value='4' Then X:=Coofic.AHMRealSpinEdit4.Value;

DataModule1.Table6SunAnda.Value:=X*DataModule1.Table6KovMetr.Value*AHMSpinEdit1.Value;

End;

DataModule1.Table6.Post;

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

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

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

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

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;

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 Koof0 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;

IF Koof0 Then Begin

DataModule1.Table13.Append;

DataModule1.Table9.Edit;

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

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

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

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

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

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

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

DataModule1.Table13.Post;

DataModule1.Table9.Post;

End;

DataModule1.Table9.Next;

End;

End;

IF RadioButton2.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 Koof0 Then Begin

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

DataModule1.Table6.Edit;

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;

IF Koof0 Then Begin

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

DataModule1.Table9.Edit;

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

DataModule1.Table9Bal_stoim.Value:=DataModule1.Table9Bal_stoim.Value-PolZnac;

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

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

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

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

DataModule1.Table13.Post;

DataModule1.Table9.Post;

End;

DataModule1.Table9.Next;

RSSСтраница 4 из 20 [Всего 20 записей]« Первая ... « 2 3 4 5 6 » ... Последняя »


При любом использовании материалов сайта обязательна гиперссылка на сайт «Репетитор».
Разработка и Дизайн компании Awelan
www.megastock.ru
Проверить аттестат