* ------------------------------------------------ * 
 FUNC DbViewByArray(nTop,nLeft,nBottom,nRight,; 
                    cValues,cProcName,aRecNumbers,nPos) 
 LOCAL i,bValues 
  
 DEFAULT nPos TO 1 
  
 PRIV dbv_more:=TRUE,txt,rxn 
 PRIV user_func:=cProcName 
  
  IF EMPTY(cValues) .OR. EMPTY(cProcName) 
   ShowAlert("DbViewByArray: No Parameters.") 
   RETURN 
  ELSEIF (VALTYPE(aRecNumbers) # "A") .OR. (LEN(aRecNumbers) = 0) 
   ShowAlert("DbViewByArray: нет записей") 
   RETURN 
  ENDI 
  
  bValues := {||&cValues} // блок кода для ускорения работы 
  rxn     := aRecNumbers  // сразу копируем ссылку на массив 
  
  DO WHILE dbv_more ////////////////////////////////////////////////// осн.цикл 
  
   txt:=ARRAY(LEN(aRecNumbers)) 
   FOR i:=1 TO LEN(aRecNumbers) 
    GO aRecNumbers[ i ] 
    txt[ i ] := EVAL(bValues) 
   NEXT i 
  
   @ nTop+LEN(txt),nLeft CLEAR TO nBottom,nRight       // очистка конца экрана 
  
   DbView2(0,nPos,save_pos) // redraw screen 
   nPos:=ACHOICE(nTop,nLeft,nBottom,nRight,txt,,"DbView2",nPos,save_pos) 
  ENDDO 
 RETURN 
  
 * ----------------------------- * 
 FUNC DbView2(mode,index,scrn_pos) // call-back user func here! 
  
 LOCAL user_result 
  
  IF (index > LEN(txt)) .OR. (index < 1) 
   index := 1 
  ENDI 
  
  save_index := index 
  save_pos   := scrn_pos 
  
  GO rxn[index] 
  user_result := &user_func (TranslateMsg(mode),rxn,index) // вызов call-back функции пользователя 
  save_rx     := RECNO() 
  
  DO CASE 
   CASE user_result = DE_CONT;                      RETURN AC_CONT 
   CASE user_result = DE_ABORT;    dbv_more:=FALSE; RETURN AC_SELECT 
   CASE user_result = DE_REFRESH;  dbv_more:=TRUE;  RETURN AC_SELECT 
   CASE user_result = DBVIEW_DOWN; PutInKbd(CHR(K_DOWN)); RETURN AC_CONT 
   CASE user_result = DBVIEW_UP;   PutInKbd(CHR(K_UP));   RETURN AC_CONT 
  OTHERWISE 
   RETURN AC_CONT 
  ENDC 
  
 RETURN AC_CONT 
 * ----------------------------- *