INITIAL COST — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Текст программы) |
Hisava (обсуждение | вклад) м (→Смотрите также) |
||
| Строка 38: | Строка 38: | ||
= Смотрите также = | = Смотрите также = | ||
| + | |||
| + | [[AMORT_SUM]] | ||
| + | |||
[[Функции Delphi]] | [[Функции Delphi]] | ||
[[Полезные функции]] | [[Полезные функции]] | ||
Версия 11:31, 5 декабря 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
