LOCAL oTsb1, oTsb2 
 ... 
       nH := Int( This.ClientHeight / 2 ) 
  
       oTsb1 := oHmgData() 
       oTsb1:aEdit := .T. 
  
       oBrw1 := _TBrowse( oTsb1, "CUST1", "Brw_1", nY, nX, nW, nH ) 
  
       //AEval( oBrw1:aColumns, {| oCol | oCol:lFixLite := .T., ; 
       //                                 oCol:lEdit := .T., ; 
       //                                 oCol:lOnGotFocusSelect := .T., ; 
       //                                 oCol:lEmptyValToChar := .T. } ) 
  
       nY += nH + 1 
       nH -= 1 
  
       oTsb2 := oHmgData() 
       oTsb2:aEdit := .T. 
  
       oBrw2 := _TBrowse( oTsb2, "CUST2", "Brw_2", nY, nX, nW, nH ) 
  
       //AEval( oBrw2:aColumns, {| oCol | oCol:lFixLite := .T., ; 
       //                                 oCol:lEdit := .T., ; 
       //                                 oCol:lOnGotFocusSelect := .T., ; 
       //                                 oCol:lEmptyValToChar := .T. } ) 
       oBrw1:SetFocus() 
 

 
 FUNCTION SBrowse( uAlias, cTitle, bSetUp, aCols, nWidth, nHeight, lSql ) // idea from xBrowse 
  
    LOCAL cFormName, oBrw, nSaveSelect, cDbf, cAlias, lEdit, cTable 
    LOCAL lbSetUp := HB_ISBLOCK( bSetUp ) 
  
    DEFAULT uAlias := Alias(), ; 
       cTitle := iif( ValType( uAlias ) == "C", uAlias, "SBrowse" ), ; 
       bSetUp := {|| .F. }, ; 
       aCols := {}, ; 
       nWidth := GetSysMetrics( 0 ) * .75, ; 
       nHeight := GetSysMetrics( 1 ) / 2, ; 
       lSql := .F. 
  
    IF ValType( uAlias ) == 'C' .AND. Select( uAlias ) == 0 
       nSaveSelect := Select() 
       IF lSql 
          cTable := GetUniqueName( "SqlTable" ) 
  
          dbUseArea( .T.,, "SELECT * FROM " + uAlias, cTable,,, "UTF8" ) 
          SELECT &cTable 
  
          cAlias := cTable 
          uAlias := cAlias 
       ELSE 
  
          cDbf := uAlias 
          cAlias := uAlias 
          TRY 
             dbUseArea( .T., NIL, cDbf, cAlias, .T. ) 
             uAlias := cAlias 
          CATCH 
             uAlias := { { uAlias } } 
          END 
       ENDIF 
    ELSEIF ValType( uAlias ) == 'N' 
  
       If ! Empty( Alias( uAlias ) ) 
          uAlias := Alias( uAlias ) 
       ELSE 
          uAlias := { { uAlias } } 
       ENDIF 
    ELSEIF ValType( uAlias ) $ 'BDLP' 
       uAlias := { { uAlias } } 
  
 #ifdef __XHARBOUR__ 
    ELSEIF ValType( uAlias ) == "H" 
       uAlias := aHash2Array( uAlias ) 
  
 #endif 
    ENDIF 
  
    cFormName := GetUniqueName( "SBrowse" ) 
  
    DEFINE WINDOW &cFormName AT 0, 0 WIDTH nWidth HEIGHT nHeight TITLE cTitle CHILD BACKCOLOR RGB( 191, 219, 255 ) 
  
       nWidth -= 20 
       nHeight -= 50 
       DEFINE TBROWSE oBrw AT 10, 10 Alias ( uAlias ) WIDTH nWidth - 16 HEIGHT nHeight - 30 HEADER aCols ; 
             AUTOCOLS SELECTOR 20 
  
          lEdit := Eval( bSetUp, oBrw ) 
          lEdit := iif( ValType( lEdit ) == "L", lEdit, .F. ) 
  
          WITH OBJECT oBrw 
             :nTop := 10 
             :nLeft := 10 
             :nBottom := :nTop + nHeight - 30 
             :nRight := :nLeft + nWidth - 16 
             :lEditable := lEdit 
             :lCellBrw := lEdit 
             :nClrLine := COLOR_GRID 
             :nClrHeadBack := { CLR_WHITE, COLOR_GRID } 
             :lUpdate := .T. 
             :bRClicked := {|| Record_SBrowse( oBrw ) } 
             IF lEdit 
                AEval( :aColumns, {| o | o:lEdit := .T. } ) 
             ENDIF 
          END WITH 
  
       END TBROWSE 
  
       @ nHEIGHT - 12 - iif( _HMG_IsXPorLater, 3, 0 ), 10 BUTTON Btn_1 CAPTION oBrw:aMsg[ 44 ] WIDTH 70 HEIGHT 24 ; 
          ACTION {|| oBrw:Report( cTitle,,,, .T. ), oBrw:GoTop() } 
  
       @ nHEIGHT - 12 - iif( _HMG_IsXPorLater, 3, 0 ), 90 BUTTON Btn_2 CAPTION "Excel" WIDTH 70 HEIGHT 24 ; 
          ACTION oBrw:ExcelOle() 
  
       @ nHEIGHT - 12 - iif( _HMG_IsXPorLater, 3, 0 ), nWidth - 76 BUTTON Btn_3 CAPTION oBrw:aMsg[ 45 ] WIDTH 70 HEIGHT 24 ; 
          ACTION ThisWindow.RELEASE 
  
       If ! lEdit 
          ON KEY ESCAPE ACTION ThisWindow.RELEASE 
       ENDIF 
  
       IF lbSetUp                            //!!! 
          Eval( bSetUp, oBrw, .T. ) 
       ENDIF 
  
  
    END WINDOW 
    CENTER WINDOW &cFormName 
    ACTIVATE WINDOW &cFormName 
  
    If ! Empty( cAlias ) 
       ( cAlias )->( dbCloseArea() ) 
    ENDIF 
  
    If ! Empty( nSaveSelect ) 
       Select( nSaveSelect ) 
    ENDIF 
  
 RETURN NIL 
  
 // --------------------------------------------------------------------------------------------------------------------// 
  
 FUNCTION Record_SBrowse( oBrw, cTitle, bSetUp, aHead, lNoCrLf ) 
  
    LOCAL oCol, aArr := {}, cHdr  
    DEFAULT cTitle := "Record View", bSetUp := {|| .T. }, aHead := { "Key", "Value" }, lNoCrLf := .T. 
  
    FOR EACH oCol IN oBrw:aColumns 
       cHdr := oCol:cHeading 
       IF lNoCrLf .and. CRLF $ cHdr 
           cHdr := StrTran( cHdr, CRLF, " " ) 
       ENDIF 
       AAdd( aArr, { cHdr, Eval( oCol:bData ) } ) 
    NEXT 
  
    SBrowse( aArr, cTitle, bSetUp, aHead ) 
  
 RETURN NIL