INITIAL COST — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «INITIAL_COST - это функция из справочника R266 Возвращает первоначальную стоимость основного…») |
(нет различий)
|
Версия 16:21, 9 августа 2016
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