Dos problemas con xBrowse
Posted: Sun Dec 23, 2012 4:06 pm
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í:
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.
Saludos desde Ecuador
Fernando Espinoza A.
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 fijo2) 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
Fernando Espinoza A.
