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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Смотрите также)
м (Пример)
 
(не показано 5 промежуточных версий этого же участника)
Строка 1: Строка 1:
FitRefl - это функция из справочника [[R266]]
+
[[FITREFL]] - это функция из справочника [[R266]]
 
+
Функция возвращает имя справочника, если этот справочник может быть ( в соответствии с планом счетов ) в текущей аналитике проводки
Функция возвращает имя справочника, если этот справочник может быть ( в соответствии с планом счетов ) в текущей аналитике проводки
+
[[FITREFL]]( Имя справочника,  логический результат (по умолчанию - имя справочника) )
  
 
Если этого справочника быть не может, то возвращает пустую строку
 
Если этого справочника быть не может, то возвращает пустую строку
 
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' )
FitRefl( 'R267' )
+
  
 
= Смотрите также =
 
= Смотрите также =

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

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

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

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

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

Пример

fitrefl( 'R267' )

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

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

Функции Delphi