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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м
Строка 1: Строка 1:
 
[[DOCSRET]] - это программа из справочника [[R266]]
 
[[DOCSRET]] - это программа из справочника [[R266]]
  По KINDDOC + LVLNUM возвращает клон таблицы,указывающий на требуемый уровень документа или NIL, если не таблица не найдена.
+
  По 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

Версия 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