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 11: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 16:19
Cidade/Estado: Feira de Santana - BA
Curtiu: 27 vezes
Mens.Curtidas: 12 vezes

Algum pode me ajudar com a função OrdWildSeek

Mensagempor Kapiaba » 29 Mar 2017 12: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
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1264
Data de registro: 07 Dez 2012 16:14
Cidade/Estado: São Paulo
Curtiu: 251 vezes
Mens.Curtidas: 81 vezes

Algum pode me ajudar com a função OrdWildSeek

Mensagempor Kapiaba » 29 Mar 2017 12:13

Vixi, acho que a sua versão do fivewin não suporta, tem q ser no minimo a FWXH13.08.
Kapiaba
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1264
Data de registro: 07 Dez 2012 16:14
Cidade/Estado: São Paulo
Curtiu: 251 vezes
Mens.Curtidas: 81 vezes

Algum pode me ajudar com a função OrdWildSeek

Mensagempor Kapiaba » 29 Mar 2017 12:14

OrdWildSeek( "*PURE*" )
Kapiaba
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1264
Data de registro: 07 Dez 2012 16:14
Cidade/Estado: São Paulo
Curtiu: 251 vezes
Mens.Curtidas: 81 vezes

Algum pode me ajudar com a função OrdWildSeek

Mensagempor Kapiaba » 29 Mar 2017 12: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
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1264
Data de registro: 07 Dez 2012 16:14
Cidade/Estado: São Paulo
Curtiu: 251 vezes
Mens.Curtidas: 81 vezes

Algum pode me ajudar com a função OrdWildSeek

Mensagempor Daiane » 29 Mar 2017 12: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 16:19
Cidade/Estado: Feira de Santana - BA
Curtiu: 27 vezes
Mens.Curtidas: 12 vezes

Algum pode me ajudar com a função OrdWildSeek

Mensagempor Toledo » 29 Mar 2017 12: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
Avatar de usuário

Toledo
Administrador

Administrador
 
Mensagens: 2889
Data de registro: 22 Jul 2003 19:39
Cidade/Estado: Araçatuba - SP
Curtiu: 205 vezes
Mens.Curtidas: 193 vezes

Algum pode me ajudar com a função OrdWildSeek

Mensagempor Daiane » 29 Mar 2017 12: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 16:19
Cidade/Estado: Feira de Santana - BA
Curtiu: 27 vezes
Mens.Curtidas: 12 vezes

Algum pode me ajudar com a função OrdWildSeek

Mensagempor Kapiaba » 29 Mar 2017 12:56

Kapiaba
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1264
Data de registro: 07 Dez 2012 16:14
Cidade/Estado: São Paulo
Curtiu: 251 vezes
Mens.Curtidas: 81 vezes




Retornar para FiveWin

Quem está online

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


Faça uma doação para o forum
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro