FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Dos problemas con xBrowse
Posts: 188
Joined: Wed Feb 01, 2006 06:59 PM
Dos problemas con xBrowse
Posted: Sun Dec 23, 2012 04: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铆:

Code (fw): Select all Collapse
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 (fw): Select all Collapse
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.
Saludos



Fernando Espinoza
Posts: 188
Joined: Wed Feb 01, 2006 06:59 PM
Re: Dos problemas con xBrowse
Posted: Wed Dec 26, 2012 03:46 PM

Estimados colegas

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

Saludos

Fernando Espinoza

Saludos



Fernando Espinoza
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: Dos problemas con xBrowse
Posted: Sun Dec 30, 2012 12:45 AM
1) Lo prob茅 as铆 y funciona
Code (fw): Select all Collapse
 WHIT OBJETC oBrw:aCols[xx]
聽 聽:bStrData:= {|| Transform( aArticulos[oBrw:nArrayAt][_Cantid] > 0, "+####", if( aArticulos[oBrw:nArrayAt][_Cantid] < 0, "-####", "##")) ) }
END


2)... interesante, espero la respuesta :-)
Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

Continue the discussion