INITIAL COST — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст программы)
м
 
(не показано 5 промежуточных версий этого же участника)
Строка 1: Строка 1:
INITIAL_COST - это функция из справочника [[R266]]
+
[[INITIAL_COST]] - это функция из справочника [[R266]]
 
+
Возвращает первоначальную стоимость основного средства
Возвращает первоначальную стоимость основного средства
+
[[INITIAL_COST]]( r143_kod,  data,  is_nal := false )
 
+
INITIAL_COST( r143_kod,  data,  is_nal := false )
+
  
 
r143_kod - код основного средства
 
r143_kod - код основного средства
Строка 11: Строка 9:
 
is_nal - логический параметр, по умолчанию false, т.е. бухгалтерский учет
 
is_nal - логический параметр, по умолчанию false, т.е. бухгалтерский учет
  
Eсли is_nal = true, то функция возвращает первоначальную стоимость по налоговому учету ( счет !01 )
+
Если 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
+
 
+
 
= Смотрите также =
 
= Смотрите также =
 +
[[AMORT_SUM]]
  
 
[[REST_SUM]]
 
[[REST_SUM]]
 
[[AMORT_SUM]]
 
 
[[Функции Delphi]]
 
 
[[Полезные функции]]
 

Текущая версия на 13:46, 23 марта 2020

INITIAL_COST - это функция из справочника R266

Возвращает первоначальную стоимость основного средства

INITIAL_COST( r143_kod, data, is_nal := false )

r143_kod - код основного средства

data - дата

is_nal - логический параметр, по умолчанию false, т.е. бухгалтерский учет

Если is_nal = true, то функция возвращает первоначальную стоимость по налоговому учету ( счет !01 )

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

AMORT_SUM

REST_SUM