FiveTech Support Forums

    // Create the browse
REDEFINE XBROWSE oLbxo  ;
    DATASOURCE oOrders  ;
    HEADERS " Done ", "Paid",  "Type", "W/O #", "Company", sLbl[4], sLbl[1], "Due Date", "Time",  " Started ", " Paid ", " Status " ;
    COLUMNS "ordnot", "Totals", "status", "wrkord", "ordcom","vehlic", "ordveh", "duedat", "duetim",  "wrkdat", "paydat", "CliUs1"  ;
    JUSTIFY  ,,2,2,,,2,2,2 ;
    ID 390 OF  oWdlg ;
    ON DBLCLICK ( tWorkorder():New( oOrders:WrkOrd ):FullEdit( ),  oLbxo:update(), aDis := LoadDispValues( aDis, oOrders ), oWdlg:update()) ;
        ON CHANGE ( aDis := LoadDispValues( aDis, oOrders ), oWdlg:update() ) ;
        UPDATE  

   oLbxo:aCols[ 1 ]:SetCheck( nil, .t. )
   oLbxo:aCols[ 2 ]:SetCheck( nil, .t. )
   oLbxo:aCols[8]:bClrStd := {|| { CELL_COL1( oOrders ), CELL_COL2( oOrders ) } }

   // Use for incremental search on opened database
    oLbxo:bSeek := { |c| oOrders:Seek( c )}