Текущая версия на 10:40, 2 октября 2019

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

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

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

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

Пример

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

( docsret( 'mtr1' ) )->rmtrgnum := 1

@@ Строка 1: / Строка 1: @@
-Функция возвращает указатель на таблицу. DocsRet используется исключительно в формулах проводок.
+[[DOCSRET]] - это программа из справочника [[R266]]
+ По KINDDOC + LVLNUM возвращает клон таблицы, указывающий на требуемый уровень документа или NIL, если не таблица не найдена
+[[DOCSRET]]( KINDDOC + LVLNUM, имя текущей таблицы = Alias() )
+ Используется исключительно в формулах проводок
+= Пример =
+( [[DOCSRET]]( 'PAC4' ) )->NATTR4 := ( [[DOCSRET]]( 'PAC4' ) )->NATTR4 + AMNT
+ ( docsret( 'mtr1' ) )->rmtrgnum := 1
- DocsRet( KINDDOC + LVLNUM, имя текущей таблицы = Alias() )
+= Смотрите также =
+[[Полезные функции]]
-= Примеры =
+[[Функции Delphi]]
-( 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