Версия 11:33, 5 декабря 2016

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

Смотрите также

INITIAL_COST

Функции Delphi

Полезные функции