Dos problemas con xBrowse

[fespinoza]

Estimados amigos

Les pido su ayuda con estos dos temas con xBrowse column:

1) Requiero que una columna numerica, me muestre el signo +, en lugar del valor absoluto; cuando el xBrowse es presentado desde una tabla .dbf lo hago así:

Code: Select all

IF(FieldName(i)="G_D", oBrw:aCols[i]:bStrData:={|| IF(G_D>0, Transform(G_D, "+####"), ;
                    IF(G_D<0, Transform(ABS(G_D), "-####"), Transform(G_D, "##"))) }, )   // toda la columna con un picture fijo

Y me funciona muy bien (la variable G_D es el nombre del campo en la tabla dbf), toda la columna G_D se presenta correctamente. Pero cuando el xBrowse es presentado desde un Array, tipo aMatriz[10,12]; no se como hacerlo.

2) La otra es lograr que el texto de la cabecera del xBrowse se me presente correctamente, cuando el texto es vertical.

Especificamente, cuando el texto es horizontal, lo que hago es agregar esta línea de código: oLbx:nHeaderLines:= 2; y todo correcto.

Pero cuando defino que el font de la cabecera para una columna especifica sea vertical; esto ya no funciona bien y el texto se presenta en una sola línea vertical, así lo defina de esta forma: "Código del"+CRLF+"producto"; lo cual se ve bastante feo y me obliga a generar una cabecera demasiado alto, para que el texto se vea completo.

Code: Select all

DEFINE FONT oFnt2 NAME "Times New Roman" SIZE 0, -12 BOLD NESCAPEMENT 900
.....
@1,1 XBROWSE oLbx  OF oDlg SIZE 400,240 PIXEL ARRAY aDatos ......
        WITH OBJECT oLbx:oCol(5)
            :oHeaderFont := oFnt2
            :cHeader     := "Código del"+CRLF+"producto"
            :cTooltip    := "Código del producto"
        END
 

Saludos desde Ecuador

Fernando Espinoza A.

[fespinoza]

Estimados colegas

Por favor, pegarle una revisada a este pequeño problema con xBrowse.

Saludos

Fernando Espinoza

[MarioG]

1) Lo probé así y funciona

Code: Select all

 WHIT OBJETC oBrw:aCols[xx]
   :bStrData:= {|| Transform( aArticulos[oBrw:nArrayAt][_Cantid] > 0, "+####", if( aArticulos[oBrw:nArrayAt][_Cantid] < 0, "-####", "##")) ) }
END

2)... interesante, espero la respuesta