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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст программы)
м (Пример)
 
(не показано 8 промежуточных версий этого же участника)
Строка 1: Строка 1:
FitRefl - это функция из справочника [[R266]]
+
[[FITREFL]] - это функция из справочника [[R266]]
 
+
Функция возвращает имя справочника, если этот справочник может быть ( в соответствии с планом счетов ) в текущей аналитике проводки
Функция возвращает имя справочника, если этот справочник может быть ( в соответствии с планом счетов ) в текущей аналитике проводки
+
[[FITREFL]]( Имя справочника,  логический результат (по умолчанию - имя справочника) )
  
 
Если этого справочника быть не может, то возвращает пустую строку
 
Если этого справочника быть не может, то возвращает пустую строку
 +
= Пример =
 +
fitrefl( 'R267' )
  
FITREFL( Имя справочника,  логический результат (по умолчанию - имя справочника) )
+
= Смотрите также =
 
+
[[Полезные функции]]
= Текст программы =
+
 
+
Parameters Refl,bool:=.f.
+
Local arr
+
iif(bool,result:=.f.,result:='')
+
if Valtype(Refl)<>'C' or ( _CurKIND='D' .and. Empty( _DEBT ) ) .or. ( _CurKIND='K' .and. Empty( _KRED ) )
+
  return
+
endif
+
arr:=WhatRefls(iif(_CurKIND='D',AllTrim(_DEBT),AllTrim(_KRED)),,Str(_CURANAL),,,.t.)
+
  if ValType(arr)='A' .and. ASCANE(arr , AllTrim(Upper(Refl)))>0
+
    if bool
+
    iif( ASCANE(arr , AllTrim(Upper(Refl)))>0,Result:=.t.,Result:=.f.)
+
    else
+
    iif( ASCANE(arr , AllTrim(Upper(Refl)))>0,Result:=Refl,Result:='')
+
    endif
+
  endif
+
 
+
= Примеры =
+
  
FitRefl( 'R267' )
+
[[Функции Delphi]]

Текущая версия на 07:57, 11 февраля 2020

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

Функция возвращает имя справочника, если этот справочник может быть ( в соответствии с планом счетов ) в текущей аналитике проводки

FITREFL( Имя справочника, логический результат (по умолчанию - имя справочника) )

Если этого справочника быть не может, то возвращает пустую строку

Пример

fitrefl( 'R267' )

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

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

Функции Delphi