xBrowse, justificar datos de una columna (resuelto)

[albeiroval]

Saludos,

Como hago para que una columna de un xbrowse se pueda justificar de la forma que describo
abajo, es para usarlo con una tabla dbf que maneja un catalogo de cuentas de contabilidad.

Code: Select all  Expand view

  =================================== 
  CUENTA                 DESCRIPCION
  ===================================
  | 1-0-0-00-000      |   
  |   1-1-0-00-000    |          
  |     1-1-1-00-000  |   
  | 2-0-0-00-000      |
  |   2-0-0-00-000    |
 

El codigo que uso es el siguiente :

Code: Select all  Expand view

cAlias := Catalogo->(Alias())

REDEFINE XBROWSE oBrw ID 100 OF oDlg;
     DATASOURCE cAlias;
     COLUMNS {|| NivelCuenta(Catalogo->NumCta)}, "Nombre", "Clase";
     HEADERS "Numero", "Nombre", "Clase";
     JUSTIFY AL_LEFT, AL_LEFT, AL_LEFT;  
     AUTOSORT;
     CELL LINES NOBORDER

//------------------------------------------------------------//

static Function NivelCuenta( cCuenta )
  local cResult := cCuenta
 
  if SubStr(cCuenta,3,1) <> "0"
     cResult := " " + cCuenta
     if SubStr(cCuenta,5,2) <> "00"
        cResult := " " + cResult
     endif
  endif
     
return cResult
 

el problema que tengo es que aunque le agregue espacios en blanco delante no los toma en cuenta.

Saludos cordiales,

[hmpaquito]

Yo probaria quitando el atributo de justificacion de la columna para el cuerpo del xbrowse. Quiza ese atributo este forzando un ltrim()

[albeiroval]

hmpaquito,

ya lo habia probado quitando la clausula JUSTIFY ... pero el resultado es el mismo, lo que es cierto es que
xbrowse al cargar la columna elimina los espacios en blanco tanto a la izquierda como a la derecha.

lo comprobe reemplazando en la funcion el espacio por otro caracter, en este caso el ".",
para este caso si funciona pero no se ve bien.

Code: Select all  Expand view

//------------------------------------------------------------//

static Function NivelCuenta( cCuenta )
  local cResult
 
  cCuenta := AllTrim(cCuenta)
  cResult := AllTrim(cCuenta)
 
  if SubStr(cCuenta,3,1) <> "0"
     cResult := "." + cResult
     if SubStr(cCuenta,5,2) <> "00"
        cResult := "." + cResult
     endif
  endif
     
return cResult
 

A ver si Mr. RAO me da una pista...

Saludos,

[cnavarro]

Y si añades Chr(9) ?

[albeiroval]

cnavarro,

probe chr(9) y nada, hace lo mismo que con espacio.

[noe aburto]

Saludos.

yo no uso el xBrowse, es el TsBrowse, pero esto me funciona, checa la columna 2, en variable
no justifico la aplicacion sino la descripcion

columna ventana padc("APLICACION",LONG_MASC) en CataCuen; // 1
variable {||PresentaApl(apl_con)} color {COLOR_AZUL,COLOR_SAZUL}
columna ventana padc("NOMBRE DE LA CUENTA",nLong) en CataCuen; // 2
variable {||padr(space(val(niv_apl)*4-4)+nom_apl,nLong)}; // nLong es el len(descripcion de apl)
formato "@!"

[noe aburto]

columna ventana padc("APLICACION",LONG_MASC) en CataCuen variable {||PresentaApl(apl_con)} color {COLOR_AZUL,COLOR_SAZUL}
columna ventana padc("NOMBRE DE LA CUENTA",nLong) en CataCuen  variable {||padr(space(val(niv_apl)*4-4)+nom_apl,nLong)}  // nLong es el len(descripcion de apl)

[albeiroval]

Saludos noe,

Nunca he usado TsBrowse, uso xbrowse solamente. Agregando que trabajo con Harbour.

[hmpaquito]

Un super hacking es que uses oemtoansi(chr(255)) en vez de space(1) para hacer la sangria

[albeiroval]

hmpaquito,

Eres un super hacking, funciono.

Gracias,