FiveTech Software tech support forums

Code: Select all

  DEFINE DIALOG oDlg RESOURCE "MUE_EMPL" Title "EMPLEADOS";oDlg:lHelpIcon:=.F.
   
  @0,0 xBrowse oBrw Of oDlg AUTOCOLS AUTOSORT 
   oBrw:setdolphin(oQry,.F.) 
   oBrw:nMarqueeStyle:=5
   oBrw:lHScroll:=.F.
   oBrw:lAllowRowSizing:= .f.
   oBrw:nColDividerStyle:=LINESTYLE_LIGHTGRAY
   oBrw:nRowDividerStyle:=LINESTYLE_LIGHTGRAY
   oBrw:bClrSelFocus:={ || { CLR_BLACK, { { 0.10,16777215,12961221 } }} }
   oBrw:bClrSel:={ || { CLR_BLACK, { { 0.30,16777215,12961210 } }} }
   oBrw:lRecordSelector:=.F.
    oBrw:lAllowColHiding := .f. 
   oBrw:lAllowColSwapping := .f.
  
              
   oCol:=oBrw:AddCol()
   oCol:bStrData  := { || oQry:CODIGO }
   oCol:nHeadStrAlign := AL_CENTER
   oCol:cHeader:= "COD."
   oCol:nWidth:=30
   oCol:cSortOrder := "CODIGO"
   oCol:bLClickHeader:= {|| oBrw:Gotop() }
    
   oCol:=oBrw:AddCol()
   oCol:bStrData  := { || oQry:NOMBRE }
   oCol:nHeadStrAlign := AL_CENTER
   oCol:cHeader   := "NOMBRE Y APELLIDOS"
   oCol:nWidth:=223
   oCol:cSortOrder := "NOMBRE"
   oCol:bLClickHeader:= {|| oBrw:Gotop() }

   oBrw:CreateFromResource(105)

   REDEFINE SAY oSay  ID 114 OF oDlg UPDATE PICTURE "@!"
   oBrw:bSeek  := { | c | QSeek( c,oBrw,oSay ) }
   ACTIVATE DIALOG oDlg CENTERED

//...


FUNCTION QSeek( c, oBrw, oSay )
   LOCAL oQry := oBrw:oMySql
   LOCAL cSortOrder, nStart
   LOCAL uData, nNum, lRet

   STATIC aLastRec := {}
   
   nNum := AScan( oBrw:aCols, {| o | !Empty( o:cOrder ) } )

   IF nNum < 1
     nNum:=1 ////Linea agregada para que ordene por la 1ra columna
     //RETURN FALSE
   ENDIF

   cSortOrder := oBrw:aCols[ nNum ]:cSortOrder

   IF Len( c ) == 1
      aLastRec := {}
   ENDIF

   IF Len( aLastRec ) < Len( c )
      IF Len( aLastRec ) == 0
         nStart := 1
      ELSE
         nStart := oQry:RecNo()
      ENDIF
      AAdd( aLastRec, nStart )
   ELSE
      ASize( aLastRec, Len( c ) - 1 )
      
      IF Len( aLastRec ) == 0
          nStart := 1
          aLastRec := {};c:="";oSay:Refresh();oBrw:GoTop();oBrw:Refresh();__KeyBoard(chr(1)) //Linea agregada
      ELSE
         nStart := ATail( aLastRec )
      ENDIF
   ENDIF
   IF HB_IsObject( oSay )
       oSay:SetText( Upper( c ) )
   ENDIF
   lRet := ( oQry:Seek( c, cSortOrder, nStart-1, oQry:LastRec(), !oQry:FieldType( cSortOrder  )=='N', .T. ) != 0 )
    
RETURN lRet
 

