FiveTech Software tech support forums

... !=NIL oBrw:Move(0,0) // Not run !!! Endif RETURN NIL ELSE oVMenu5:lOpened :=.F. oVMenu5:Switch() oRighe:= TRigheReserva():New() oRighe:OrdScope( TOPSCOPE, nInvoice ) oRighe:OrdScope( BOTTOMSCOPE, nInvoice ) oRighe:gotop() DO while !oRighe:eof() aadd(aItems,{oRighe:ico,oRighe:Desc,oRighe:Qta,oRighe:dataini,oRighe:datafin} ...

... with no params: No action SetScope( nil ) // clear all scopes SetScope( uVal ) // Set both top and bottom scopes to uVal SetScope( uTop, uBot ) // TopScope uTop and Bottom Scope uBot // NIL value removes that scope After setting the scope, if the current record is out of scope, record pointer is ...

... aunque a tu codigo la unica modificacion es agregarle las primeras lineas: #include "FiveWin.ch" #include "xbrowse.ch" #DEFINE TOPSCOPE 0 #DEFINE BOTTOMSCOPE 1 Desde ya muchos Saludos. Antonio En este link, se encuentra el Prg y la Dbf.: https://drive.google.com/drive/folders/1kyAdySJ7wQiFk8zXXFxXT2wsr_yvdlJJ

Buenas Sabeis si existe algun límite al confeccionar la variable que nos indique Topscope o Bottomscope ? Me explico: Tengo una dbf llamada albaran con su indice CDX indexado por : index on _field->Conductor+dtos(_field->fecha)+STR(_field->Tipo) tag "Conductor" ...

Silvio, a sample : from ORD.CH : #define TOPSCOPE 0 #define BOTTOMSCOPE 1 set order to tag dates // set range dates->(ordScope(0, dtos(Start) )) // set top scope dates->(ordScope(1, dtos(End) )) // set bottom scope dates->(dbgotop()) ...

... rápidos, ya que con dos "SoftSeeks" internos te filtra y se queda sólo con lo que le interesa, es decir, el Scope, hace un SoftSeek al TOPSCOPE y otro SoftSeek al BOTTOMSCOPE y como la tabla está ordenada lo que hace es quedarse con lo que queda entre esos dos "SoftSeeks" ...

Yo lo hago asi.... el archivo está indexado asi.... str(CODIINT,10)+str(EM_PARE,2) #Include 'xbrowse.ch' #define TOPSCOPE 0 #define BOTTOMSCOPE 1 @ 0.875,1 XBROWSE oBrwGRU ; FIELDS (EMPLEGRU)->EM_NOMB , ; HEADERS 'Nombre' ; SIZES 200 ; SIZE 200 ; ALIAS EMPLEGRU OF oFol:aDialogs[3] ...

Si estás usando índices CDX sería algo tan sencillo como esto para establecer el rango que quieres:
//
VENTA->(ordscope(TOPSCOPE, "FA"))
VENTA->(ordscope(BOTTOMSCOPE, "FA"))

y para ihabilitarlo:

VENTA->(ordscope(TOPSCOPE, NIL))
VENTA->(ordscope(BOTTOMSCOPE, NIL))
//

... campo1 campo2 campo3 juan 04 Uruguay pedro 03 España enrique 01 Brasil Ramiro 06 Chile Carlos 05 Perú si aplico ordscope Tabla->(OrdScope(TOPSCOPE,"04") ) Tabla->(OrdScope(BOTTOMSCOPE,"06") ) solo saldrán en los resultados juan 04 Uruguay Carlos 05 Perú Ramiro 06 ...

... un filtro con OrdScope de esta forma: eFiltro := {|| DBSELECTAREA(MOVISTO) ,; OrdScope(BOTTOMSCOPE,str(mPROD,8)+str(mCOIN,6)) ,; OrdScope(TOPSCOPE,str(mPROD,8)+str(mCOIN,6)) ,; oLbxMovSto:Refresh() } la pregunta: Como hago para el Listbox o información me quede ubicado al inicio ?, ya ...

... order Syntax ORDSCOPE(<nScope>, [<expNewValue>]) --> uCurrentValue Arguments <nScope> is a number specifying the top (TOPSCOPE) or bottom (BOTTOMSCOPE) boundary. Note: To use the TOPSCOPE and BOTTOMSCOPE constants, you must include (#include) the Ord.ch header file ...

... "Datos" ):Cells( fila, 6 ):Value := VROL XFILTR:=XFAM_PRO + VC_PILAR + 15->MATRIC SELECT 16 // WCM_MACO.DBF DBGOTOP() 16->(ORDSCOPE( TOPSCOPE,NIL ) ) 16->(ORDSCOPE( BOTTOMSCOPE,NIL ) ) DBGOTOP() 16->(ORDSCOPE( TOPSCOPE ,XFILTR ) ) 16->(ORDSCOPE( BOTTOMSCOPE,XFILTR ) ) DBGOTOP() ...

... para cuando pierde el focus para resolver el asunto Código: oLBXPrzAlt:bGotFocus := {|| prz_alt->( ordSetFocus(4) ),; prz_alt->( ordScope( TOPSCOPE, cCodCpc ) ),; prz_alt->( ordScope( BOTTOMSCOPE, cCodCpc ) ),; prz_alt->( dbGoTop() ) } pero me es util solo cuando pierde el focus y ...

En un LISTBOX muestro los registros que cumplen una condición elegida desde un COMBOBOX. Según la opción elegida cambio el índice activo y con TOPSCOPE Y BOTTOMSCOPE filtro los registro a mostrar. Todo funciona perfectamente menos cuando no existen registros según la condición especificada. En ...

... ctienda+ Dtos(dFecha ) ) ) VentaSuc->(OrdScope(1, ctienda + Dtos(dFecha ) ) ) ; VentaSuc->(DbGotop()) format: ORDSCOPE(0,yourFirstRecord) //topscope ORDSCOPE(1,yourEndRecord) //bottomscope yourDBf->(DbGotop())