TXBRowse - tiene error con picture de Array

[jcaro]

Hola Foro:

Tengo un problema que me tiene complicado, cuando uso el TXBrowse con un arreglo ( array ) de datos, por ejemplo de 6 columnas y deseo que una columna numerica tenga un PICTURE "@E 999,999,999" de miles, para una mejor visualizacion en el browse, NO FUNCIONA !!!

Será un Bug o un error mío , por favor si alguien tiene alguna idea de que pasa, que me de una manita.

Code: Select all

 oBrw := TXBrowse():New( oWinh )
 oBrw:SetArray( aDatos, .T. )
         	
 oBrw:aCols[1]:nWidth     := 100
 oBrw:aCols[2]:nWidth     := 350
 oBrw:aCols[3]:nWidth     := 95
 oBrw:aCols[4]:nWidth     := 90
 oBrw:aCols[5]:nWidth     := 90
 oBrw:aCols[6]:nWidth     := 90
	
 oBrw:aCols[3]:nDataStrAlign	:= AL_RIGHT   
 oBrw:aCols[4]:nDataStrAlign	:= AL_CENTER  
 oBrw:aCols[5]:nDataStrAlign	:= AL_RIGHT   
 oBrw:aCols[6]:nDataStrAlign	:= AL_RIGHT   
 oBrw:aCols[5]:cEditPicture := "@E 9,999,999,999" 
 oBrw:aCols[6]:cEditPicture := "@E 9,999,999,999"     ( <== NO  FUNCIONAN !!! )

Estoy usando xHarbour y FWH 2.8

Gracias ,

[jcaro]

Hola a Todos :

Alguien tiene alguna idea - será un BUG , le he dado varias vueltas y NADA ???

Alguien usa Array ( arreglos ) y Picture con TXbrowse ??

Saludos ,

[R.F.]

No uso xBrowse, bueno si, pero por otro lado.

Haz probado haciendo un TRANSFORM() en vez de ponele un picture ????

[jcaro]

Gracias Rene por responder:

Si lo he hecho. El problema es que hay que hacerlo antes de grabar al Array, pero el dato se convierte en un dato del tipo caracter. Entonces, no se pueden hacer sumas o restas. Lo cual es un grave problema.

No se si existirá alguan otra forma ???

Vuelvo a insistir será un error de la clase ??

Saludos ,

[Ramón Avendaño]

Hola Juan:

Si no te entiendo mal tu quieres que se visualice en el browse en el formato que te daría el picture, pero el problema es que, sino me equivoco, '::cEditPicture' es solo para cuando se edita la celda (picture para un get interno que genera el xbrowse) no como mascara de visualización.

En tal caso como bien apunta Rene puedes transformar el dato del array con un TRANSFOM antes de activar el XBrowse, o lo mas conveniente para que siga siendo un dato numérico es utilizar '::bStrData' que es el codebloc que transforma cada dato a tipo caracter antes de visualizarlo, seria siguiendo tu ejemplo algo así:

oBrw:aCols[6]:bStrData:= {|| TRANSFORM( aDatos[oBrw:nArrayAt, 6 ], "@E 9,999,999,999")}

Un saludo,
Ramón Avendaño.

[sysctrl2]

Hola Juan, efectivamente, existe un error con xHarbour,
esto pasa cuando haces un edit en las celdas del browse.

mas y sin embargo
con harbour va bien.

saludos..

[jcaro]

GRACIAS Ramón y Sysctrl por responder.

Ramón, tu idea funcióno PERFECTO !! , no sabía esa forma de uso.


Sysctrl, que bueno saber esto, pues me tenia complicado ese error !.
pensaba que era algo mío.

Saludos ,