DOCSRET

Материал из Фабиус wiki
Перейти к: навигация, поиск

DOCSRET - это программа из справочника R266

По KINDDOC + LVLNUM возвращает клон таблицы,указывающий на требуемый уровень документа или NIL, если не таблица не найдена

DOCSRET( KINDDOC + LVLNUM, имя текущей таблицы = Alias() )

Используется исключительно в формулах проводок

Пример

( DOCSRET( 'PAC4' ) )->NATTR4 := ( DOCSRET( 'PAC4' ) )->NATTR4 + AMNT

Текст

Parameters KindLvl,CurAls:=Alias()
Local i,j
KindLvl:=Upper(KindLvl)
j:=Val(Right(CurAls,1))
Result:=nil
For i:=j to 1 Step -1
    if Upper(('DOCS'+i)->(KINDDOC+LVLNUM))=KindLvl
       Result:=GetArea('DOCS'+i)
       Exit
    End
Next

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

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

Функции Delphi