Clipper On Line • Ver Tópico - Algum pode me ajudar com a função OrdWildSeek

Algum pode me ajudar com a função OrdWildSeek

Discussão sobre a biblioteca Fivewin - O Clipper para Windows.

Moderador: Moderadores

 

Algum pode me ajudar com a função OrdWildSeek

Mensagempor Daiane » 29 Mar 2017 10:37

Olá Pessoal,
To tentando fazer a busca de uma palavra dentro de um campo "observação"


::xObservacao := "casa"
SELE 6 //seleciono o banco 6 ou seja IMCLIENT.dbf
SET ORDER TO 6 // OBSERVAC //aqui eu defino o indice q esta por ordem do campo OBSERVAC
GO TOP
DO WHILE OrdWildSeek("*"+alltrim(::xObservacao)+"*",.t.,.f.)


::Write(nLin+=1, 2,6->CODCLI + " " + alltrim(6->NOME))
::Write(nLin , 49, 6->CELULAR1 )
::Write(nLin , 69, 6->CELULAR2 )
::Write(nLin , 91, 6->EMAIL)
::Write(nLin ,119, 6->OBSERVAC)
Xlancto+=1
SKIP

ENDDO


dessa forma ele so busca um unico registro sendo q no banco tem varios com a busca q eu pedi
quando eu faço desta forma: OrdWildSeek("*"+alltrim(::xObservacao)+"*",.F.,.f.) mudando o segundo parametro para Falso, ele não responde,trava tudo.
XHb 1.2.1 + FW 12.05 + Pelles C IDE
"Eu adoraria mudar o mundo, mas não me deram o código-fonte."
Avatar de usuário

Daiane
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 122
Data de registro: 28 Out 2014 15:19
Cidade/Estado: Feira de Santana - BA
Curtiu: 27 vezes
Mens.Curtidas: 13 vezes

Algum pode me ajudar com a função OrdWildSeek

Mensagempor Kapiaba » 29 Mar 2017 11:11

#include "FiveWin.Ch"
#include "ord.ch"
#include "xbrowse.ch"

REQUEST DBFCDX

function Main()

   local oDlg, oFont, oBrw

   USE CUSTOMER NEW ALIAS CUST SHARED VIA "DBFCDX"
   SET ORDER TO TAG STREET
   GO TOP

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 800,400 PIXEL FONT oFont ;
      TITLE "XBRPWSE : INCREMENTAL FILTERS " + FWVERSION

   @ 30,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ;
      DATASOURCE "CUST" AUTOCOLS AUTOSORT CELL LINES NOBORDER

   WITH OBJECT oBrw
      :lIncrFilter      := .t.
      :lSeekWild        := .t.
      //
      :CreateFromCode()
   END

   @ 10,150 SAY oBrw:oSeek PROMPT oBrw:cSeek SIZE 100,10 PIXEL OF oDlg ;
      COLOR CLR_BLACK,CLR_YELLOW

   ACTIVATE DIALOG oDlg CENTERED ON INIT ( oBrw:SetFocus(), .f. )

return nil


Teste este com lSeekWild do xBrowse para ver se gostas.

abs.
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1765
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 310 vezes
Mens.Curtidas: 119 vezes

Algum pode me ajudar com a função OrdWildSeek

Mensagempor Kapiaba » 29 Mar 2017 11:13

Vixi, acho que a sua versão do fivewin não suporta, tem q ser no minimo a FWXH13.08.
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1765
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 310 vezes
Mens.Curtidas: 119 vezes

Algum pode me ajudar com a função OrdWildSeek

Mensagempor Kapiaba » 29 Mar 2017 11:14

OrdWildSeek( "*PURE*" )
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1765
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 310 vezes
Mens.Curtidas: 119 vezes

Algum pode me ajudar com a função OrdWildSeek

Mensagempor Kapiaba » 29 Mar 2017 11:24

FUNCTION Main()

   USE MDL
   set index to MDL

   SET SCOPE TO "ALICIA","ALICIA"

   DBGOTOP()

   OrdWildSeek("*ZUC*")

   Do Whil !Eof() .and. OrdWildSeek("*ZUC*", .T. )

      LogFile("Teste.Log",{PER_NOMBRE })

   Enddo

RETURN NIL
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1765
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 310 vezes
Mens.Curtidas: 119 vezes

Algum pode me ajudar com a função OrdWildSeek

Mensagempor Daiane » 29 Mar 2017 11:27

eu tentei sem os parâmetros tbm,mas trava tbm
XHb 1.2.1 + FW 12.05 + Pelles C IDE
"Eu adoraria mudar o mundo, mas não me deram o código-fonte."
Avatar de usuário

Daiane
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 122
Data de registro: 28 Out 2014 15:19
Cidade/Estado: Feira de Santana - BA
Curtiu: 27 vezes
Mens.Curtidas: 13 vezes

Algum pode me ajudar com a função OrdWildSeek

Mensagempor Toledo » 29 Mar 2017 11:29

Uma outra opção:

Altere esta parte do seu código:
GO TOP
lPar_:=.F.
DO WHILE OrdWildSeek("*"+alltrim(::xObservacao)+"*",lPar_)
   lPar_:=.T.


Obs.: não precisa do SKIP dentro do DO WHILE... ENDDO.

Abraços,
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Avatar de usuário

Toledo
Administrador

Administrador
 
Mensagens: 3038
Data de registro: 22 Jul 2003 18:39
Cidade/Estado: Araçatuba - SP
Curtiu: 263 vezes
Mens.Curtidas: 258 vezes

Algum pode me ajudar com a função OrdWildSeek

Mensagempor Daiane » 29 Mar 2017 11:50

Gente muito obrigada.
Funcionou dessa forma q vc falou Toledo.
Só ressaltando q é case sensitive,depois de testar dessa forma q vc falou,percebi q ainda não tava trazendo todos os dados
então usei o upper e assim trouxe o total correto.
XHb 1.2.1 + FW 12.05 + Pelles C IDE
"Eu adoraria mudar o mundo, mas não me deram o código-fonte."
Avatar de usuário

Daiane
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 122
Data de registro: 28 Out 2014 15:19
Cidade/Estado: Feira de Santana - BA
Curtiu: 27 vezes
Mens.Curtidas: 13 vezes

Algum pode me ajudar com a função OrdWildSeek

Mensagempor Kapiaba » 29 Mar 2017 11:56

Kapiaba
Colaborador

Colaborador
 
Mensagens: 1765
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 310 vezes
Mens.Curtidas: 119 vezes




Retornar para FiveWin

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 11 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