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
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
Fernando Espinoza A.