Ajustes en XBrowse.

[Raymundo Islas M.]

Hola a todos,

Estoy por empezar a cambiar los TWBrowse por XBrowse de mi app y quisiera saber si es correcto y posible ( creo que lo lei hace tiempo ) lo siguiente :

Si ya tengo definido ciertos ajustes ( Colores, Gradientes, BackGround, etc. ) por aplicar y para no andar repitiendolos en cada browse ( son muuchos por convertir ), puedo pasar el objeto a una funcion y desde ahi aplicarlos ?

Code: Select all  Expand view  RUN

REDEFINE XBROWSE brw1
...  
...  
....

AplParms2Brw( brw1 )


Static Function AplParms2Brw( xBrw )

With Object xBrw
xBrw:esto    := XXXX
xBrw:aquello := yyyy
xBrw:aquel   := zzzz

Return NIL
 

Y para alinear los datos de una columna, debo hacerlo de manera individual ?
aplique JUSTIFY 1 y los datos si se alinearon a la derecha, pero el encabezado queda centrado y el footer queda a la izquierda.



Sorry, todavia estoy acostumbrado a la clase de Hernan, en la cual se ubican los 3 datos a la alineacion indicada.


Saludos

[nageswaragunupudi]

You can pass oBrw object to a function for assigning common properties.

nHeadStrAlign and nFootStrAlign are to be assigned independantly.

But where XBrowse is defined in an appropriate way, XBrowse automatically decides picture formats and alignments of data and footers appropriate to the data type.

[Raymundo Islas M.]

Mr. Rao,

Thanks a lot for clarifying this to me.

And yes, you're rigth, my intention is to assign common properties to all and then fine tune when necessary.

Best regards.

[Raymundo Islas M.]

Mr. Rao,

Just to let you know is working perfect !!!

Thanks again.

Regards

[gdeteran]

Hola Raymundo:

Yo tambien estoy cambiando TWBrowse por XBrowse
Todavia no me queda claro como debo desarrollar para XBrowse, lo equivalente a bEdit de TWBrowse.
Tu me podrias ayudar en esto por favor
De antemanos, gracias

[Raymundo Islas M.]

Gonzalo,

Siento horrible no poder apoyarte en este punto, tambien estoy dando mis primeros pasos en el Xbrowse.

De todos los browses que voy a cambiar ( le calculo unos 100 ), todos son unicamente para mostrar datos, a excepcion de 2 donde si hago edicion de celdas pero los estoy dejando para lo ultimo, ya que le haya entendido bien a esta clase, totalmente nueva para mi.

Espero comprendas que no es que no quiera, sino que en este momento no me es posible por los escazos conocimientos del XBrowse que tengo.

Si te sirve en algo, te puedo enviar algo del tema pero usando la TWBrowse de Hernan, que es la que ha usado toda la vida

Saludos

[Raymundo Islas M.]

Antonio/Daniel,

Me aparece otro punto, quiero usar en una columna un SetCheck() para avisar si esta activo o no un valor, viendo ejemplos del foro y de la carpeta SAMPLES lo puedo realizar, el detalle es que el valor/columna a usar NO es logico, lo tengo como 0,1.

Alguna Data o Method por usar para lograrlo ?

Ahora, lo mas curioso del asunto.

Code: Select all  Expand view  RUN

REDEFINE XBROWSE lbSCatMar ID 101 OF oFldCat:aDialogs[1] ;
    COLUMNS 1,3 ;
    HEAD 'NOMBRE','FAV' ;
    COLSIZES 265,30 ;
    ARRAY aSCatMar ;
    FOOTERS ;
    FONT aSysFnts[1]

AdjRStXBrws( lbSCatMar, .T., {0,1} )
lbSCatMar:aCols[2]:SetCheck( ,.t.)
 

Esto son los datos originales :


Y estos cambiando el valor de la columna :


Ahora me aparecen todas las columnas en el Browse, aunque al inicio estoy usando solo 2


Se que estoy haciendo algo mal, pero no encuentro que cosa es, lo unico que apunta a la falla es lo siguiente :

Al inicio, tengo el array vacio, despues, al obtener los datos tengo un :

Code: Select all  Expand view  RUN

lbSCatMar:SetArray( aSCatMar )
lbSCatMar:ReFresh()
 

