xbrowse ejemplo basico soy principiante

[Nemo22]

Saludos comunidad: Requiero de su ayuda, para cnfigurar mi xbrowse como lo hacia en clipper, viendo ejemplo ya hize que mi DBF se vea en el xbrowse pero ahora quiero filtrar mi DBFS que tiene un campo llamado TIPO_DOC esta campo tiene como valores FA = factura, DV = Devolucion, TA = Talon y X mas

Quiero que mi xbrowse Solo visualiza el Rango de FA o el Rango de DV mi funcion es la siguiente:

PROCEDURE VerBrowse
LOCAL oDlg, oBto1, oBto2, oChk, lChk := .F., oLbs, oVis, lVis := .F.

PRIVATE m_Serie, m_Fac, Abre_Ok, oBrw

Abre_Ok := .T.

* Abrimos bases de datos
ABRE("VENTA")

* Si no pudo crear la base temporal regresa a MENUSYS
IF !Abre_Ok
CLOSE ALL
RETURN
ENDIF

SELECT VENTA
SET ORDER TO 1
VENTA->(DbSeek("FA")

DEFINE DIALOG oDlg TITLE "browse" FROM 01, 01 TO 30, 30 OF oWnd

@ 01, 01 XBROWSE oBrw ;
FIELDS VENTA->Tipo_Doc, VENTA->No_Serie, VENTA->No_Referen ;
HEADERS 'Doc', 'Serie', 'Numero';
SIZES 020, 070, 050 ;
SIZE 300, 200 PIXEL ALIAS 'venta' OF oDlg

oBrw:nRowDividerStyle = LINESTYLE_NOLINES
oBrw:nColDividerStyle = LINESTYLE_BLACK
oBrw:nMarqueeStyle = MARQSTYLE_HIGHLROW
oBrw:CreateFromCode()

ACTIVATE DIALOG oDlg CENTERED

CLOSE ALL
RETURN

Tengo que poner un codeblock para especificar el inicio de GOTOP de inicio que segun yo seria:

oBrw:bGoTop := { || VENTA->Tipo_Doc = "FA" }
oBrw:bGoBottom := { || VENTA->Tipo_Doc = "FA" }

Pero me siguen apareciendo los DV y los TA

me pueden ayudar Saludos, Soy principiante en Estoy de FIVEWIN apenas estoy pasando mis programas de CLIPPER a FIVEWIN

[Manuel Aranda]

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

[Nemo22]

Estoy usando Indices NTX por el momento. pero deja indago como crear los CDX para hacer la prueba si es mas fail con CDX voy a tener que migrar todos mis Indices

Gracias

porque llevo 15 Dias que estoy conociendo como se programa en FIVEWIN

[Antonio Linares]

Code: Select all  Expand view

#xcommand @ <nRow>, <nCol> [ COLUMN ] XBROWSE  <oBrw>  ;
               ...
               [ [ FIELDS ] <Flds,...>] ;
               [ SELECT <cField> FOR <uValue1> [ TO <uValue2> ] ] ;
               ...
 

En tu caso:

Code: Select all  Expand view

@ 01, 01 XBROWSE oBrw ;
   FIELDS VENTA->Tipo_Doc, VENTA->No_Serie, VENTA->No_Referen ;
   HEADERS 'Doc', 'Serie', 'Numero';
   SIZES 020, 070, 050 ;
   SIZE 300, 200 PIXEL ALIAS 'venta' OF oDlg ;
   SELECT VENTA->Tipo_Doc FOR "FA"

oBrw:CreateFromCode()
 

Existiendo un índice sobre el campo TIPO_DOC y estando seleccionado

[Nemo22]

:0 bien y en este Caso puedo seguir usando los indices NTX sin ningun problema y me jala en el browse solo lo que Tenga FA y tengo que poner mi DBF en el puntero de Inicio del FA y listo.