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

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

Версия 11:17, 13 мая 2017

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