PC Toledo

Código: Selecionar todos

Use Clientes alias Clientes Shared New
DbSetIndex('Clientes')
Clientes->(OrdSetFocus(1)) // Ordem de Codigo

ConRec->( DBGOTOP() )
WHILE ConRec->( !EOF() )
   Clientes->( ORDSETFOCUS(1) )
   if Clientes->( !DBSEEK(ConRec->Codigo) )
      if !CriaCliente(ConRec->Codigo, ConRec->Nome, ConRec->Prazo)
         ConRec->( DBSKIP() )
         LOOP
      endif
   endif
...
END

//------------------------------------------------------------------------------
static function CriaCliente(cCodigo, cNome, nPrazo) 
   if empty(cNome)
      return .F.
   endif
   Clientes->( dbAppend() )
   Clientes->Codigo     := cCodigo
   Clientes->Nome       := cNome
   Clientes->Prazo := nPrazo
   Clientes->( LiberaReg() )
return .T.


********************************
procedure LiberaReg()
	goto RecNo()
        dbcommit()  
	dbSkip( 0 ) // dica Quintas topic 16174
	unlock
return

Código: Selecionar todos

   cSeek := <a expressão p/ o seek> 
   if dbseek(cSeek)
   ... (processamento)
   else
     ? cSeek
     ? alias()
     ? indexkey() 
     ? indexord() 
   endif

Código: Selecionar todos

   Use Clientes alias Clientes Shared New
   SET INDEX TO clientes

   SELECT CONREC
   GOTO TOP
   DO WHILE ! Eof()
      IF ! Encontra( conrec->Codigo, "CLIENTES", "indnum" )
         IF ! CriaCliente(ConRec->Codigo, ConRec->Nome, ConRec->Prazo)
            SKIP
            LOOP
         ENDIF
      ENDIF
   ...
   ENDDO

STATIC FUNCTION CriaCliente( cCodigo, cNome, nPrazo )  

   LOCAL nSelect := Select()
   
   IF Empty( cNome )
      RETURN .F.
   ENDIF
   SELECT clientes
   RecAppend()
   REPLACE ;
      clientes->Codigo WITH cCodigo, ;
      clientes->Nome WITH cNome, ;
      clientes->Prazo WITH nPrazo
   RecUnlock()
   SELECT ( nSelect )

   RETURN .T.

FUNCTION RecUnlock()

   SKIP 0 // dica Quintas topic 16174
   UNLOCK

   RETURN NIL
   
FUNCTION Encontra( xChave, cAlias, cTag )

   LOCAL nSelect := Select(), cOrdSetFocus, lFound, nRecNo
   
   SELECT ( Select( cAlias ) )  // Atenção: comando SELECT, e função Select()
   cOrdSetFocus := OrdSetFocus( cTag )
   SEEK xChave
   lFound := ! Eof()
   nRecNo := RecNo()
   ordSetFocus( cOrdSetFocus )
   GOTO ( nRecNo )
   SELECT ( nSelect ) // Atenção: comando SELECT
   
   RETURN lFound

FUNCTION RecAppend()

   APPEND BLANK // sua rotina
   
   RETURN NIL

Código: Selecionar todos

   Use Tabela Alias Tabela
   Index on Codigo To Tabela
   dbgobottom()
   if DBSEEK( '123') //--> Mesmo tendo indo antes pro final o DbSeek começa a pesquisa do inicio.
      Alert( 'Achou')
   endif