Pesquiza Incremental

[nasouza]

Esta Rotina Funcionava corretamente, mas de repente passou retornar este erro:
Subsystem Call ....: BASE
System Code .......: 1076
Default Status ....: .F.
Description .......: Erro nos parâmetros
Operation .........: >=
Arguments .........: [ 1] = Type: U [ 2] = Type: N Val: 97
Involved File .....:
Dos Error Code ....: 0

[nasouza]

Deixei de Informar que utilizo a Hwgui 2.17+Gtwvw+xHarbour 1.2.3 Intl. (simplex) build 20170312 / Borland c++ 5.5.1 (32-bits).
Tenho um browse apresentando o cadastro com código e o nome, onde tenho um botão que faz a chamada a esta rotina. Ela encontra o nome no cadastro mas quando dou o enter para retornar ao browse com o resultado da pesquisa, ai da o erro.

[JoséQuintas]

Se estivesse compilando com -w3 -es2 já teria descoberto o erro.

Considerando que o erro é aqui, só pode ser o valor de key

Código: Selecionar todos

Static Function PesqInc( oBrowse, key )
//-------------------------------------

if (key >=97 .and. key <= 122)
   key := key-32
end

considerando que isso vém daqui, só pode ser chamada da browsekey()

Código: Selecionar todos

Static Function BrowseKey( oBrowse, key )
//---------------------------------------

DO CASE
   CASE KEY = K_ESC
        EndDialog()
   CASE (KEY = K_ENTER)
        oPesquiza:close()
		Return .f.
   otherwise
        PesqInc( oBrowse, key )
ENDCASE

Return .T.

E considerando estes dois codeblocks... tudo indica o primeiro não passa parâmetro nenhum.
Se isso funcionava antes, eu não sei..... rs

Código: Selecionar todos

@ 012,085 BROWSE oBrowse1 DATABASE SIZE 540,373 ;
               ...
               ON CLICK {|o,key| BrowseKey() } ;
			   
...
     oBrowse1:bKeyDown := {|o,key| BrowseKey(o, key) }

A compilacão -w3 -es2 iria reclamar que declarou variáveis e não usou pra nada no codeblock.
É nessas horas que se vê a vantagem de usar -w3 -es2.

[nasouza]

Boa Noite Jose Quintas, eu estou compilando com: hbmake .

Me desculpe onde informo estes parâmetros ?