database y ordscope

[surGom]

Como se utiliza este método que está tambien en la clase database

METHOD ordScope( nScopeType, uValue )


Luis

[karinha]

Code: Select all  Expand view

/*constantes para scope en tablas*/
//#define TOPSCOPE           1
//#define BOTTOMSCOPE        2

/*-------------------------------------------------------------------------------------------------*/

PROCEDURE SetScope( xValorIni, xValorFin )

   DEFAULT xValorFin := xValorIni

   OrdScope( TOPSCOPE,    xValorIni )
   OrdScope( BOTTOMSCOPE, xValorFin )
   DBGoTop()

RETURN

/*-------------------------------------------------------------------------------------------------*/

PROCEDURE ClearScope()

   OrdScope( TOPSCOPE    , NIL )
   OrdScope( BOTTOMSCOPE , NIL )
   DBGoTop()

RETURN
 



[surGom]

Gracias Kharina pero de hecho los utilizó pero mi consulta es como hacerlo con la clase database


Luis

[aferra]

Olá, com database se usa desta maneira.

<oObjetoDatabase>:OrdScope( 0, <seu_escopo_inicial> )
<oObjetoDatabase>:OrdScope( 1, <seu_escopo_final> )

por exemplo.

use cliente new
database oCli
oCli:ordScope( 0, cCodCli )
oCli:ordScope( 1, cCodCli )
oCli:Gotop()

BROWSE()

[karinha]

Ó

Code: Select all  Expand view

   IF NetUse( "COTACAO", .T. )   // Exclusive ‚ .F.  Shared ‚ .T.
      OrdListAdd( "COTACAO", "COTACAO", "TIPOCLI" )
      OrdDescend( ,,.T. ) // - Decrescente
      DATABASE DbCotacao
      DbCotacao:Load()
      DbCotacao:SetBuffer( .T. )
      DbCotacao:GoTop()
    ELSE
      MsgStop( "Banco de Dados das COTACOES Bloqueado", "Cuidado!" )
      RETURN NIL
   ENDIF

   SELECT ( DbCotacao:cAlias )
   SET ORDER TO 1
   GO TOP

   XNUMERCOTA := ( DbCotacao:cAlias )->COTACAO

   // Filtro Para Um Pedido Novo
   ( DbCotacao:cAlias )->( OrdScope( 0, XNUMERCOTA ) ) // Inicio
   ( DbCotacao:cAlias )->( OrdScope( 1, XNUMERCOTA ) ) // Fim
   GO TOP
 



[surGom]

Gracias Kharina, muy clara la explicación. Voy a implementarlo. Ya que muchas veces lo que hacía era abrir la base de datos hacer los ordescope y luego usar la clase database

Code: Select all  Expand view

if !pasaje("Lote");return nil;endif
set order to tag producto
if !dbseek(ncod)
   msgstop("No hay lotes cargados para este producto","Aviso del sistema")
   cierroalias(alias())
   return nil
endif
ORDSCOPE(TOPSCOPE,  nCod )
ORDSCOPE(BOTTOMSCOPE, nCod )

database oLote
oLote:beof := {|| nil}
oLote:setorder(3)

Luis