DOCSRET — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 6: | Строка 6: | ||
( DocsRet( 'PAC4' ) )->NATTR4 := ( DocsRet( 'PAC4' ) )->NATTR4 + AMNT | ( 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 | ||
Версия 09:24, 29 июня 2016
Функция возвращает указатель на таблицу. 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
