Версия 11:29, 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

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

Функции Delphi

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