FITREFL — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Текст программы) |
||
| Строка 7: | Строка 7: | ||
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, 26 июля 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' )
