area:=SELECT() 
  IF !FileExist(local_dir+"ipricev.dbf") // нет образа локально - загружаем 
   CheckNLoad("ipricev")                   // копируем с сервера в локальную папку и строим индекс 
   CLOSE ipricev 
  ENDI 
  USE (local_dir+"ipricev") INDEX (local_dir+"ipricev") EXCLUSIVE NEW /// <<< строка 734 
  
  IF NETERR() 
    /// сюда уже не попадает, программа завершила работу 
  
 

 IF (e:genCode == EG_ZERODIV)    // По умолчанию деление на ноль дает ноль 
   RETURN (0) 
  ENDI 
  
  IF (e:SubSystem == 'DBFNTX') .AND. ; // специфика dbfntx & Win2K based servers 
     (e:SubCode   == 1035)     .AND. ; 
     (e:tries < 25) 
   RETURN (.T.) 
  ENDI 
  
  IF (e:genCode == EG_LOCK) .AND. e:canDefault 
   // обработка специфич.ошибки ntx в 5.2e 
   RETURN (.F.) 
  ENDI 
  
  IF (e:genCode == EG_OPEN) .AND. (e:osCode == 32) .AND. e:canDefault 
   // Для ошибки открытия файла в сетевом окружении..установка NETERR() 
   // и значения SUBSYSTEM по умолчанию 
   NetErr(.T.) 
   RETURN (.F.)                                                                    // NOTE 
  ENDI 
  
  IF (e:genCode == EG_APPENDLOCK) .AND. e:canDefault 
   // Для ошибки блокировки во время APPEND BLANK..установка NETERR() 
   // и значения SUBSYSTEM по умолчанию 
   NetErr(.T.) 
   RETURN (.F.)                                                                    // NOTE 
  END 
 

 
  
 #command USE <(db)>                                                     ; 
              [VIA <rdd>]                                                ; 
              [ALIAS <a>]                                                ; 
              [<new: NEW>]                                               ; 
              [<ex: EXCLUSIVE>]                                          ; 
              [<sh: SHARED>]                                             ; 
              [<ro: READONLY>]                                           ; 
              [INDEX <(index1)> [, <(indexn)>]]                          ; 
                                                                         ; 
       => NetUse(                                                        ; 
                     <.new.>, <rdd>, <(db)>, <(a)>,                      ; 
                     if(<.sh.> .or. <.ex.>, !<.ex.>, NIL), <.ro.>        ; 
                   )                                                     ; 
                                                                         ; 
       [; IIF(USED(),NetSetIndex( <(index1)> ),NIL)]                     ; 
       [; IIF(USED(),NetSetIndex( <(indexn)> ),NIL)] 
  
 // далее: 
  
 * ----------------------------------------------- * 
 FUNC NetUse(lNew,cRdd,cDb,cAlias,lShared,lReadonly) 
  
 LOCAL start_time,res,cnt 
  
  cnt        := 0 
  start_time := SECONDS() 
  
  REPEAT 
   DBUSEAREA(lNew,cRdd,cDb,cAlias,lShared,lReadonly) 
   res:=USED() 
   IF res 
    EXIT 
   ENDIF 
   cnt++ 
   hb_IdleSleep(0.1)  
  UNTIL (ABS(SECONDS() - start_time) > 1) // не более 1 сек с уч.полуночи 
  
  IF (cnt > 0) 
   OutReportLog("NetUse("+cDb+") tried to open "+NTRIM(cnt)+" times and "+IIF(res,"OK","FAIL")) 
  ENDIF 
  
 RETURN res 
  
 * ------------------- * 
 FUNC NetSetIndex(cName) 
  
 LOCAL start_time,res,cnt 
  
  cnt        := 0 
  start_time := SECONDS() 
  REPEAT 
   res:=DBSETINDEX(cName) 
   IF res; EXIT; ENDIF 
   hb_IdleSleep(0.1) 
   cnt++ 
  UNTIL (ABS(SECONDS()-start_time) > 1) // не более 1 сек c уч.перехода полуночи 
  
  IF (cnt > 0) 
   OutReportLog("NetSetIndex("+cName+") tried to open "+NTRIM(cnt)+" times and "+IIF(res,"OK","FAIL")) 
  ENDIF 
  
 RETURN res