xbrowse ejemplo basico soy principiante

Posts: 5

Joined: Mon Aug 08, 2011 03:38 PM

xbrowse ejemplo basico soy principiante
Posted: Wed Sep 19, 2012 05:43 AM

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

Posts: 610

Joined: Wed Oct 19, 2005 08:20 PM

Re: xbrowse ejemplo basico soy principiante
Posted: Wed Sep 19, 2012 06:09 AM

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

Un saludo,

Manuel

xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC

Nemo22

Posts: 5

Joined: Mon Aug 08, 2011 03:38 PM

Re: xbrowse ejemplo basico soy principiante
Posted: Wed Sep 19, 2012 06:16 AM

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

Gracias

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

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: xbrowse ejemplo basico soy principiante
Posted: Wed Sep 19, 2012 08:29 AM

Code (fw): Select all Collapse

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

En tu caso:

Code (fw): Select all Collapse

@ 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

regards, saludos

Antonio Linares
www.fivetechsoft.com

Nemo22

Posts: 5

Joined: Mon Aug 08, 2011 03:38 PM

Re: xbrowse ejemplo basico soy principiante
Posted: Thu Sep 20, 2012 12:10 AM

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

FiveTech Support Forums

Continue the discussion