Busqueda Incremental Lenta Mysql
Publicado: Lun Abr 13, 2009 10:29 pm
METHOD BtnBuscarClick( oSender ) CLASS TSeguros
LOCAL cadena:=UPPER(ALLTRIM(::oCadena:Value)),cSQLSTR
LOCAL nCUAL,cBuscar
IF EMPTY(CADENA)
MSGSTOP('Busqueda Vacia')
::oCadena:SETFOCUS()
RETURN nil
ENDIF
oSender:lEnabled:=.f.
Waiton('Buscando Datos espere un momento ....')
WITH OBJECT ::oSQLCONSULTA
:oDataSource:=AppData:cnn
IF :lOpen
:Close()
ENDIF
cSQLSTR:="Select clientes.*,autos.*,CONCAT_WS('-',clientes.lada,clientes.telc hofer) as PHONE FROM clientes "+;
"LEFT JOIN autos ON clientes.cliente_id=autos.cliente_id "+;
"WHERE autos.placas LIKE '%"+cadena +"%'" + " OR autos.serie LIKE '%"+cadena +"%'" +;
" OR clientes.telchofer LIKE '%"+cadena +"%'"+;
" OR clientes.nombrecliente LIKE '%"+cadena +"%'"+;
" OR clientes.nombrechofer LIKE '%"+cadena +"%'"+ ;
" ORDER BY clientes.nombrecliente,autos.ano"
cBuscar:='Búsqueda de Clientes'
:cSelect:=''
:cSelect:=cSQLSTR
:Open()
IF !:lOpen
:lOpen:=.T.
IF !:lOpen
MSGSTOP('Error al Abrir Consulta de Clientes','Error')
AppData:cnn:lConnected:=.f.
Waitoff()
QUIT
ENDIF
ENDIF
END WITH
IF ::oSQLCONSULTA:RECCOUNT()=0
MSGSTOP('No Existen Datos Solicitados',cBuscar)
::oCadena:SetFocus()
oSender:lEnabled:=.t.
Waitoff()
RETURN NIL
ENDIF
oSender:lEnabled:=.t.
Waitoff()
RETURN Nil
--
LOCAL cadena:=UPPER(ALLTRIM(::oCadena:Value)),cSQLSTR
LOCAL nCUAL,cBuscar
IF EMPTY(CADENA)
MSGSTOP('Busqueda Vacia')
::oCadena:SETFOCUS()
RETURN nil
ENDIF
oSender:lEnabled:=.f.
Waiton('Buscando Datos espere un momento ....')
WITH OBJECT ::oSQLCONSULTA
:oDataSource:=AppData:cnn
IF :lOpen
:Close()
ENDIF
cSQLSTR:="Select clientes.*,autos.*,CONCAT_WS('-',clientes.lada,clientes.telc hofer) as PHONE FROM clientes "+;
"LEFT JOIN autos ON clientes.cliente_id=autos.cliente_id "+;
"WHERE autos.placas LIKE '%"+cadena +"%'" + " OR autos.serie LIKE '%"+cadena +"%'" +;
" OR clientes.telchofer LIKE '%"+cadena +"%'"+;
" OR clientes.nombrecliente LIKE '%"+cadena +"%'"+;
" OR clientes.nombrechofer LIKE '%"+cadena +"%'"+ ;
" ORDER BY clientes.nombrecliente,autos.ano"
cBuscar:='Búsqueda de Clientes'
:cSelect:=''
:cSelect:=cSQLSTR
:Open()
IF !:lOpen
:lOpen:=.T.
IF !:lOpen
MSGSTOP('Error al Abrir Consulta de Clientes','Error')
AppData:cnn:lConnected:=.f.
Waitoff()
QUIT
ENDIF
ENDIF
END WITH
IF ::oSQLCONSULTA:RECCOUNT()=0
MSGSTOP('No Existen Datos Solicitados',cBuscar)
::oCadena:SetFocus()
oSender:lEnabled:=.t.
Waitoff()
RETURN NIL
ENDIF
oSender:lEnabled:=.t.
Waitoff()
RETURN Nil
--