Титов Александр
Joined: 26 Jul 2002 Posts: 975 Location: Титов Александр Александрович Occupation: Компания БЭСТ Interests: Москва
|
Posted: 19 Oct 2004 08:52 Post subject: Re: Где взять синтаксис функции DbxEval? |
|
|
ewgen wrote: | Где взять синтаксис функции DbxEval? Если БЭСТ4 становится системой-конструктором, то почему нет документации? |
Доброе утро!
Это вспомогательная функция, которая выполняет те же операции (цикл по базе), что DbEval() , но только с запоминанием и восстановлением текущей рабочей области и выполнением bPost-блока кода после цикла.
На всякий случай привожу ее полный код:
Function DBxEval(cAli, xOrd, cFil, aScp, bProc, bFor, bWhile, bInit, bPost)
DBPush(cAli, xOrd, cFil, aScp)
If(N_Type(bInit, "B"),, Eval(bInit))
DBEval(bProc, bFor, bWhile)
If VALTYPE(bPost)=="B"
EVAL(bPost)
endif
DBPop()
Return (NIL) _________________ С уважением, Александр Титов, Компания БЭСТ, Москва, отдел разрабо |
|