Page 1 of 2
Ajustes en XBrowse.
Posted: Mon May 10, 2010 5:08 am
by 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
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
Re: Ajustes en XBrowse.
Posted: Mon May 10, 2010 10:40 am
by 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.
Re: Ajustes en XBrowse.
Posted: Mon May 10, 2010 2:26 pm
by 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.
Re: Ajustes en XBrowse.
Posted: Mon May 10, 2010 3:17 pm
by Raymundo Islas M.
Mr. Rao,
Just to let you know is working perfect !!!
Thanks again.
Regards
Re: Ajustes en XBrowse. ( Resuelto )
Posted: Mon May 10, 2010 8:47 pm
by 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
Re: Ajustes en XBrowse. ( Resuelto )
Posted: Mon May 10, 2010 11:14 pm
by 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
Re: Ajustes en XBrowse.
Posted: Tue May 11, 2010 2:01 pm
by 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
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 _ 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
lbSCatMar:SetArray( aSCatMar )
lbSCatMar:ReFresh()
Podrian indicarme cual(es) son mi(s) error(es) ??
Muchas Gracias
Saludos
Re: Ajustes en XBrowse.
Posted: Tue May 11, 2010 2:27 pm
by 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
Re: Ajustes en XBrowse. ( Resuelto )
Posted: Tue May 11, 2010 3:22 pm
by rolando
gdeteran wrote: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
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
Re: Ajustes en XBrowse.
Posted: Tue May 11, 2010 4:38 pm
by gdeteran
Gracias Rolando y Raimundo
Re: Ajustes en XBrowse.
Posted: Fri May 14, 2010 6:06 pm
by 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
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
Re: Ajustes en XBrowse.
Posted: Sun May 16, 2010 10:07 pm
by 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
Re: Ajustes en XBrowse.
Posted: Sun May 16, 2010 10:49 pm
by Daniel Garcia-Gil
Raymundo
como creas el browse?
Re: Ajustes en XBrowse.
Posted: Wed May 19, 2010 4:39 pm
by 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
Re: Ajustes en XBrowse.
Posted: Sun Oct 10, 2010 3:53 am
by elmoiquique
como puedo sumar una columna del xbrowse
