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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Hisava переименовал страницу FitRefl в FITREFL)
м
Строка 1: Строка 1:
[[FitRefl]] - это функция из справочника [[R266]]
+
[[FITREFL]] - это функция из справочника [[R266]]
 
  Функция возвращает имя справочника, если этот справочник может быть ( в соответствии с планом счетов ) в текущей аналитике проводки
 
  Функция возвращает имя справочника, если этот справочник может быть ( в соответствии с планом счетов ) в текущей аналитике проводки
FITREFL( Имя справочника,  логический результат (по умолчанию - имя справочника) )
+
[[FITREFL]]( Имя справочника,  логический результат (по умолчанию - имя справочника) )
  
 
Если этого справочника быть не может, то возвращает пустую строку
 
Если этого справочника быть не может, то возвращает пустую строку

Версия 15:30, 21 мая 2018

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

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

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