INITIAL COST — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «INITIAL_COST - это функция из справочника R266 Возвращает первоначальную стоимость основного…») |
Hisava (обсуждение | вклад) м (→Текст программы) |
||
| Строка 21: | Строка 21: | ||
if is_nal | if is_nal | ||
sql := [ Select EDSUM ; | sql := [ Select EDSUM ; | ||
| − | From MTUN] + Ret_f_ext( data ) + [ ; | + | From MTUN] + [[Ret_f_ext]]( data ) + [ ; |
| − | Where Left( BKACNT, 3 ) = '!01' and REFL = 'R143' and KOD = ] + r143_kod | + | Where [[Left]]( BKACNT, 3 ) = '!01' and REFL = 'R143' and KOD = ] + r143_kod |
else | else | ||
sql := [ Select EDSUM ; | sql := [ Select EDSUM ; | ||
| − | From MTUN] + Ret_f_ext( data ) + [ ; | + | From MTUN] + [[Ret_f_ext]]( data ) + [ ; |
| − | Where Left( BKACNT, 2 ) = '01' and REFL = 'R143' and KOD = ] + r143_kod | + | Where [[Left]]( BKACNT, 2 ) = '01' and REFL = 'R143' and KOD = ] + r143_kod |
endif | endif | ||
| − | _1 := SqlToArr( sql, { 'EDSUM' } ) | + | _1 := [[SqlToArr]]( sql, { 'EDSUM' } ) |
| − | if !IsEmpty( _1 ) | + | if ![[IsEmpty]]( _1 ) |
_1 := _1[1,1] | _1 := _1[1,1] | ||
else | else | ||
_1 := 0 | _1 := 0 | ||
endif | endif | ||
Версия 10:01, 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
