Версия 15:49, 18 апреля 2017

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, main_acnt

main_acnt := SeekRef( 'R143', r143_kod, 'MAINACNT', 1 )

if Left( main_acnt, 2 ) = '01' or Empty( main_acnt )
  if is_nal
    sql := [ Select EDSUM From MTUN] + Ret_f_ext( data ) + [ Where EDSUM > 0 and Left( BKACNT, 3 ) = '!01' and REFL = 'R143' and KOD = ] + r143_kod
  else
    sql := [ Select EDSUM From MTUN] + Ret_f_ext( data ) + [ Where EDSUM > 0 and Left( BKACNT, 2 ) = '01' and REFL = 'R143' and KOD = ] + r143_kod
  endif
else
  // нематериальные активы
  if is_nal
    sql := [ Select EDSUM From MTUN] + Ret_f_ext( data ) + [ Where EDSUM > 0 and Left( BKACNT, 3 ) = '!04' and REFL = 'R143' and KOD = ] + r143_kod
  else
    sql := [ Select EDSUM From MTUN] + Ret_f_ext( data ) + [ Where EDSUM > 0 and Left( BKACNT, 2 ) = '04' and REFL = 'R143' and KOD = ] + r143_kod
  endif
endif

_1 := SqlToArr( sql, { 'EDSUM' } )

if !IsEmpty( _1 )
  _1 := _1[1,1]
else
  _1 := 0
endif

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

REST_SUM

AMORT_SUM

Функции Delphi

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