estoy compilando una aplicación con tmysql y xbrowse, al presionar cualquier tecla en el browse marca este error.
Application
===========
Path and name: c:\wizard\wizard.Exe (32 bits)
Size: 727,040 bytes
Time from start: 0 hours 0 mins 18 secs
Error occurred at: 14-10-2009, 20:13:33
Error description: Error BASE/1066 Argument error: conditional
Args:
[ 1] = C
Stack Calls
===========
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:SEEK(5065)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:KEYCHAR(2083)
================================
parece que al usar tmysql en xbrowse funciona como si hubiera activado la busqueda incremental, aun cuando la tengo definida a nil.
el error parece ser en esta parte del codigo de xbrowse.
- Code: Select all Expand view
- METHOD Seek( cSeek ) CLASS TXBrowse
local uBook, uSeek
local nFor, nRows
local lRefresh
msginfo( cSeek ) // se lo puse para ver que llega en bSeek
if ::bSeek == nil
return nil
endif
If cSeek == nil
if ! Empty( ::cSeek )
::cSeek := ""
If ::oSeek != nil
::oSeek:SetText( "" )
Endif
endif
return nil
Endif
lo que hice hacer un return en cuanto llega a este metodo
- Code: Select all Expand view
- METHOD Seek( cSeek ) CLASS TXBrowse
local cQuery
local cChar
return nil
if cSeek == NIL
return nil
endif
if asc(cSeek) > 63 .and. asc(cSeek) < 123
cChar := upper( cSeek)
cBuscador+= cChar
//cQuery := 'SELECT * FROM '+oTabla+' WHERE '+oOrden+" LIKE '"+cbusca+"%' ORDER BY "+oOrden+" LIMIT 50", oConexion, 1, 3)
endif
le pongo un msginfo al valor de cSeek y me llegan las letras que presiono y marca el error.
lo que hice fue dejar el codigo como esta, en cuanto llega el metodo seek, le doy un return y ya en el browse capturo las teclas para la busqueda incremental con bKeyDown.
solo lo hace con MySql, algo parecido escribio el Sr. Willian Morales en otro post.
Saludos,
Mauricio