Podrian indicarme cual(es) son mi(s) error(es) ??

Muchas Gracias

Saludos

[Raymundo Islas M.]

Ok,

Ya encontre el porque de esto :

El valor inicial del array que va a ser mostrado, si es diferente al obtenido despues de inicializado en XBrowse muestra todo el contenido.

Incluso, ya puedo ver mi setcheck() !!!

Jejejejeje

Uds perdonen el oso ......

Pero como comento, estoy empezando con esta clase.


Saludos

[rolando]

Hola Raymundo:

Yo tambien estoy cambiando TWBrowse por XBrowse
Todavia no me queda claro como debo desarrollar para XBrowse, lo equivalente a bEdit de TWBrowse.
Tu me podrias ayudar en esto por favor
De antemanos, gracias

Te adjunto un ejemplo de como lo hago, espero te sirva.

Code: Select all  Expand view  RUN

oBrw:aCols[ 1 ]:nEditType := EDIT_GET          
oBrw:aCols[ 1 ]:bOnPostEdit := {|oCol, xVal, nKey| iif( nKey != VK_ESCAPE, ;
                 (oDbf:UBICACION:=upper(xVal) , oDbf:save() , oBrw:refresh() ) , ) }
oBrw:aCols[1]:cEditPicture := "@!"
 

Saludos.

Rolando

[gdeteran]

Gracias Rolando y Raimundo

[Raymundo Islas M.]

Antonio/Daniel,

Sigo con mis dudas/preguntas con la clase.

El uso del metodo ToExcel() esta excelente, realmente nos ahorra mucho tiempo y codigo, sin embargo, hasta donde lo veo solo nos exporta el contenido del XBrowse, sin darnos opcion a poner al titulo/encabezado.

Me explico, si estoy alguna opcion (X) y si tomo un cliente (Y) con un rango de fechas (Z)
Estaria fenomenal si pudieramos mandar un array con estos datos y que la funcion nos los ponga como titulo/encabezado.

Code: Select all  Expand view  RUN

                   CONCENTRADO DE OPERACIONES         (x)
                  EL MUNDO DEL ZAPATO S.A. DE C.V.    (y)
                    DEL : 01/05/2010  AL 15/05/2010   (z)

Y a partir de aqui el contenido del XBrowse
..
..
 

o quizas ya lo haga, pero no se como hacerlo.

Muchas Gracias y Saludos

[Raymundo Islas M.]

Antonio/Daniel,

Otra mas :

Es muy similar a la que me pasaba al usar un array, pero ahora con un RecordSet, por mas que indico las columnas que necesito me salen todas.

De momento lo solucione "reconstruyendo" el XBrowse enseguida de obtener los datos del query y ocultando algunas columnas (con indicaciones del Sr. Rao en otros posts ), sin embargo, se mira muy "patiño".

Me explico : De un RecordSet de 4 datos solo quiero mostrar 2, al principio creo el RS vacio, mismo que se llenara de datos segun la opcion seleccionada por el usuario. Asi que cuando se muestra el browse salen las 4 columnas, al obtener datos ya me salen 2, peeero, unicamente si oculto las 2 que no deseo mostrar.

Ya cheque los valores del RS por si eran diferentes ( vease punto anterior con array ) y son de valores correctos.

Gracias y Saludos

[Daniel Garcia-Gil]

Raymundo

como creas el browse?

[Raymundo Islas M.]

Daniel,

Perdon por no contestarte pronto, pero estuve checando algunas cosas.

Acerca del punto anterior, ya hice algunas pruebas y estoy optando por usar solo los XBrowses + arrays, dejando a un lado el XBrowse + recordSet.
Ya que siempre use arrays con el browse de Hernan, me acomoda mas generar el RS, vaciarlo a un array con GetRows() y listo.

Ahora, quiero usar el XBrowse para mostrar un archivo de texto, viendo el ejemplo que viene es facil y rapido, la unica diferencia, es que el archivo a mostrar esta encriptado.

En este momento estoy usando un RichEdit + MemoRead( DeCrypt( archivo.txt, miclave ) )

Mientras con XBrowse es tTxtFile( archivo.txt, 0 ) que me genera un object

Es necesario usar el object ?
o lo puedo hacer de otra manera.


Saludos

[elmoiquique]

como puedo sumar una columna del xbrowse