INITIAL COST
Материал из Фабиус wiki
Версия от 16:21, 9 августа 2016; Hisava (обсуждение | вклад) (Новая страница: «INITIAL_COST - это функция из справочника R266 Возвращает первоначальную стоимость основного…»)
INITIAL_COST - это функция из справочника R266
Возвращает первоначальную стоимость основного средства
INITIAL_COST( r143_kod, data, is_nal := false )
r143_kod - код основного средства
data - дата
is_nal - логический параметр, по умолчанию false, т.е. бухгалтерский учет
Eсли is_nal = true, то функция возвращает первоначальную стоимость по налоговому учету ( счет !01 )
Текст программы
parameters r143_kod, data, is_nal := false
local _1, sql
if is_nal
sql := [ Select EDSUM ;
From MTUN] + Ret_f_ext( data ) + [ ;
Where Left( BKACNT, 3 ) = '!01' and REFL = 'R143' and KOD = ] + r143_kod
else
sql := [ Select EDSUM ;
From MTUN] + Ret_f_ext( data ) + [ ;
Where Left( BKACNT, 2 ) = '01' and REFL = 'R143' and KOD = ] + r143_kod
endif
_1 := SqlToArr( sql, { 'EDSUM' } )
if !IsEmpty( _1 )
_1 := _1[1,1]
else
_1 := 0
endif