Code: Select all

   REDEFINE SAY oSay VAR xSeek ID 114 OF oDlg UPDATE PICTURE "@!"
   oBrw:bSeek  := { | c | xSeek:=c,QSeek( c,oBrw,oSay ) }
       
   oBrw:bKeyDown:={|nKey| iif( nKey == VK_BACK, If(Len(xSeek)=1,(xSeek:="",oSay:Refresh(),oBrw:GoTop()), ), )

 

Code: Select all

CREATE TABLE test (
    id         INT NOT NULL,
    last_name  CHAR(30) NOT NULL,
    first_name CHAR(30) NOT NULL,
    PRIMARY KEY (id),
    INDEX name (last_name,first_name)

Code: Select all

oCol:=oBrw:AddCol()
   oCol:bStrData  := { || EMPL:CODIGO }
   oCol:nHeadStrAlign := AL_CENTER
   oCol:cHeader:= "COD."
   oCol:nWidth:=30
   oCol:cSortOrder := "CODIGO"
   oCol:bLClickHeader:= {|| oBrw:Gotop() }
    
   oCol:=oBrw:AddCol()
   oCol:bStrData  := { || Alltrim(NOMBRE)+" "+APELLIDOS }
   oCol:nHeadStrAlign := AL_CENTER
   oCol:cHeader   := "NOMBRE Y APELLIDOS"
   oCol:nWidth:=223
   oCol:cSortOrder := "NOMBRE"
   oCol:bLClickHeader:= {|| oBrw:Gotop() }
 

Code: Select all

 oBrw:bChange:={||  If(oQry:RecNo()=1,(xSeek:="",oSay:Refresh()), )
 

Code: Select all

@ 10,10 SAY oSay PROMPT cBusca OF oDlg SIZE 200,12 PIXEL ;
  COLOR CLR_HRED,CLR_YELLOW BORDER 


   oBrw:bKeyDown := { |nKey| IF( nKey == VK_RETURN,(lOk:=.T.,oDlg:End()),;
  IF( nKey<>13, ( SeekProd(nKey,@oQry,LOWER(cTmp),"nombre",oBrw,@cBusca,,,@lKeyboard,oSelf:oCon),oSay:Refresh() ),)) }


*---------------------------------------
* FUNCION: SeekProd
* Descripcion: Busqueda Incremental
* Fecha: 22/08/2013
*---------------------------------------
static FUNCTION SeekProd(nKey,oQry2,oTabla,oOrden,oLbx,cbusca,cSelect,cWhere,lKeyboard,oCon)
  Local cQuery,campo
  
  DEFAULT cSelect := "*",;
  cWhere := ""

  cSelect := "grupo,alterno,nombre,direccion,colonia,localidad,telefono"

  IF nKey == 91
    IF !lKeyboard
      oLbx:Keydown( VK_BACK )
      lKeyboard := .t.
    ENDIF
    oLbx:Refresh(.T.)
    oLbx:SetFocus()
    RETURN NIL
  ENDIF

  MsgBeep()

  IF nKey=8
     cbusca:= SubStr(cbusca,1,Len(cbusca)-1)
    cQry := "select " + cSelect
    cQry += " from "  + oTabla
    cQry += " where " + oOrden
    cQry += " like '%" + cstr2( cBusca ) + "%'"
    cQry += " ORDER by " + oOrden

    oQry := oCon:Query( cQry )
    oLbx:SetDolphin( oQry )
    oQry:Refresh()
    oQry:GoTop()
  ELSE
    If nKey=190
      cbusca :=cbusca + "."
    ElseIF nKey = 192 .OR. nKey = 164 .OR. nKey = 165
      cbusca := cbusca + "Ñ"
    Else
      // ? cBusca,nKey, chr( nKey )

      cbusca := cbusca + Upper(chr(nkey))
    Endif

    IF Empty(cWhere)
    
      cQry := "select " + cSelect
      cQry += " from "  + oTabla
      cQry += " where " + oOrden
      cQry += " like '%" + cstr2( cBusca ) + "%'"
      cQry += " ORDER by " + oOrden 

    ELSE
      
      cQry := "SELECT "+ cSelect
      cQry += " FROM "+oTabla
      cQry += " " + cWhere + " AND "+oOrden
      cQry += " like '%" + cstr2( cBusca ) + "%'"
      cQry += " ORDER by " + oOrden

    ENDIF //72
    
    oQry := oCon:Query( cQry )
    oLbx:SetDolphin( oQry )

    oQry:Refresh()
    oQry:GoTop()
  ENDIF
  oLbx:Refresh(.T.)
  oLbx:SetFocus()

RETURN NIL