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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст программы)
м (Hisava переименовал страницу DocsRet в DOCSRET поверх перенаправления)
(нет различий)

Версия 10:34, 25 июля 2017

Функция возвращает указатель на таблицу. DocsRet используется исключительно в формулах проводок.

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

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