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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Hisava переименовал страницу DocsRet в DOCSRET поверх перенаправления)
м
Строка 1: Строка 1:
Функция возвращает указатель на таблицу. DocsRet используется исключительно в формулах проводок.  
+
[[DOCSRET]] - это программа из справочника [[R266]]
 
+
По KINDDOC + LVLNUM возвращает клон таблицы,указывающий на требуемый уровень документа или NIL, если не таблица не найдена.
DocsRet( KINDDOC + LVLNUM, имя текущей таблицы = Alias() )
+
[[DOCSRET]]( KINDDOC + LVLNUM, имя текущей таблицы = Alias() )
 
+
Используется исключительно в формулах проводок.
= Примеры =
+
= Пример =
 
+
( [[DOCSRET]]( 'PAC4' ) )->NATTR4 := ( [[DOCSRET]]( 'PAC4' ) )->NATTR4 + AMNT
( DocsRet( 'PAC4' ) )->NATTR4 := ( DocsRet( 'PAC4' ) )->NATTR4 + AMNT
+
= Текст =
 
+
Parameters KindLvl,CurAls:=Alias()
= Текст программы =
+
 
+
Parameters KindLvl,CurAls:=Alias()
+
 
  Local i,j
 
  Local i,j
 
  KindLvl:=Upper(KindLvl)
 
  KindLvl:=Upper(KindLvl)
Строка 20: Строка 17:
 
     End
 
     End
 
  Next
 
  Next
 +
= Смотрите также =
 +
[[Полезные функции]]
  
= Смотрите также =
 
 
[[Функции Delphi]]
 
[[Функции Delphi]]
 
[[Полезные функции]]
 

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

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