topic-25642

surGom

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

database y ordscope
Posted: Tue Feb 12, 2013 10:21 PM

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

METHOD ordScope( nScopeType, uValue )

Luis

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: database y ordscope
Posted: Wed Feb 13, 2013 11:27 AM

Code (fw): Select all Collapse

/*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

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

surGom

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

Re: database y ordscope
Posted: Wed Feb 13, 2013 03:20 PM

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

Luis

aferra

Posts: 88

Joined: Wed Apr 28, 2010 06:34 PM

Re: database y ordscope
Posted: Fri Feb 15, 2013 03:33 PM

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

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: database y ordscope
Posted: Fri Feb 15, 2013 05:26 PM

Ó

Code (fw): Select all Collapse

   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

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

surGom

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

Re: database y ordscope
Posted: Fri Feb 15, 2013 10:59 PM

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 (fw): Select all Collapse

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

FiveTech Support Forums

Continue the discussion