Clipper On Line • Ver Tópico - Pesquiza Incremental

Pesquiza Incremental

Projeto HwGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Pesquiza Incremental

Mensagempor nasouza » 02 Abr 2017 17:57

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
Anexos
error.txt
Arquivo com o retorno do erro
(8.14 KiB) Baixado 66 vezes
UTPES2.PRG
Rotina
(3.52 KiB) Baixado 91 vezes
nasouza
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 37
Data de registro: 20 Jul 2009 17:57
Cidade/Estado: Santa Isabel do Ivai - Pr
Curtiu: 2 vezes
Mens.Curtidas: 0 vez

Pesquiza Incremental

Mensagempor nasouza » 02 Abr 2017 18:12

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.
nasouza
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 37
Data de registro: 20 Jul 2009 17:57
Cidade/Estado: Santa Isabel do Ivai - Pr
Curtiu: 2 vezes
Mens.Curtidas: 0 vez

Pesquiza Incremental

Mensagempor JoséQuintas » 02 Abr 2017 22:48

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

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

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()

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

@ 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.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Pesquiza Incremental

Mensagempor nasouza » 02 Abr 2017 23:19

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

Me desculpe onde informo estes parâmetros ?
nasouza
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 37
Data de registro: 20 Jul 2009 17:57
Cidade/Estado: Santa Isabel do Ivai - Pr
Curtiu: 2 vezes
Mens.Curtidas: 0 vez




Retornar para HwGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 8 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro