Версия 12:56, 7 ноября 2016

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

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