* Пользовательский метод BUTTONS.
* Регулирует доступ к кнопкам навигации btn_Next и btn_Prev . 
* =========================================================== *
Local mSaveRec                   && номер текущей записи
IF Alias() = "R1"
  mSaveRec = Recno()                            
  If Eof()
    Thisform.btn_Next.Enabled = .F.
  else
    Thisform.btn_Next.Enabled = .T. 
           * ----- но если это была последняя запись - дополнит. проверка ---- * 
    Skip        
    if eof()
      Thisform.btn_Next.Enabled = .F.    
      go Bottom
    endif  
  endif
  if Between (mSaveRec, 1 ,Reccount() )
    go mSaveRec   
  endif 
 
  if Bof()
     Thisform.btn_Prev.Enabled = .F.    
  else
     Thisform.btn_Prev.Enabled = .T.    
     skip -  1             && дополнит. проверка возможности смещения вверх
     if Bof()             &&  это была первая запись !  
        Thisform.btn_Prev.Enabled = .F. 
        go Top 
     endif
  endif
  if Between (mSaveRec, 1 ,Reccount() )
    go mSaveRec   
  endif    
Endif         && end IF Alias() =  "R1" 
* ===========  end  Buttons ========== *    

if Alias() <> "R1"       && это возможно, когда открыт не один файл 
  Select R1                
Endif  

if NOT BOF()
  go TOP
endif
ThisForm.Buttons
ThisForm.Grid1.SetFocus
ThisForm.Grid1.Refresh

if Alias() <> "R1"
  Select R1 
Endif  

if Not BOF()
  skip - 1  
  if BOF()
    go TOP
  endif
 endif
 ThisForm.Buttons
 ThisForm.Grid1.SetFocus
 ThisForm.Grid1.Refresh

if Alias() <> "R1"
  Select R1 
Endif  

if Not EOF()
   Skip
   if EOF()
     go BOTTOM
   endif
endif   
ThisForm.Buttons
ThisForm.Grid1.SetFocus
ThisForm.Grid1.Refresh

if Alias() <> "R1"
  Select R1 
Endif  

if NOT Eof()
   go Bottom
endif
ThisForm.Buttons
ThisForm.Grid1.SetFocus
ThisForm.Grid1.Refresh