Como se utiliza este método que está tambien en la clase database
METHOD ordScope( nScopeType, uValue )
Luis
/*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
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
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)
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 9 guests