29 Mar 2017 10:37
::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
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
29 Mar 2017 11:13
29 Mar 2017 11:14
OrdWildSeek( "*PURE*" )
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
29 Mar 2017 11:27
29 Mar 2017 11:29
GO TOP
lPar_:=.F.
DO WHILE OrdWildSeek("*"+alltrim(::xObservacao)+"*",lPar_)
lPar_:=.T.
29 Mar 2017 11:50
29 Mar 2017 11:56