DEFINE WINDOW SPR_REC AT GetDesktopRealTop(),GetDesktopRealLeft() ; 
              WIDTH WidthWindow_MyApl HEIGHT HighWindow_MyApl ; 
              TITLE if (n_fltrecept==0,"Готовая продукция",if(n_fltrecept==1,"Черновые рецептуры","Архив рецептур"))  ; 
              ICON if(n_fltrecept==0,"AMAINICON",if(n_fltrecept==1,"BLACKS","YELLOW")) ; 
              WINDOWTYPE STANDARD ;  
              NOMAXIMIZE ; 
              NOSIZE ; 
              ON INIT Domethod("Form_0","Hide") ; 
              ON RELEASE {||closebase(a_base),Domethod("Form_0","Show") } ;  
              ON INTERACTIVECLOSE  {|| .t.} ;  
              ON GOTFOCUS  {|| IsFocBut()}   
  
  
 -------------- 
 Func IsFocBut()  // это костыль так как obrw:setfocus() не становился на нужный бровс , переделал на _PUSHKEY(VK_TAB) 
  
     if lbut4x 
 _PUSHKEY(VK_TAB) 
    if lfocbrw4 
 _PUSHKEY(VK_TAB) 
    endif 
 lbut4x:=.f. 
     endif 
  
  
 return nil