FiveTech Software tech support forums

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

Posted: **Wed Feb 13, 2013 11:27 am**

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

Posted: **Wed Feb 13, 2013 3:20 pm**

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

Luis

Posted: **Fri Feb 15, 2013 3: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()

Posted: **Fri Feb 15, 2013 5:26 pm**

Ó

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

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: 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

FiveTech Software tech support forums

database y ordscope

database y ordscope

Re: database y ordscope

Re: database y ordscope

Re: database y ordscope

Re: database y ordscope

Re: database y ordscope