Реферат: АРМ бухгалтера Учет основных средств
DataModule 1. Table 6. Edit ;
DataModule1.Table6Pol_iznos.Value:=(DataModule1.Table6Bas_Stoim.Value*0.481)/1000*DataModule1.Table6KMetrash.Value;
DataModule1.Table6Ost_stoim.Value:=StrToFloat(FormatFloat('0.00',DataModule1.Table6Bas_Stoim.Value-DataModule1.Table6Pol_iznos.Value));
DataModule1.Table6.Post;
3. В случае если оборудование полностью самортизировало:
DataModule1.Table6.Edit;
IF DataModule1.Table6Pol_iznos.Value>DataModule1.Table6Bas_Stoim.Value Then Begin
DataModule1.Table6Mes_amort.Value:=0;
DataModule1.Table6Pol_iznos.Value:=DataModule1.Table6Bas_Stoim.Value;
DataModule1.Table6Ost_stoim.Value:=0;
End;
IF DataModule1.Table6Ost_Stoim.Value<0 Then Begin
DataModule1.Table6Mes_amort.Value:=0;
DataModule1.Table6Pol_iznos.Value:=DataModule1.Table6Bas_Stoim.Value;
DataModule1.Table6Ost_stoim.Value:=0;
End;
DataModule1.Table6.Post;
В случае если оборудование находится на ответственном хранении, на складе, то на него не начисляются суммы амортизационных отчислений.
5 Алгоритм расчета сумм амортизационных отчислений
Для расчета сумм амортизационных отчислений необходимо воспользоваться алгоритмом.
1. Обнуляем переменную даты закрытия отчетного месяца.
2. Вводим значение даты закрытия отчетного месяца.
3. Переводим указатель записи базы данных «Osnova.DB», в начало таблицы.
4. Отключаем связь с таблицей «Uhastoc.DB».
5. Переводим таблицу «Osnova.DB» в монопольный режим.
6. Переводим таблицу в режим редактирования (Edit).
7. Проверяем если таблица пустая, если «ДА» то переходим к пункту (16), если «НЕТ», то переходим к пункту (8).
8. Проверяем конец таблицы, если «Да» то переходим к пункту (16), если «НЕТ», то переходим к пункту (9).
9. Проверяем, является запись запрещенной на перерасчет, если «ДА», то переходим к пункту (13), если «НЕТ», то переходим к пункту (10).