Xbrowse

[CarlosFossati]

Hola Buenas Tardes, quisiera parametrizar un xbrowse, pasandole por parametros los campos de una tabla, como asi,
las descripciones de los mismos, como lo hacia con en twbrowse de cicarelli, habia un parametro omo el bline, que me permitia
pasar codeblock con los campos de la base y un aheader, con los nombres de los campos. desde ya muchas gracias

[Ariel]

Hola Carlos,

podes crear arrays y mandarle los datos, ej:

Code: Select all  Expand view

local aCol, aHead, aSize, aJust, aPic

if tucondicion1
    aCol:= { "campo1", "campo2", "campo3", ... }
    aSize:= { 50, 220, 65, ... }
    aHead := { "Codigo", "Nombre", "Domicilio", .. }
    aJust := { AL_RIGHT, AL_LEFT, ,.... }
    aPic   := { "@Z 9999",, ,, }
elseif tucondicion2
    aCol:= { "campo10", "campo20" }
    aSize:= { 50, 220}
    aHead := { "Codigo", "Nombre"}
    aJust := { AL_RIGHT, }
    aPic   := { "@Z 9999",  }
elseif tucondicion3
    aCol:= { "campo1", "campo3", "campo2", "campo4", ... }
    aSize:= { 50, 220, 220, 65, ... }
    aHead := { "Codigo", "Domicilio", "Nombre", .. }
    aJust := { AL_RIGHT, AL_LEFT, ,.... }
    aPic   := { "@Z 9999",, ,, }
else
    aCol:= { "campo1" }
    aSize:= { 220 }
    aHead := { "Nombre" }
endif

@ 0, 0 XBROWSE oBrw ;
           DATASOURCE oRs ;
           COLUMNS aCol ;
           HEADERS aHead ;
           COLSIZES aSize ;
           PICTURE aPic ;
           JUSTRIFY aJust ;
           LINES CELL AUTOSORT
 

Espero te sirva y entiendas la idea, de todos modos tambien luego de la definicion podes modifcar cada columna a tu gusto,
si buscas aca en el foro xbrowse() encontraras infinidad de ejemplos, incluso en los ej. de fwh.
Te mando un abrazo.
Saludos.

[leandro]

Creo que es lo que necesitas
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=40084&p=239224&hilit=ReArrangeCols&sid=49f637090cf88bfb39496fc0e84c0eec&sid=08f73508aadc229344ddbafbf5794356#p239224

[CarlosFossati]

Muchas Gracias Leandro!!!!!!!

[CarlosFossati]

Muchas Gracias Ariel