Задания

Скачать 1.47 Mb.

Название	Задания
страница	7/32
Дата публикации	28.05.2015
Размер	1.47 Mb.
Тип	Дипломная работа

100-bal.ru > Бухгалтерия > Дипломная работа

1 2 3 4 5 6 7 8 9 10 ... 32

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;

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;

IF Koof<>0 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 Koof<>0 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 Koof<>0 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;

End;

1 2 3 4 5 6 7 8 9 10 ... 32

Похожие:

	Педагогическая технология Тестовые задания (ТЗ)- это минимальная законченная составляющая единица педагогического теста в виде проверочного задания специфической...		Правила составления тестовых заданий Тестовые задания (ТЗ)- это минимальная законченная составляющая единица педагогического теста в виде проверочного задания специфической...
	Урок алгебры в 10 классе. Учитель математики: Симонян С. М ...		Тестовая система нечеткого оценивания знаний по информатике Тестовые задания (ТЗ)- это минимальная законченная составляющая единица педагогического теста в виде проверочного задания специфической...
	Задания с выбором верного ответа чаще всего даются в повествовательной... Панов М. В. А все-таки она хорошая! Рассказ о русской орфографии. М., Просвещение,1964		Урок целей достиг Внедрять перспективные задания, дифференцировать задания по вариантам и по сложности
	Задания по физике Все задания выполнять в рабочих тетрадях (записывается число, тема по названию урока)		Блок «Химический элемент» В этом блоке представлены задания с выбором одного правильного ответа. Это задания А1 и А2
	Программа по формированию навыков безопасного поведения на дорогах... В классе 4 команды, каждой команде присваивается номер и выдается лист с вопросами и заданиями. На этом листе задания разбиты на...		Мбоу дод «Городская станция юных туристов» Нижеперечисленные задания необходимо выполнить в полном объеме, письменные задания предоставить для проверки
	Программа по формированию навыков безопасного поведения на дорогах... Дает задания найти в тексте ответы на поставленные вопросы. Задания выводятся на экран		Тестовые задания открытой формы Тестовые задания по дисциплине «Материаловедение и технология конструкционных материалов»
	Задания для самостоятельного выполнения Для успешной подготовки к сдаче итогового теста попробуйте выполнить задания по основным темам курса		Тестовые задания по теме «Перестройка и системный кризис в ссср»... Учебная дисциплина политология и политическая теория для студентов, обучающихся по направлениям подготовки
	Задания для самостоятельной работы 1 вариант Разработать презентационный... Эти тесты позволяют самым кратким путем выявить знание (незнание) школьником конкретного вопроса, понимание (непонимание) учебного...		Тема урока: «Повторяем фонетику и состав слова». Тип урока Оборудование: задания для работы в группах, карточки – дифференцированные задания, учебник, печатная тетрадь, проектор

Школьные материалы