PC Toledo

Código: Selecionar todos

select dbf 
set order to 01
dbf->(ordscope(0,varivel)
dbf->(ordscope(1,varivel)

Set order to 2 // aqui isso seria possivel ?

Código: Selecionar todos

use fornece new excl
inde on area+nome+cnpj tag xpto to fornece
set inde to fornece
go top

pesq:={}
do whil ordwildseek("*SILVA*", .t.)
  aadd(pesq, {fornece->nome, fornece->cnpj})
endd
* a matriz PESQ vai ter "n" elementos, tantos quantos forem os registros que
* têm "SILVA" nos campos AREA+NOME+CNPJ (em qualquer posição, não apenas no início)

pesq:={}
do whil ordwildseek("*1357*", .t.)
  aadd(pesq, {fornece->nome, fornece->cnpj})
endd
* a matriz PESQ vai ter "n" elementos, tantos quantos forem os registros que
* têm "1357" nos campos AREA+NOME+CNPJ (em qualquer posição, não apenas no início)

use

Código: Selecionar todos

    PROCEDURE Main()
      LOCAL aStruct := { ;
               { "Codigo",  "C",  2,  0 }, ;
               { "Nome"  ,  "C",  30, 0 }, ;
               { "Idade" ,  "C",  2,  0 } ;
            }

      CLS

      ConfiguraAmbiente()

      DbCreate( "Teste", aStruct, "DBFCDX", .T., "Teste" )

      USE Teste
      INDEX ON Nome TAG Ind01 TO Ind01
      SET ORDER TO TAG Ind01
      APPEND BLANK
      TESTE->Codigo:="01"
      TESTE->Nome  :="ALEXANDRE"
      TESTE->Idade :="43"
      //--------------------------------------------------------
      APPEND BLANK
      TESTE->Codigo:="02"
      TESTE->Nome  :="JOAO"
      TESTE->Idade :="11"
      //--------------------------------------------------------
      APPEND BLANK
      TESTE->Codigo:="03"
      TESTE->Nome  :="MARIANA"
      TESTE->Idade :="09"
      //--------------------------------------------------------
      APPEND BLANK
      TESTE->Codigo:="04"
      TESTE->Nome  :="BETE"
      TESTE->Idade :="39"
      //--------------------------------------------------------
      APPEND BLANK
      TESTE->Codigo:="05"
      TESTE->Nome  :="ELISABETE"
      TESTE->Idade :="36"
      //--------------------------------------------------------
      GO TOP
      aCust:={}
      DO WHILE OrdWildSeek( "*BE?", .T. )
         ? "aqui"
         AAdd( aCust, TESTE->Nome)
      ENDDO

      AEval( aCust, {|c| QOut(c) } )

      USE
   RETURN

FUNCTION ConfiguraAmbiente()
   REQUEST HB_LANG_PT
   REQUEST HB_CODEPAGE_PT850
   HB_SETCODEPAGE( "PT850" )
   SET CENTURY    ON
   SET DATE       BRITISH
   SET EPOCH      TO   2000
   SET DELETE     ON
   SET EXCLUSIVE  OFF
   SET DBFLOCKSCHEME TO 1  // PARA USO JUNTO COM O FOX
   REQUEST DBFCDX
   RDDSETDEFAULT("DBFCDX")
   DBSETDRIVER("DBFCDX")
RETURN NIL

Código: Selecionar todos

aCust:={}
GO TOP
DO WHILE OrdWildSeek( "*BE*", .T. ) // top/bottom
   ? "aqui"
   AAdd( aCust, TESTE->Nome)
ENDDO
GO BOTTOM
DO WHILE OrdWildSeek( "*BE*", .T. , .T.) // bottom/top
   IF ASCAN(ACUST, TESTE->NOME)=0
      ? "aqui"
      AAdd( aCust, TESTE->Nome)
   ENDIF
ENDDO