AMORT SUM — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Смотрите также) |
||
| Строка 38: | Строка 38: | ||
= Смотрите также = | = Смотрите также = | ||
| + | [[Полезные функции]] | ||
| − | [[ | + | [[Функции Delphi]] |
[[INITIAL_COST]] | [[INITIAL_COST]] | ||
| − | [[ | + | [[REST_SUM]] |
| − | + | ||
| − | + | ||
Версия 15:59, 18 апреля 2017
AMORT_SUM - это функция из справочника R266
Возвращает сумму начисленной амортизации
AMORT_SUM( r143_kod, data )
Сумма начисленной амортизации
r143_kod - код основного средства
data - дата, на которую необходимо определить сумму начисленной амортизации
is_nal - логический параметр, по умолчанию false, т.е. бухгалтерский учет
Текст функции
parameters r143_kod, data, is_nal := false
local _2, sql
if is_nal
sql := [ Select EKSUM ;
From MTUN] + Ret_f_ext( data ) + [ ;
Where Left( BKACNT, 3 ) = '!02' and REFL = 'R143' and KOD = ] + r143_kod
else
sql := [ Select EKSUM ;
From MTUN] + Ret_f_ext( data ) + [ ;
Where Left( BKACNT, 2 ) = '02' and REFL = 'R143' and KOD = ] + r143_kod
endif
_2 := SqlToArr( sql, { 'EKSUM' } )
if !IsEmpty( _2 )
result := _2[1,1]
else
result := 0
endif
